|
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_0340e4
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0023 | # | .CONST 0x0023 ; Address of begin 0019 0089 | | .CONST 0x0089 ; Address of exception handler 001a 0003 | | .CONST 0x0003 ; Number of locals 001b INIT_0018: 001b 029e 0093 | | Declare_Subprogram INIT_0090,For_Call,Unelaborated 001d 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 001f 4802 |H | Short_Literal 0x2 0020 4802 |H | Short_Literal 0x2 0021 0099 | | Action Reference_Dynamic 0022 00c7 | | Action Elaborate_Subprogram 0023 BODY_0018: 0023 4800 |H | Short_Literal 0x0 0024 a5f9 | | Store_Unchecked 0x2,-0x7 0025 e5fb | | Load 0x2,-0x5 0026 e001 | | Load 0x0,0x1 0027 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0028 4606 |F | Jump_Case 0x7 0029 7806 |x | Jump 0x30 ; case 0x0 002a 7805 |x | Jump 0x30 ; case 0x1 002b 7817 |x | Jump 0x43 ; case 0x2 002c 7859 |xY | Jump 0x86 ; case 0x3 002d 7802 |x | Jump 0x30 ; case 0x4 002e 7801 |x | Jump 0x30 ; case 0x5 002f 7800 |x | Jump 0x30 ; case 0x6 0030 e5fb | | Load 0x2,-0x5 0031 e002 | | Load 0x0,0x2 0032 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0033 6803 |h | Jump_Zero 0x37 0034 e5fb | | Load 0x2,-0x5 0035 8403 | | Call 0x2,0x3 0036 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0037 e5fb | | Load 0x2,-0x5 0038 e003 | | Load 0x0,0x3 0039 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 003a 6805 |h | Jump_Zero 0x40 003b e5fb | | Load 0x2,-0x5 003c e003 | | Load 0x0,0x3 003d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 003e 8403 | | Call 0x2,0x3 003f 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0040 e001 | | Load 0x0,0x1 0041 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0042 0257 | W | Execute Discrete,Raise 0043 e5fb | | Load 0x2,-0x5 0044 e004 | | Load 0x0,0x4 0045 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0046 4626 |F& | Jump_Case 0x27 0047 7826 |x& | Jump 0x6e ; case 0x0 0048 7825 |x% | Jump 0x6e ; case 0x1 0049 7824 |x$ | Jump 0x6e ; case 0x2 004a 7823 |x# | Jump 0x6e ; case 0x3 004b 7822 |x" | Jump 0x6e ; case 0x4 004c 7821 |x! | Jump 0x6e ; case 0x5 004d 7820 |x | Jump 0x6e ; case 0x6 004e 781f |x | Jump 0x6e ; case 0x7 004f 781e |x | Jump 0x6e ; case 0x8 0050 7827 |x' | Jump 0x78 ; case 0x9 0051 781c |x | Jump 0x6e ; case 0xa 0052 781e |x | Jump 0x71 ; case 0xb 0053 781a |x | Jump 0x6e ; case 0xc 0054 781c |x | Jump 0x71 ; case 0xd 0055 7818 |x | Jump 0x6e ; case 0xe 0056 7817 |x | Jump 0x6e ; case 0xf 0057 7816 |x | Jump 0x6e ; case 0x10 0058 7815 |x | Jump 0x6e ; case 0x11 0059 7814 |x | Jump 0x6e ; case 0x12 005a 7813 |x | Jump 0x6e ; case 0x13 005b 7812 |x | Jump 0x6e ; case 0x14 005c 7811 |x | Jump 0x6e ; case 0x15 005d 7810 |x | Jump 0x6e ; case 0x16 005e 780f |x | Jump 0x6e ; case 0x17 005f 780e |x | Jump 0x6e ; case 0x18 0060 780d |x | Jump 0x6e ; case 0x19 0061 781d |x | Jump 0x7f ; case 0x1a 0062 780b |x | Jump 0x6e ; case 0x1b 0063 780a |x | Jump 0x6e ; case 0x1c 0064 7809 |x | Jump 0x6e ; case 0x1d 0065 7808 |x | Jump 0x6e ; case 0x1e 0066 7807 |x | Jump 0x6e ; case 0x1f 0067 7806 |x | Jump 0x6e ; case 0x20 0068 7805 |x | Jump 0x6e ; case 0x21 0069 7804 |x | Jump 0x6e ; case 0x22 006a 7803 |x | Jump 0x6e ; case 0x23 006b 7802 |x | Jump 0x6e ; case 0x24 006c 7801 |x | Jump 0x6e ; case 0x25 006d 7800 |x | Jump 0x6e ; case 0x26 006e e001 | | Load 0x0,0x1 006f 1b59 | Y | Execute Package,Field_Read,Field_Number 0x59 0070 0257 | W | Execute Discrete,Raise 0071 e5fb | | Load 0x2,-0x5 0072 e004 | | Load 0x0,0x4 0073 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0074 e002 | | Load 0x0,0x2 0075 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0076 8402 | | Call 0x2,0x2 0077 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0078 e5fb | | Load 0x2,-0x5 0079 e004 | | Load 0x0,0x4 007a 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 007b e002 | | Load 0x0,0x2 007c 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 007d 8402 | | Call 0x2,0x2 007e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 007f e5fb | | Load 0x2,-0x5 0080 e004 | | Load 0x0,0x4 0081 1856 | V | Execute Package,Field_Execute,Field_Number 0x56 0082 e002 | | Load 0x0,0x2 0083 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0084 8402 | | Call 0x2,0x2 0085 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0086 e5fb | | Load 0x2,-0x5 0087 8403 | | Call 0x2,0x3 0088 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0089 TRAP_0018: 0089 e005 | | Load 0x0,0x5 008a 010f | | Execute Exception,Equal 008b 6801 |h | Jump_Zero 0x8d 008c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 008d 0100 | | Execute Exception,Raise 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0098 | | .CONST 0x0098 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 e001 | | Load 0x0,0x1 0094 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0095 02c7 | | Declare_Variable Any 0096 00db | | Load_Top At_Offset_3 0097 a602 | | Store_Unchecked 0x3,0x2 0098 BODY_0090: 0098 00cf | | Action Mark_Auxiliary 0099 780e |x | Jump 0xa8 009a 00d9 | | Load_Top At_Offset_1 009b e001 | | Load 0x0,0x1 009c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 009d 8403 | | Call 0x2,0x3 009e e5f9 | | Load 0x2,-0x7 009f 0f02 | | Execute_Immediate Equal,0x2 00a0 7001 |p | Jump_Nonzero 0xa2 00a1 7801 |x | Jump 0xa3 00a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a3 00d9 | | Load_Top At_Offset_1 00a4 e001 | | Load 0x0,0x1 00a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00a6 c602 | | Store 0x3,0x2 00a7 00c9 | | Action Pop_Auxiliary_Loop 00a8 00d9 | | Load_Top At_Offset_1 00a9 e001 | | Load 0x0,0x1 00aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ab 6fee |o | Jump_Zero 0x9a 00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b8 | | .CONST 0x00b8 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 e001 | | Load 0x0,0x1 00b4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 BODY_00b0: 00b8 e5f9 | | Load 0x2,-0x7 00b9 e5fa | | Load 0x2,-0x6 00ba 00d8 | | Load_Top At_Offset_0 00bb 0120 | | Execute Any,Is_Value 00bc 6803 |h | Jump_Zero 0xc0 00bd e5fc | | Load 0x2,-0x4 00be 011e | | Execute Any,Convert 00bf 7802 |x | Jump 0xc2 00c0 e5fc | | Load 0x2,-0x4 00c1 0119 | | Execute Any,Check_In_Formal_Type 00c2 e7ff | | Load 0x3,-0x1 00c3 85fd | | Call 0x2,-0x3 00c4 c5fa | | Store 0x2,-0x6 00c5 c5f9 | | Store 0x2,-0x7 00c6 e5f9 | | Load 0x2,-0x7 00c7 4603 |F | Jump_Case 0x4 00c8 7805 |x | Jump 0xce ; case 0x0 00c9 7853 |xS | Jump 0x11d ; case 0x1 00ca 7852 |xR | Jump 0x11d ; case 0x2 00cb 7800 |x | Jump 0xcc ; case 0x3 00cc e005 | | Load 0x0,0x5 00cd 0257 | W | Execute Discrete,Raise 00ce 00db | | Load_Top At_Offset_3 00cf e002 | | Load 0x0,0x2 00d0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00d1 4613 |F | Jump_Case 0x14 00d2 784a |xJ | Jump 0x11d ; case 0x0 00d3 7849 |xI | Jump 0x11d ; case 0x1 00d4 7848 |xH | Jump 0x11d ; case 0x2 00d5 7847 |xG | Jump 0x11d ; case 0x3 00d6 7846 |xF | Jump 0x11d ; case 0x4 00d7 7845 |xE | Jump 0x11d ; case 0x5 00d8 7844 |xD | Jump 0x11d ; case 0x6 00d9 7843 |xC | Jump 0x11d ; case 0x7 00da 7842 |xB | Jump 0x11d ; case 0x8 00db 7841 |xA | Jump 0x11d ; case 0x9 00dc 7840 |x@ | Jump 0x11d ; case 0xa 00dd 7824 |x$ | Jump 0x102 ; case 0xb 00de 780c |x | Jump 0xeb ; case 0xc 00df 7806 |x | Jump 0xe6 ; case 0xd 00e0 7838 |x8 | Jump 0x119 ; case 0xe 00e1 783b |x; | Jump 0x11d ; case 0xf 00e2 783a |x: | Jump 0x11d ; case 0x10 00e3 7839 |x9 | Jump 0x11d ; case 0x11 00e4 7838 |x8 | Jump 0x11d ; case 0x12 00e5 7837 |x7 | Jump 0x11d ; case 0x13 00e6 00db | | Load_Top At_Offset_3 00e7 e002 | | Load 0x0,0x2 00e8 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00e9 8402 | | Call 0x2,0x2 00ea 7832 |x2 | Jump 0x11d 00eb 00db | | Load_Top At_Offset_3 00ec e002 | | Load 0x0,0x2 00ed 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00ee c602 | | Store 0x3,0x2 00ef 00cf | | Action Mark_Auxiliary 00f0 780b |x | Jump 0xfc 00f1 00d9 | | Load_Top At_Offset_1 00f2 e001 | | Load 0x0,0x1 00f3 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00f4 e002 | | Load 0x0,0x2 00f5 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00f6 8402 | | Call 0x2,0x2 00f7 00d9 | | Load_Top At_Offset_1 00f8 e001 | | Load 0x0,0x1 00f9 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00fa c602 | | Store 0x3,0x2 00fb 00c9 | | Action Pop_Auxiliary_Loop 00fc 00d9 | | Load_Top At_Offset_1 00fd e001 | | Load 0x0,0x1 00fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ff 6ff1 |o | Jump_Zero 0xf1 0100 00ce | | Action Pop_Auxiliary 0101 781b |x | Jump 0x11d 0102 00db | | Load_Top At_Offset_3 0103 e002 | | Load 0x0,0x2 0104 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0105 c602 | | Store 0x3,0x2 0106 00cf | | Action Mark_Auxiliary 0107 780b |x | Jump 0x113 0108 00d9 | | Load_Top At_Offset_1 0109 e001 | | Load 0x0,0x1 010a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 010b e002 | | Load 0x0,0x2 010c 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 010d 8402 | | Call 0x2,0x2 010e 00d9 | | Load_Top At_Offset_1 010f e001 | | Load 0x0,0x1 0110 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0111 c602 | | Store 0x3,0x2 0112 00c9 | | Action Pop_Auxiliary_Loop 0113 00d9 | | Load_Top At_Offset_1 0114 e001 | | Load 0x0,0x1 0115 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0116 6ff1 |o | Jump_Zero 0x108 0117 00ce | | Action Pop_Auxiliary 0118 7804 |x | Jump 0x11d 0119 00db | | Load_Top At_Offset_3 011a e002 | | Load 0x0,0x2 011b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 011c 8402 | | Call 0x2,0x2 011d e5f9 | | Load 0x2,-0x7 011e e5fa | | Load 0x2,-0x6 011f 00d8 | | Load_Top At_Offset_0 0120 0120 | | Execute Any,Is_Value 0121 6803 |h | Jump_Zero 0x125 0122 e5fc | | Load 0x2,-0x4 0123 011e | | Execute Any,Convert 0124 7802 |x | Jump 0x127 0125 e5fc | | Load 0x2,-0x4 0126 0119 | | Execute Any,Check_In_Formal_Type 0127 e7ff | | Load 0x3,-0x1 0128 85fe | | Call 0x2,-0x2 0129 c5fa | | Store 0x2,-0x6 012a c5f9 | | Store 0x2,-0x7 012b e5f9 | | Load 0x2,-0x7 012c 4800 |H | Short_Literal 0x0 012d 4802 |H | Short_Literal 0x2 012e 0262 | b | Execute Discrete,In_Range 012f 7003 |p | Jump_Nonzero 0x133 0130 7800 |x | Jump 0x131 0131 e005 | | Load 0x0,0x5 0132 0257 | W | Execute Discrete,Raise 0133 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug Table 0138 ; -------------------------------------------------------------------------------------- 0138 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f07,0x0000,0x0001,0x0004 013e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0142 001b 014e | N| .DBG4T 0x001b,0x014e,0xa801,0xc002 0146 0093 0172 | r| .DBG4T 0x0093,0x0172,0x0801,0x4002 014a 00b3 017f | | .DBG4T 0x00b3,0x017f,0x0801,0x4002 014e ; -------------------------------------------------------------------------------------- 014e ; Debug chain 014e ; -------------------------------------------------------------------------------------- 014e 0003 000e | | .DBGLEN 0x0003,0x000e 0150 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0023,0x0025,0x0030,0x0034,0x0037,0x003b,0x0040,0x0043,0x006e,0x0071,0x0078,0x007f,0x0086,0x008c 0161 0002 0003 | | .XXX[0x11] 0163 0004 0001 | | 0165 0002 0009 | | 0167 000a 000b | | 0169 000c 000d | | 016b 0003 0007 | | 016d 0004 0005 | | 016f 0006 0008 | | 0171 000e | | 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug chain 0172 ; -------------------------------------------------------------------------------------- 0172 0001 0005 | | .DBGLEN 0x0001,0x0005 0174 0093 009a | | .DBGLNO 0x0093,0x009a,0x009e,0x00a2,0x00a3,0x00a8 017a 0002 0003 | | .XXX[0x5] 017c 0004 0006 | | 017e 0001 | | 017f ; -------------------------------------------------------------------------------------- 017f ; Debug chain 017f ; -------------------------------------------------------------------------------------- 017f 0001 0011 | | .DBGLEN 0x0001,0x0011 0181 00b3 00b8 | | .DBGLNO 0x00b3,0x00b8,0x00c6,0x00cc,0x00ce,0x00e6,0x00eb,0x00f1,0x00f7,0x00fc,0x0102,0x0108,0x010e,0x0113,0x0119,0x011d,0x012b,0x0131 0193 0001 0002 | | .XXX[0x11] 0195 0010 0003 | | 0197 0005 000a | | 0199 000c 000d | | 019b 000b 0006 | | 019d 0008 0009 | | 019f 0007 0004 | | 01a1 0012 0013 | | 01a3 0014 | | 01a4 0000 0000 | | .BLANK 0000[0x5c]