|
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_779ce4
└─⟦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 0170 | p | .CONST 0x0170 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0011 00c7 | | Action Elaborate_Subprogram 0012 029b 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Unelaborated 0014 029b 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Unelaborated 0016 029b 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Unelaborated 0018 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0019 00c7 | | Action Elaborate_Subprogram 001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001b 00c7 | | Action Elaborate_Subprogram 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001d 00c7 | | Action Elaborate_Subprogram 001e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0034 | 4 | .CONST 0x0034 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0005 | | .CONST 0x0005 ; Number of locals 002b INIT_0028: 002b 00db | | Load_Top At_Offset_3 002c 00db | | Load_Top At_Offset_3 002d 820e | | Call 0x1,0xe 002e e002 | | Load 0x0,0x2 002f 0007 | | Action Break_Optional 0030 00d8 | | Load_Top At_Offset_0 0031 0007 | | Action Break_Optional 0032 e003 | | Load 0x0,0x3 0033 0007 | | Action Break_Optional 0034 BODY_0028: 0034 e5fe | | Load 0x2,-0x2 0035 4626 |F& | Jump_Case 0x27 0036 7826 |x& | Jump 0x5d ; case 0x0 0037 7825 |x% | Jump 0x5d ; case 0x1 0038 7824 |x$ | Jump 0x5d ; case 0x2 0039 7823 |x# | Jump 0x5d ; case 0x3 003a 7822 |x" | Jump 0x5d ; case 0x4 003b 7821 |x! | Jump 0x5d ; case 0x5 003c 7820 |x | Jump 0x5d ; case 0x6 003d 781f |x | Jump 0x5d ; case 0x7 003e 781e |x | Jump 0x5d ; case 0x8 003f 7820 |x | Jump 0x60 ; case 0x9 0040 781c |x | Jump 0x5d ; case 0xa 0041 781e |x | Jump 0x60 ; case 0xb 0042 781a |x | Jump 0x5d ; case 0xc 0043 781c |x | Jump 0x60 ; case 0xd 0044 7818 |x | Jump 0x5d ; case 0xe 0045 7817 |x | Jump 0x5d ; case 0xf 0046 7816 |x | Jump 0x5d ; case 0x10 0047 7815 |x | Jump 0x5d ; case 0x11 0048 7814 |x | Jump 0x5d ; case 0x12 0049 7813 |x | Jump 0x5d ; case 0x13 004a 7812 |x | Jump 0x5d ; case 0x14 004b 7811 |x | Jump 0x5d ; case 0x15 004c 7810 |x | Jump 0x5d ; case 0x16 004d 780f |x | Jump 0x5d ; case 0x17 004e 780e |x | Jump 0x5d ; case 0x18 004f 780d |x | Jump 0x5d ; case 0x19 0050 780f |x | Jump 0x60 ; case 0x1a 0051 780b |x | Jump 0x5d ; case 0x1b 0052 780a |x | Jump 0x5d ; case 0x1c 0053 7809 |x | Jump 0x5d ; case 0x1d 0054 7808 |x | Jump 0x5d ; case 0x1e 0055 7807 |x | Jump 0x5d ; case 0x1f 0056 7806 |x | Jump 0x5d ; case 0x20 0057 7805 |x | Jump 0x5d ; case 0x21 0058 7804 |x | Jump 0x5d ; case 0x22 0059 7803 |x | Jump 0x5d ; case 0x23 005a 7802 |x | Jump 0x5d ; case 0x24 005b 7801 |x | Jump 0x5d ; case 0x25 005c 7800 |x | Jump 0x5d ; case 0x26 005d 00db | | Load_Top At_Offset_3 005e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 005f 7802 |x | Jump 0x62 0060 e004 | | Load 0x0,0x4 0061 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0062 e002 | | Load 0x0,0x2 0063 00d9 | | Load_Top At_Offset_1 0064 e5fd | | Load 0x2,-0x3 0065 e402 | | Load 0x2,0x2 0066 8005 | | Call 0x0,0x5 0067 8210 | | Call 0x1,0x10 0068 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0069 e002 | | Load 0x0,0x2 006a 00d9 | | Load_Top At_Offset_1 006b e403 | | Load 0x2,0x3 006c e402 | | Load 0x2,0x2 006d 8006 | | Call 0x0,0x6 006e 820f | | Call 0x1,0xf 006f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0070 00d9 | | Load_Top At_Offset_1 0071 8007 | | Call 0x0,0x7 0072 6803 |h | Jump_Zero 0x76 0073 00da | | Load_Top At_Offset_2 0074 a5fc | | Store_Unchecked 0x2,-0x4 0075 7802 |x | Jump 0x78 0076 00d9 | | Load_Top At_Offset_1 0077 a5fc | | Store_Unchecked 0x2,-0x4 0078 e5fd | | Load 0x2,-0x3 0079 e402 | | Load 0x2,0x2 007a 8008 | | Call 0x0,0x8 007b 8211 | | Call 0x1,0x11 007c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00db | | Load_Top At_Offset_3 0084 4626 |F& | Jump_Case 0x27 0085 7826 |x& | Jump 0xac ; case 0x0 0086 7825 |x% | Jump 0xac ; case 0x1 0087 7824 |x$ | Jump 0xac ; case 0x2 0088 7823 |x# | Jump 0xac ; case 0x3 0089 7822 |x" | Jump 0xac ; case 0x4 008a 7821 |x! | Jump 0xac ; case 0x5 008b 7820 |x | Jump 0xac ; case 0x6 008c 781f |x | Jump 0xac ; case 0x7 008d 781e |x | Jump 0xac ; case 0x8 008e 7822 |x" | Jump 0xb1 ; case 0x9 008f 781c |x | Jump 0xac ; case 0xa 0090 781d |x | Jump 0xae ; case 0xb 0091 781a |x | Jump 0xac ; case 0xc 0092 781b |x | Jump 0xae ; case 0xd 0093 7818 |x | Jump 0xac ; case 0xe 0094 7817 |x | Jump 0xac ; case 0xf 0095 7816 |x | Jump 0xac ; case 0x10 0096 7815 |x | Jump 0xac ; case 0x11 0097 7814 |x | Jump 0xac ; case 0x12 0098 7813 |x | Jump 0xac ; case 0x13 0099 7812 |x | Jump 0xac ; case 0x14 009a 7811 |x | Jump 0xac ; case 0x15 009b 7810 |x | Jump 0xac ; case 0x16 009c 780f |x | Jump 0xac ; case 0x17 009d 780e |x | Jump 0xac ; case 0x18 009e 780d |x | Jump 0xac ; case 0x19 009f 7814 |x | Jump 0xb4 ; case 0x1a 00a0 780b |x | Jump 0xac ; case 0x1b 00a1 780a |x | Jump 0xac ; case 0x1c 00a2 7809 |x | Jump 0xac ; case 0x1d 00a3 7808 |x | Jump 0xac ; case 0x1e 00a4 7807 |x | Jump 0xac ; case 0x1f 00a5 7806 |x | Jump 0xac ; case 0x20 00a6 7805 |x | Jump 0xac ; case 0x21 00a7 7804 |x | Jump 0xac ; case 0x22 00a8 7803 |x | Jump 0xac ; case 0x23 00a9 7802 |x | Jump 0xac ; case 0x24 00aa 7801 |x | Jump 0xac ; case 0x25 00ab 7800 |x | Jump 0xac ; case 0x26 00ac 00da | | Load_Top At_Offset_2 00ad 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ae 00da | | Load_Top At_Offset_2 00af 8009 | | Call 0x0,0x9 00b0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b1 00da | | Load_Top At_Offset_2 00b2 800a | | Call 0x0,0xa 00b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b4 00da | | Load_Top At_Offset_2 00b5 800b | | Call 0x0,0xb 00b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00b7 0000 | | .XXX[0x1] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c6 | | .CONST 0x00c6 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0006 | | .CONST 0x0006 ; Number of locals 00bb INIT_00b8: 00bb e00c | | Load 0x0,0xc 00bc 0322 | " | Declare_Variable Record 00bd 00db | | Load_Top At_Offset_3 00be 00d9 | | Load_Top At_Offset_1 00bf 017d | } | Execute Record,Structure_Write 00c0 00e1 | | Load_Encached Boolean_Cache 00c1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c2 00ec | | Load_Encached Diana_Tree_Cache 00c3 e00d | | Load 0x0,0xd 00c4 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 00c6 BODY_00b8: 00c6 00cf | | Action Mark_Auxiliary 00c7 7851 |xQ | Jump 0x119 00c8 e402 | | Load 0x2,0x2 00c9 800e | | Call 0x0,0xe 00ca a404 | | Store_Unchecked 0x2,0x4 00cb 00db | | Load_Top At_Offset_3 00cc 800f | | Call 0x0,0xf 00cd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00ce 00da | | Load_Top At_Offset_2 00cf 4626 |F& | Jump_Case 0x27 00d0 7826 |x& | Jump 0xf7 ; case 0x0 00d1 7825 |x% | Jump 0xf7 ; case 0x1 00d2 7824 |x$ | Jump 0xf7 ; case 0x2 00d3 7823 |x# | Jump 0xf7 ; case 0x3 00d4 7822 |x" | Jump 0xf7 ; case 0x4 00d5 7821 |x! | Jump 0xf7 ; case 0x5 00d6 7820 |x | Jump 0xf7 ; case 0x6 00d7 781f |x | Jump 0xf7 ; case 0x7 00d8 782c |x, | Jump 0x105 ; case 0x8 00d9 783a |x: | Jump 0x114 ; case 0x9 00da 781c |x | Jump 0xf7 ; case 0xa 00db 7838 |x8 | Jump 0x114 ; case 0xb 00dc 781a |x | Jump 0xf7 ; case 0xc 00dd 7836 |x6 | Jump 0x114 ; case 0xd 00de 7818 |x | Jump 0xf7 ; case 0xe 00df 7817 |x | Jump 0xf7 ; case 0xf 00e0 7816 |x | Jump 0xf7 ; case 0x10 00e1 7815 |x | Jump 0xf7 ; case 0x11 00e2 7814 |x | Jump 0xf7 ; case 0x12 00e3 7813 |x | Jump 0xf7 ; case 0x13 00e4 7812 |x | Jump 0xf7 ; case 0x14 00e5 7811 |x | Jump 0xf7 ; case 0x15 00e6 7810 |x | Jump 0xf7 ; case 0x16 00e7 780f |x | Jump 0xf7 ; case 0x17 00e8 780e |x | Jump 0xf7 ; case 0x18 00e9 780d |x | Jump 0xf7 ; case 0x19 00ea 7829 |x) | Jump 0x114 ; case 0x1a 00eb 780b |x | Jump 0xf7 ; case 0x1b 00ec 780a |x | Jump 0xf7 ; case 0x1c 00ed 7809 |x | Jump 0xf7 ; case 0x1d 00ee 7808 |x | Jump 0xf7 ; case 0x1e 00ef 7807 |x | Jump 0xf7 ; case 0x1f 00f0 7806 |x | Jump 0xf7 ; case 0x20 00f1 7805 |x | Jump 0xf7 ; case 0x21 00f2 7804 |x | Jump 0xf7 ; case 0x22 00f3 7803 |x | Jump 0xf7 ; case 0x23 00f4 7802 |x | Jump 0xf7 ; case 0x24 00f5 7801 |x | Jump 0xf7 ; case 0x25 00f6 7800 |x | Jump 0xf7 ; case 0x26 00f7 e403 | | Load 0x2,0x3 00f8 701c |p | Jump_Nonzero 0x115 00f9 e5fd | | Load 0x2,-0x3 00fa 4800 |H | Short_Literal 0x0 00fb 4800 |H | Short_Literal 0x0 00fc e010 | | Load 0x0,0x10 00fd e5fe | | Load 0x2,-0x2 00fe e402 | | Load 0x2,0x2 00ff e404 | | Load 0x2,0x4 0100 8011 | | Call 0x0,0x11 0101 a5fc | | Store_Unchecked 0x2,-0x4 0102 4801 |H | Short_Literal 0x1 0103 a403 | | Store_Unchecked 0x2,0x3 0104 7810 |x | Jump 0x115 0105 e002 | | Load 0x0,0x2 0106 e004 | | Load 0x0,0x4 0107 e5fe | | Load 0x2,-0x2 0108 e404 | | Load 0x2,0x4 0109 8012 | | Call 0x0,0x12 010a 820f | | Call 0x1,0xf 010b c5fc | | Store 0x2,-0x4 010c e002 | | Load 0x0,0x2 010d e004 | | Load 0x0,0x4 010e e5fe | | Load 0x2,-0x2 010f e404 | | Load 0x2,0x4 0110 8013 | | Call 0x0,0x13 0111 820f | | Call 0x1,0xf 0112 c5fc | | Store 0x2,-0x4 0113 7801 |x | Jump 0x115 0114 8406 | | Call 0x2,0x6 0115 e402 | | Load 0x2,0x2 0116 8014 | | Call 0x0,0x14 0117 00d1 | | Pop_Control Pop_Count_1 0118 00c9 | | Action Pop_Auxiliary_Loop 0119 e402 | | Load 0x2,0x2 011a 8015 | | Call 0x0,0x15 011b 6fac |o | Jump_Zero 0xc8 011c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0129 | ) | .CONST 0x0129 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 e00c | | Load 0x0,0xc 0124 0322 | " | Declare_Variable Record 0125 00db | | Load_Top At_Offset_3 0126 00d9 | | Load_Top At_Offset_1 0127 017d | } | Execute Record,Structure_Write 0128 00ec | | Load_Encached Diana_Tree_Cache 0129 BODY_0120: 0129 00d9 | | Load_Top At_Offset_1 012a 8015 | | Call 0x0,0x15 012b 700f |p | Jump_Nonzero 0x13b 012c 00d9 | | Load_Top At_Offset_1 012d 800e | | Call 0x0,0xe 012e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 012f 00d9 | | Load_Top At_Offset_1 0130 8014 | | Call 0x0,0x14 0131 00d1 | | Pop_Control Pop_Count_1 0132 e5fd | | Load 0x2,-0x3 0133 4801 |H | Short_Literal 0x1 0134 4800 |H | Short_Literal 0x0 0135 e010 | | Load 0x0,0x10 0136 e5fe | | Load 0x2,-0x2 0137 e402 | | Load 0x2,0x2 0138 e403 | | Load 0x2,0x3 0139 8011 | | Call 0x0,0x11 013a a5fc | | Store_Unchecked 0x2,-0x4 013b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0149 | I | .CONST 0x0149 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0003 | | .CONST 0x0003 ; Number of locals 0143 INIT_0140: 0143 e00c | | Load 0x0,0xc 0144 0322 | " | Declare_Variable Record 0145 00db | | Load_Top At_Offset_3 0146 00d9 | | Load_Top At_Offset_1 0147 017d | } | Execute Record,Structure_Write 0148 e002 | | Load 0x0,0x2 0149 BODY_0140: 0149 00cf | | Action Mark_Auxiliary 014a 00da | | Load_Top At_Offset_2 014b 8015 | | Call 0x0,0x15 014c 700d |p | Jump_Nonzero 0x15a 014d e002 | | Load 0x0,0x2 014e e004 | | Load 0x0,0x4 014f e5fe | | Load 0x2,-0x2 0150 e402 | | Load 0x2,0x2 0151 800e | | Call 0x0,0xe 0152 8016 | | Call 0x0,0x16 0153 8210 | | Call 0x1,0x10 0154 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0155 00da | | Load_Top At_Offset_2 0156 8014 | | Call 0x0,0x14 0157 00d1 | | Pop_Control Pop_Count_1 0158 00c9 | | Action Pop_Auxiliary_Loop 0159 7ff0 | | Jump 0x14a 015a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 015b 0000 0000 | | .BLANK 0000[0x5] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0165 | e | .CONST 0x0165 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0002 | | .CONST 0x0002 ; Number of locals 0163 INIT_0160: 0163 e002 | | Load 0x0,0x2 0164 0007 | | Action Break_Optional 0165 BODY_0160: 0165 e004 | | Load 0x0,0x4 0166 4800 |H | Short_Literal 0x0 0167 4800 |H | Short_Literal 0x0 0168 e010 | | Load 0x0,0x10 0169 e5fe | | Load 0x2,-0x2 016a e017 | | Load 0x0,0x17 016b e404 | | Load 0x2,0x4 016c 8011 | | Call 0x0,0x11 016d 0031 | 1 | Store_Top Heap_Access,At_Offset_1 016e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug Table 0170 ; -------------------------------------------------------------------------------------- 0170 0004 000a | | .DEBUG4 0x0004,0x000a,0xa1b5,0x0000,0x0001,0x0000 0176 0000 0000 | | .BLANK 0000[0x8a]