|
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_03bcfe
└─⟦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 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 e014 | | Load 0x0,0x14 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 0007 | | .DEBUG4 0x0004,0x0007,0x44dd,0x0000,0x0001,0x0000 011e 0313 2903 | ) | .XXX[0xe2] 0120 9b7b 93a3 | { | 0122 2b21 6103 |+!a | 0124 a343 2903 | C) | 0126 2b63 2b6b |+c+k| 0128 2b73 a103 |+s | 012a a3cb 8329 | )| 012c 6103 a343 |a C| 012e 2903 9b4b |) K| 0130 d329 037b | ) {| 0132 3103 a343 |1 C| 0134 2903 a30b |) | 0136 1363 2960 | c)`| 0138 0000 01d8 | | 013a 0000 0221 | !| 013c 0103 7b31 | {1| 013e 032b 632b | +c+| 0140 6b2b 73a3 |k+s | 0142 9903 a379 | y| 0144 0313 2903 | ) | 0146 9b7b 93a3 | { | 0148 2b21 6103 |+!a | 014a a343 2903 | C) | 014c 2b63 2b6b |+c+k| 014e 2b73 a103 |+s | 0150 a3cb 8329 | )| 0152 6103 a343 |a C| 0154 2903 9b4b |) K| 0156 d329 037b | ) {| 0158 3103 a343 |1 C| 015a 2903 a30b |) | 015c 1363 2960 | c)`| 015e 0000 01d8 | | 0160 0000 0221 | !| 0162 0103 7b31 | {1| 0164 032b 632b | +c+| 0166 6b2b 73a3 |k+s | 0168 9903 a379 | y| 016a 0313 2903 | ) | 016c 9b7b 93a3 | { | 016e 2b21 6103 |+!a | 0170 a343 2903 | C) | 0172 2b63 2b6b |+c+k| 0174 2b73 a103 |+s | 0176 a3cb 8329 | )| 0178 6103 a343 |a C| 017a 2903 9b4b |) K| 017c d329 037b | ) {| 017e 3103 a343 |1 C| 0180 2903 a30b |) | 0182 1363 2960 | c)`| 0184 0000 0410 | | 0186 0000 021b | | 0188 0b73 2103 | s! | 018a 0903 1b7b | {| 018c 6b83 0b93 |k | 018e 4b9b 7b71 |K {q| 0190 0333 ab73 | 3 s| 0192 1ba3 4b7b | K{| 0194 7103 a343 |q C| 0196 0ba1 0323 | #| 0198 2b33 4b73 |+3Ks| 019a 2b99 03a3 |+ | 019c 4329 037b |C) {| 019e 9323 2b93 | #+ | 01a0 4b73 3903 |Ks9 | 01a2 7b31 03a3 |{1 | 01a4 4329 032b |C) +| 01a6 632b 6b2b |c+k+| 01a8 73a3 9800 |s | 01aa 0004 0000 | | 01ac 0002 2901 | ) | 01ae 030b 7321 | s!| 01b0 0309 031b | | 01b2 7b6b 830b |{k | 01b4 934b 9b7b | K {| 01b6 7103 33ab |q 3 | 01b8 731b a34b |s K| 01ba 7b71 03a3 |{q | 01bc 430b a103 |C | 01be 232b 334b |#+3K| 01c0 732b 9903 |s+ | 01c2 a343 2903 | C) | 01c4 7b93 232b |{ #+| 01c6 934b 7339 | Ks9| 01c8 037b 3103 | {1 | 01ca a343 2903 | C) | 01cc 2b63 2b6b |+c+k| 01ce 2b73 a398 |+s | 01d0 0000 0400 | | 01d2 0000 0229 | )| 01d4 0103 0b73 | s| 01d6 2103 0903 |! | 01d8 1b7b 6b83 | {k | 01da 0b93 4b9b | K | 01dc 7b71 0333 |{q 3| 01de ab73 1ba3 | s | 01e0 4b7b 7103 |K{q | 01e2 a343 0ba1 | C | 01e4 0323 2b33 | #+3| 01e6 4b73 2b99 |Ks+ | 01e8 03a3 4329 | C)| 01ea 037b 9323 | { #| 01ec 2b93 4b73 |+ Ks| 01ee 3903 7b31 |9 {1| 01f0 03a3 4329 | C)| 01f2 032b 632b | +c+| 01f4 6b2b 73a3 |k+s | 01f6 9800 0002 | | 01f8 4000 0002 |@ | 01fa 1b4b 7103 | Kq | 01fc a343 2903 | C) | 01fe a30b 1363 | c|