|
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_1520ee
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0140 | @ | .CONST 0x0140 ; 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 004e | N | .CONST 0x004e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e003 | | Load 0x0,0x3 0011 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0012 4801 |H | Short_Literal 0x1 0013 4806 |H | Short_Literal 0x6 0014 00e9 | | Load_Encached String_Cache 0015 0334 | 4 | Declare_Variable Array,With_Constraint 0016 505d |P] | Indirect_Literal Any,0x74,{0x5443502f, 0x49502020} 0017 4800 |H | Short_Literal 0x0 0018 4801 |H | Short_Literal 0x1 0019 e004 | | Load 0x0,0x4 001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001b 035b | [ | Declare_Type Array,Constrained 001c 0337 | 7 | Declare_Variable Array 001d e5fa | | Load 0x2,-0x6 001e 09f8 | | Execute_Immediate Binary_Scale,-0x8 001f 00d8 | | Load_Top At_Offset_0 0020 e004 | | Load 0x0,0x4 0021 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0022 0260 | ` | Execute Discrete,In_Type 0023 7001 |p | Jump_Nonzero 0x25 0024 0801 | | Execute_Immediate Raise,0x1 0025 4800 |H | Short_Literal 0x0 0026 00da | | Load_Top At_Offset_2 0027 01d6 | | Execute Vector,Field_Write 0028 e5fa | | Load 0x2,-0x6 0029 48ff |H | Short_Literal 0xff 002a 0279 | y | Execute Discrete,And 002b 00d8 | | Load_Top At_Offset_0 002c e004 | | Load 0x0,0x4 002d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 002e 0260 | ` | Execute Discrete,In_Type 002f 7001 |p | Jump_Nonzero 0x31 0030 0801 | | Execute_Immediate Raise,0x1 0031 4801 |H | Short_Literal 0x1 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 00e4 | | Load_Encached Positive_Cache 0035 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0037 4800 |H | Short_Literal 0x0 0038 0093 011b | | push_full_address INIT_0118 003a 00f5 | | Load_Encached Unused21 003b 037d | } | Declare_Type Task,Defined 003c 036f | o | Declare_Variable Task 003d 4802 |H | Short_Literal 0x2 003e 4802 |H | Short_Literal 0x2 003f 0099 | | Action Reference_Dynamic 0040 e002 | | Load 0x0,0x2 0041 a005 | | Store_Unchecked 0x0,0x5 0042 e20d | | Load 0x1,0xd 0043 e006 | | Load 0x0,0x6 0044 4ffb |O | Short_Literal -0x5 0045 4802 |H | Short_Literal 0x2 0046 0099 | | Action Reference_Dynamic 0047 4806 |H | Short_Literal 0x6 0048 e408 | | Load 0x2,0x8 0049 020e | | Execute Module,Augment_Imports 004a 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 004c 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 004e BODY_0008: 004e 00be | | Action Activate_Tasks 004f e003 | | Load 0x0,0x3 0050 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0051 e402 | | Load 0x2,0x2 0052 0120 | | Execute Any,Is_Value 0053 6803 |h | Jump_Zero 0x57 0054 e002 | | Load 0x0,0x2 0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0056 7801 |x | Jump 0x58 0057 e402 | | Load 0x2,0x2 0058 e405 | | Load 0x2,0x5 0059 e404 | | Load 0x2,0x4 005a e002 | | Load 0x0,0x2 005b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 005c c402 | | Store 0x2,0x2 005d c403 | | Store 0x2,0x3 005e e403 | | Load 0x2,0x3 005f 6803 |h | Jump_Zero 0x63 0060 8407 | | Call 0x2,0x7 0061 e20f | | Load 0x1,0xf 0062 0257 | W | Execute Discrete,Raise 0063 4800 |H | Short_Literal 0x0 0064 00db | | Load_Top At_Offset_3 0065 170d | | Execute Task,Entry_Call,Field_Number 0xd 0066 e5f8 | | Load 0x2,-0x8 0067 6805 |h | Jump_Zero 0x6d 0068 00cf | | Action Mark_Auxiliary 0069 8409 | | Call 0x2,0x9 006a 00c9 | | Action Pop_Auxiliary_Loop 006b 7ffd | | Jump 0x69 006c 00ce | | Action Pop_Auxiliary 006d 85fd | | Call 0x2,-0x3 006e 00cf | | Action Mark_Auxiliary 006f 840a | | Call 0x2,0xa 0070 00c9 | | Action Pop_Auxiliary_Loop 0071 7ffd | | Jump 0x6f 0072 0000 0000 | | .XXX[0x2] 0074 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 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 e402 | | Load 0x2,0x2 007c e002 | | Load 0x0,0x2 007d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 007e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007f 0000 | | .XXX[0x1] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0097 | | .CONST 0x0097 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 4801 |H | Short_Literal 0x1 0084 e5f9 | | Load 0x2,-0x7 0085 e007 | | Load 0x0,0x7 0086 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0087 035b | [ | Declare_Type Array,Constrained 0088 0337 | 7 | Declare_Variable Array 0089 00d8 | | Load_Top At_Offset_0 008a 0335 | 5 | Declare_Variable Array,Duplicate 008b 00cd | | Action Spare6_Action 008c 00d9 | | Load_Top At_Offset_1 008d 01d9 | | Execute Vector,Reverse_Bounds 008e 0263 | c | Execute Discrete,Above_Bound 008f 7005 |p | Jump_Nonzero 0x95 0090 4800 |H | Short_Literal 0x0 0091 00d9 | | Load_Top At_Offset_1 0092 e603 | | Load 0x3,0x3 0093 01d6 | | Execute Vector,Field_Write 0094 3ffb |? | Loop_Increasing 0x90 0095 00d9 | | Load_Top At_Offset_1 0096 01d4 | | Execute Vector,Structure_Write 0097 BODY_0080: 0097 e003 | | Load 0x0,0x3 0098 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0099 602e |`. | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff} 009a e402 | | Load 0x2,0x2 009b e002 | | Load 0x0,0x2 009c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 009d c403 | | Store 0x2,0x3 009e e403 | | Load 0x2,0x3 009f 6803 |h | Jump_Zero 0xa3 00a0 8407 | | Call 0x2,0x7 00a1 e20f | | Load 0x1,0xf 00a2 0257 | W | Execute Discrete,Raise 00a3 00e3 | | Load_Encached Natural_Cache 00a4 00d9 | | Load_Top At_Offset_1 00a5 e003 | | Load 0x0,0x3 00a6 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00a7 6020 |` | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff} 00a8 e402 | | Load 0x2,0x2 00a9 e002 | | Load 0x0,0x2 00aa 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00ab c403 | | Store 0x2,0x3 00ac 00d1 | | Pop_Control Pop_Count_1 00ad c406 | | Store 0x2,0x6 00ae e403 | | Load 0x2,0x3 00af 6803 |h | Jump_Zero 0xb3 00b0 8407 | | Call 0x2,0x7 00b1 e20f | | Load 0x1,0xf 00b2 0257 | W | Execute Discrete,Raise 00b3 e402 | | Load 0x2,0x2 00b4 e002 | | Load 0x0,0x2 00b5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00b6 4801 |H | Short_Literal 0x1 00b7 e406 | | Load 0x2,0x6 00b8 00d8 | | Load_Top At_Offset_0 00b9 00e2 | | Load_Encached Integer_Cache 00ba 0260 | ` | Execute Discrete,In_Type 00bb 7001 |p | Jump_Nonzero 0xbd 00bc 0801 | | Execute_Immediate Raise,0x1 00bd 00da | | Load_Top At_Offset_2 00be 01cf | | Execute Vector,Slice_Read 00bf 8008 | | Call 0x0,0x8 00c0 85fc | | Call 0x2,-0x4 00c1 6802 |h | Jump_Zero 0xc4 00c2 00cc | | Action Pop_Block 00c3 7fa8 | | Jump 0x6c 00c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e7 | | .CONST 0x00e7 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 4801 |H | Short_Literal 0x1 00d4 e5f9 | | Load 0x2,-0x7 00d5 e007 | | Load 0x0,0x7 00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d7 035b | [ | Declare_Type Array,Constrained 00d8 0337 | 7 | Declare_Variable Array 00d9 00d8 | | Load_Top At_Offset_0 00da 0335 | 5 | Declare_Variable Array,Duplicate 00db 00cd | | Action Spare6_Action 00dc 00d9 | | Load_Top At_Offset_1 00dd 01d9 | | Execute Vector,Reverse_Bounds 00de 0263 | c | Execute Discrete,Above_Bound 00df 7005 |p | Jump_Nonzero 0xe5 00e0 4800 |H | Short_Literal 0x0 00e1 00d9 | | Load_Top At_Offset_1 00e2 e603 | | Load 0x3,0x3 00e3 01d6 | | Execute Vector,Field_Write 00e4 3ffb |? | Loop_Increasing 0xe0 00e5 00d9 | | Load_Top At_Offset_1 00e6 01d4 | | Execute Vector,Structure_Write 00e7 BODY_00d0: 00e7 e003 | | Load 0x0,0x3 00e8 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00e9 67de |g | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff} 00ea e402 | | Load 0x2,0x2 00eb e002 | | Load 0x0,0x2 00ec 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ed c403 | | Store 0x2,0x3 00ee e403 | | Load 0x2,0x3 00ef 6803 |h | Jump_Zero 0xf3 00f0 8407 | | Call 0x2,0x7 00f1 e20f | | Load 0x1,0xf 00f2 0257 | W | Execute Discrete,Raise 00f3 00e3 | | Load_Encached Natural_Cache 00f4 00d9 | | Load_Top At_Offset_1 00f5 e003 | | Load 0x0,0x3 00f6 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00f7 67d0 |g | Indirect_Literal Discrete,0xc8,{0x00007fff, 0xffffffff} 00f8 e402 | | Load 0x2,0x2 00f9 e002 | | Load 0x0,0x2 00fa 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00fb c403 | | Store 0x2,0x3 00fc 00d1 | | Pop_Control Pop_Count_1 00fd c406 | | Store 0x2,0x6 00fe e403 | | Load 0x2,0x3 00ff 6803 |h | Jump_Zero 0x103 0100 8407 | | Call 0x2,0x7 0101 e20f | | Load 0x1,0xf 0102 0257 | W | Execute Discrete,Raise 0103 e402 | | Load 0x2,0x2 0104 e002 | | Load 0x0,0x2 0105 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0106 4801 |H | Short_Literal 0x1 0107 e406 | | Load 0x2,0x6 0108 00d8 | | Load_Top At_Offset_0 0109 00e2 | | Load_Encached Integer_Cache 010a 0260 | ` | Execute Discrete,In_Type 010b 7001 |p | Jump_Nonzero 0x10d 010c 0801 | | Execute_Immediate Raise,0x1 010d 00da | | Load_Top At_Offset_2 010e 01cf | | Execute Vector,Slice_Read 010f 8008 | | Call 0x0,0x8 0110 85fe | | Call 0x2,-0x2 0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0122 | " | .CONST 0x0122 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 000e | | .CONST 0x000e ; Number of locals 011b INIT_0118: 011b 4800 |H | Short_Literal 0x0 011c 02cb | | Declare_Variable Entry 011d 00bf | | Action Accept_Activation 011e 480d |H | Short_Literal 0xd 011f 0299 013b | ;| Declare_Subprogram INIT_0138,For_Accept 0121 00bc | | Action Signal_Activated 0122 BODY_0118: 0122 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0123 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0124 0137 | 7 | Execute Entry,Rendezvous 0125 e001 | | Load 0x0,0x1 0126 e002 | | Load 0x0,0x2 0127 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0128 8003 | | Call 0x0,0x3 0129 00d8 | | Load_Top At_Offset_0 012a e004 | | Load 0x0,0x4 012b 0260 | ` | Execute Discrete,In_Type 012c 7001 |p | Jump_Nonzero 0x12e 012d 0801 | | Execute_Immediate Raise,0x1 012e 4801 |H | Short_Literal 0x1 012f 4806 |H | Short_Literal 0x6 0130 00e9 | | Load_Encached String_Cache 0131 0334 | 4 | Declare_Variable Array,With_Constraint 0132 5009 |P | Indirect_Literal Any,0x13c,{0x5443502f, 0x49502020} 0133 e005 | | Load 0x0,0x5 0134 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0135 8006 | | Call 0x0,0x6 0136 00bb | | Action Signal_Completion 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 4100 |A | End_Rendezvous 0x0 013c 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 0009 | | .DEBUG4 0x0004,0x0009,0xaecb,0x0000,0x0001,0x0007 0146 000b 0162 | b| .DBG4T 0x000b,0x0162,0x2801,0x4002 014a 007b 0180 | { | .DBG4T 0x007b,0x0180,0x0801,0x0002 014e 0083 0183 | | .DBG4T 0x0083,0x0183,0x0804,0x0002 0152 00d3 0190 | | .DBG4T 0x00d3,0x0190,0x0804,0x0002 0156 011b 019d | | .DBG4T 0x011b,0x019d,0x0800,0x0000 015a 011e 01a0 | | .DBG4T 0x011e,0x01a0,0x0800,0x0000 015e 013b 0000 | ; | .DBG4T 0x013b,0x0000,0x0003,0x0000 0162 ; -------------------------------------------------------------------------------------- 0162 ; Debug chain 0162 ; -------------------------------------------------------------------------------------- 0162 0008 000a | | .DBGLEN 0x0008,0x000a 0164 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0017,0x0034,0x0035,0x0037,0x003d,0x004f,0x005e,0x0060,0x0061,0x0063,0x0066,0x0069,0x006d,0x006e,0x006f 0176 0001 0002 | | .XXX[0xa] 0178 0003 0004 | | 017a 0005 0006 | | 017c 0008 0009 | | 017e 000a 000b | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug chain 0180 ; -------------------------------------------------------------------------------------- 0180 0000 0001 | | .DBGLEN 0x0000,0x0001 0182 007b | { | .DBGLNO 0x007b 0183 ; -------------------------------------------------------------------------------------- 0183 ; Debug chain 0183 ; -------------------------------------------------------------------------------------- 0183 0001 000a | | .DBGLEN 0x0001,0x000a 0185 0083 0097 | | .DBGLNO 0x0083,0x0097,0x009e,0x00a0,0x00a1,0x00a3,0x00ae,0x00b0,0x00b1,0x00b3,0x00b6 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug chain 0190 ; -------------------------------------------------------------------------------------- 0190 0001 000a | | .DBGLEN 0x0001,0x000a 0192 00d3 00e7 | | .DBGLNO 0x00d3,0x00e7,0x00ee,0x00f0,0x00f1,0x00f3,0x00fe,0x0100,0x0101,0x0103,0x0106 019d ; -------------------------------------------------------------------------------------- 019d ; Debug chain 019d ; -------------------------------------------------------------------------------------- 019d 0001 0000 | | .DBGLEN 0x0001,0x0000 019f 011b | | .DBGLNO 0x011b 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; Debug chain 01a0 ; -------------------------------------------------------------------------------------- 01a0 0000 0002 | | .DBGLEN 0x0000,0x0002 01a2 0122 0125 | " %| .DBGLNO 0x0122,0x0125 01a4 0000 0000 | | .BLANK 0000[0x5c]