|
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_03c0fe
└─⟦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 0118 | | .CONST 0x0118 ; 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 000f | | .CONST 0x000f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0003 | | .CONST 0x0003 ; Number of locals 000b INIT_0008: 000b 029f 001b | | Declare_Subprogram INIT_0018,For_Call 000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 000f BODY_0008: 000f e5fd | | Load 0x2,-0x3 0010 8403 | | Call 0x2,0x3 0011 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001e | | .CONST 0x001e ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 00da | | Load_Top At_Offset_2 001c 00eb | | Load_Encached Diana_Cache 001d 18ec | | Execute Package,Field_Execute,Field_Number 0xec 001e BODY_0018: 001e 00d8 | | Load_Top At_Offset_0 001f 6806 |h | Jump_Zero 0x26 0020 00d8 | | Load_Top At_Offset_0 0021 00eb | | Load_Encached Diana_Cache 0022 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0023 e012 | | Load 0x0,0x12 0024 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0025 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0026 4800 |H | Short_Literal 0x0 0027 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0033 | 3 | .CONST 0x0033 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0005 | | .CONST 0x0005 ; Number of locals 002b INIT_0028: 002b 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 002d 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 002f 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0031 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0033 BODY_0028: 0033 e7ff | | Load 0x3,-0x1 0034 0145 | E | Execute Heap_Access,Diana_Tree_Kind 0035 00d8 | | Load_Top At_Offset_0 0036 0d37 | 7 | Execute_Immediate Less,0x37 0037 7028 |p( | Jump_Nonzero 0x60 0038 00d8 | | Load_Top At_Offset_0 0039 0c41 | A | Execute_Immediate Greater_Equal,0x41 003a 700d |p | Jump_Nonzero 0x48 003b 0ac9 | | Execute_Immediate Plus,-0x37 003c 4609 |F | Jump_Case 0xa 003d 783d |x= | Jump 0x7b ; case 0x0 003e 783c |x< | Jump 0x7b ; case 0x1 003f 783b |x; | Jump 0x7b ; case 0x2 0040 783a |x: | Jump 0x7b ; case 0x3 0041 783b |x; | Jump 0x7d ; case 0x4 0042 7843 |xC | Jump 0x86 ; case 0x5 0043 7823 |x# | Jump 0x67 ; case 0x6 0044 7820 |x | Jump 0x65 ; case 0x7 0045 782c |x, | Jump 0x72 ; case 0x8 0046 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x9 0047 4502 |E | .XXX[0x1] 0048 00d8 | | Load_Top At_Offset_0 0049 0d73 | s | Execute_Immediate Less,0x73 004a 7010 |p | Jump_Nonzero 0x5b 004b 00d8 | | Load_Top At_Offset_0 004c 0c7d | } | Execute_Immediate Greater_Equal,0x7d 004d 7008 |p | Jump_Nonzero 0x56 004e 00d8 | | Load_Top At_Offset_0 004f 4874 |Ht | Short_Literal 0x74 0050 487b |H{ | Short_Literal 0x7b 0051 0262 | b | Execute Discrete,In_Range 0052 7010 |p | Jump_Nonzero 0x63 0053 0f7c | | | Execute_Immediate Equal,0x7c 0054 7036 |p6 | Jump_Nonzero 0x8b 0055 7841 |xA | Jump 0x97 0056 0b8c | | Execute_Immediate Case_Compare,0x8c 0057 7044 |pD | Jump_Nonzero 0x9c 0058 0fa8 | | Execute_Immediate Equal,-0x58 0059 7045 |pE | Jump_Nonzero 0x9f 005a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 005b 4842 |HB | Short_Literal 0x42 005c 4872 |Hr | Short_Literal 0x72 005d 0262 | b | Execute Discrete,In_Range 005e 7044 |pD | Jump_Nonzero 0xa3 005f 7809 |x | Jump 0x69 0060 0f02 | | Execute_Immediate Equal,0x2 0061 7019 |p | Jump_Nonzero 0x7b 0062 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0063 00d1 | | Pop_Control Pop_Count_1 0064 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0065 8602 | | Call 0x3,0x2 0066 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0067 8603 | | Call 0x3,0x3 0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0069 e7ff | | Load 0x3,-0x1 006a 00eb | | Load_Encached Diana_Cache 006b 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 006c 85fe | | Call 0x2,-0x2 006d e7ff | | Load 0x3,-0x1 006e 00eb | | Load_Encached Diana_Cache 006f 18cc | | Execute Package,Field_Execute,Field_Number 0xcc 0070 8403 | | Call 0x2,0x3 0071 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0072 e7ff | | Load 0x3,-0x1 0073 00eb | | Load_Encached Diana_Cache 0074 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0075 85fe | | Call 0x2,-0x2 0076 e7ff | | Load 0x3,-0x1 0077 00eb | | Load_Encached Diana_Cache 0078 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6 0079 8403 | | Call 0x2,0x3 007a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007b 8604 | | Call 0x3,0x4 007c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007d e7ff | | Load 0x3,-0x1 007e 00eb | | Load_Encached Diana_Cache 007f 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0080 85fe | | Call 0x2,-0x2 0081 e7ff | | Load 0x3,-0x1 0082 00eb | | Load_Encached Diana_Cache 0083 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8 0084 8403 | | Call 0x2,0x3 0085 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0086 e7ff | | Load 0x3,-0x1 0087 00eb | | Load_Encached Diana_Cache 0088 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 0089 85fe | | Call 0x2,-0x2 008a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008b e7ff | | Load 0x3,-0x1 008c 00eb | | Load_Encached Diana_Cache 008d 18bd | | Execute Package,Field_Execute,Field_Number 0xbd 008e 8403 | | Call 0x2,0x3 008f e7ff | | Load 0x3,-0x1 0090 8402 | | Call 0x2,0x2 0091 7004 |p | Jump_Nonzero 0x96 0092 e7ff | | Load 0x3,-0x1 0093 00eb | | Load_Encached Diana_Cache 0094 18be | | Execute Package,Field_Execute,Field_Number 0xbe 0095 8403 | | Call 0x2,0x3 0096 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0097 e7ff | | Load 0x3,-0x1 0098 00eb | | Load_Encached Diana_Cache 0099 18bc | | Execute Package,Field_Execute,Field_Number 0xbc 009a 8403 | | Call 0x2,0x3 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c 00d1 | | Pop_Control Pop_Count_1 009d 8605 | | Call 0x3,0x5 009e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009f e7ff | | Load 0x3,-0x1 00a0 00eb | | Load_Encached Diana_Cache 00a1 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9 00a2 8403 | | Call 0x2,0x3 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00b1 | | .CONST 0x00b1 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab e7ff | | Load 0x3,-0x1 00ac 00eb | | Load_Encached Diana_Cache 00ad 18cf | | Execute Package,Field_Execute,Field_Number 0xcf 00ae e7ff | | Load 0x3,-0x1 00af 00eb | | Load_Encached Diana_Cache 00b0 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8 00b1 BODY_00a8: 00b1 00d9 | | Load_Top At_Offset_1 00b2 85fe | | Call 0x2,-0x2 00b3 00d8 | | Load_Top At_Offset_0 00b4 8403 | | Call 0x2,0x3 00b5 00d8 | | Load_Top At_Offset_0 00b6 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00b7 0f36 | 6 | Execute_Immediate Equal,0x36 00b8 680a |h | Jump_Zero 0xc3 00b9 00d8 | | Load_Top At_Offset_0 00ba 490a |I | Short_Literal 0x10a 00bb 00eb | | Load_Encached Diana_Cache 00bc 0096 | | Execute Package,Entry 00bd 8403 | | Call 0x2,0x3 00be 00d9 | | Load_Top At_Offset_1 00bf 4904 |I | Short_Literal 0x104 00c0 00eb | | Load_Encached Diana_Cache 00c1 0096 | | Execute Package,Entry 00c2 8403 | | Call 0x2,0x3 00c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d1 | | .CONST 0x00d1 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb e7ff | | Load 0x3,-0x1 00cc 00eb | | Load_Encached Diana_Cache 00cd 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 00ce e7ff | | Load 0x3,-0x1 00cf 00eb | | Load_Encached Diana_Cache 00d0 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4 00d1 BODY_00c8: 00d1 e7ff | | Load 0x3,-0x1 00d2 00eb | | Load_Encached Diana_Cache 00d3 18bf | | Execute Package,Field_Execute,Field_Number 0xbf 00d4 85fe | | Call 0x2,-0x2 00d5 e7ff | | Load 0x3,-0x1 00d6 00eb | | Load_Encached Diana_Cache 00d7 18e4 | | Execute Package,Field_Execute,Field_Number 0xe4 00d8 8403 | | Call 0x2,0x3 00d9 00d8 | | Load_Top At_Offset_0 00da 0145 | E | Execute Heap_Access,Diana_Tree_Kind 00db 0f36 | 6 | Execute_Immediate Equal,0x36 00dc 6805 |h | Jump_Zero 0xe2 00dd 00d8 | | Load_Top At_Offset_0 00de 490a |I | Short_Literal 0x10a 00df 00eb | | Load_Encached Diana_Cache 00e0 0096 | | Execute Package,Entry 00e1 8403 | | Call 0x2,0x3 00e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f0 | | .CONST 0x00f0 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb e7ff | | Load 0x3,-0x1 00ec 00eb | | Load_Encached Diana_Cache 00ed 18d0 | | Execute Package,Field_Execute,Field_Number 0xd0 00ee 00eb | | Load_Encached Diana_Cache 00ef 1889 | | Execute Package,Field_Execute,Field_Number 0x89 00f0 BODY_00e8: 00f0 00cf | | Action Mark_Auxiliary 00f1 7808 |x | Jump 0xfa 00f2 00d9 | | Load_Top At_Offset_1 00f3 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 00f4 85fe | | Call 0x2,-0x2 00f5 00d9 | | Load_Top At_Offset_1 00f6 0217 | | Execute Heap_Access,All_Reference 00f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f8 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00f9 00c9 | | Action Pop_Auxiliary_Loop 00fa 00d9 | | Load_Top At_Offset_1 00fb 77f6 |w | Jump_Nonzero 0xf2 00fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0106 | | .CONST 0x0106 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e7ff | | Load 0x3,-0x1 0104 00eb | | Load_Encached Diana_Cache 0105 1889 | | Execute Package,Field_Execute,Field_Number 0x89 0106 BODY_0100: 0106 00cf | | Action Mark_Auxiliary 0107 7808 |x | Jump 0x110 0108 00d9 | | Load_Top At_Offset_1 0109 008b | | Action Heap_Access,Diana_Seq_Type_Get_Head 010a 8403 | | Call 0x2,0x3 010b 00d9 | | Load_Top At_Offset_1 010c 0217 | | Execute Heap_Access,All_Reference 010d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010e 0032 | 2 | Store_Top Heap_Access,At_Offset_2 010f 00c9 | | Action Pop_Auxiliary_Loop 0110 00d9 | | Load_Top At_Offset_1 0111 77f6 |w | Jump_Nonzero 0x108 0112 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc04e,0x0000,0x0001,0x0000 011e 0000 0000 | | .BLANK 0000[0xe2]