|
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_10788b
└─⟦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 0120 | | .CONST 0x0120 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call 0010 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 0012 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 0014 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 8002 | | Call 0x0,0x2 0024 00d8 | | Load_Top At_Offset_0 0025 0d09 | | Execute_Immediate Less,0x9 0026 7020 |p | Jump_Nonzero 0x47 0027 00d8 | | Load_Top At_Offset_0 0028 0c1b | | Execute_Immediate Greater_Equal,0x1b 0029 701a |p | Jump_Nonzero 0x44 002a 0af7 | | Execute_Immediate Plus,-0x9 002b 4611 |F | Jump_Case 0x12 002c 782a |x* | Jump 0x57 ; case 0x0 002d 781a |x | Jump 0x48 ; case 0x1 002e 7819 |x | Jump 0x48 ; case 0x2 002f 7818 |x | Jump 0x48 ; case 0x3 0030 7817 |x | Jump 0x48 ; case 0x4 0031 7816 |x | Jump 0x48 ; case 0x5 0032 7815 |x | Jump 0x48 ; case 0x6 0033 7814 |x | Jump 0x48 ; case 0x7 0034 7813 |x | Jump 0x48 ; case 0x8 0035 7812 |x | Jump 0x48 ; case 0x9 0036 7811 |x | Jump 0x48 ; case 0xa 0037 7810 |x | Jump 0x48 ; case 0xb 0038 780f |x | Jump 0x48 ; case 0xc 0039 7823 |x# | Jump 0x5d ; case 0xd 003a 780d |x | Jump 0x48 ; case 0xe 003b 7815 |x | Jump 0x51 ; case 0xf 003c 7831 |x1 | Jump 0x6e ; case 0x10 003d 7800 |x | Jump 0x3e ; case 0x11 003e 4800 |H | Short_Literal 0x0 003f 8003 | | Call 0x0,0x3 0040 8004 | | Call 0x0,0x4 0041 820e | | Call 0x1,0xe 0042 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0043 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0044 0f44 | D | Execute_Immediate Equal,0x44 0045 7005 |p | Jump_Nonzero 0x4b 0046 7801 |x | Jump 0x48 0047 00d1 | | Pop_Control Pop_Count_1 0048 4800 |H | Short_Literal 0x0 0049 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 004a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004b 4800 |H | Short_Literal 0x0 004c 8003 | | Call 0x0,0x3 004d 8004 | | Call 0x0,0x4 004e 8211 | | Call 0x1,0x11 004f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0050 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0051 4800 |H | Short_Literal 0x0 0052 8003 | | Call 0x0,0x3 0053 8004 | | Call 0x0,0x4 0054 820f | | Call 0x1,0xf 0055 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0057 4800 |H | Short_Literal 0x0 0058 8003 | | Call 0x0,0x3 0059 8004 | | Call 0x0,0x4 005a 820e | | Call 0x1,0xe 005b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 005c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005d 4800 |H | Short_Literal 0x0 005e 8003 | | Call 0x0,0x3 005f 8004 | | Call 0x0,0x4 0060 8005 | | Call 0x0,0x5 0061 8002 | | Call 0x0,0x2 0062 0f36 | 6 | Execute_Immediate Equal,0x36 0063 8002 | | Call 0x0,0x2 0064 0f37 | 7 | Execute_Immediate Equal,0x37 0065 0278 | x | Execute Discrete,Or 0066 6804 |h | Jump_Zero 0x6b 0067 4800 |H | Short_Literal 0x0 0068 8003 | | Call 0x0,0x3 0069 8004 | | Call 0x0,0x4 006a 8005 | | Call 0x0,0x5 006b 8210 | | Call 0x1,0x10 006c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 006d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006e 4800 |H | Short_Literal 0x0 006f 8003 | | Call 0x0,0x3 0070 8004 | | Call 0x0,0x4 0071 8005 | | Call 0x0,0x5 0072 8210 | | Call 0x1,0x10 0073 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0074 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 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 8006 | | Call 0x0,0x6 007c 0b23 | # | Execute_Immediate Case_Compare,0x23 007d 7004 |p | Jump_Nonzero 0x82 007e 0f1e | | Execute_Immediate Equal,0x1e 007f 7014 |p | Jump_Nonzero 0x94 0080 4800 |H | Short_Literal 0x0 0081 00ca | | Action Exit_Nullary_Function 0082 00d1 | | Pop_Control Pop_Count_1 0083 4800 |H | Short_Literal 0x0 0084 8003 | | Call 0x0,0x3 0085 8004 | | Call 0x0,0x4 0086 8006 | | Call 0x0,0x6 0087 0b44 | D | Execute_Immediate Case_Compare,0x44 0088 7004 |p | Jump_Nonzero 0x8d 0089 0f18 | | Execute_Immediate Equal,0x18 008a 7003 |p | Jump_Nonzero 0x8e 008b 4800 |H | Short_Literal 0x0 008c 00ca | | Action Exit_Nullary_Function 008d 00d1 | | Pop_Control Pop_Count_1 008e 4800 |H | Short_Literal 0x0 008f 8003 | | Call 0x0,0x3 0090 8004 | | Call 0x0,0x4 0091 8005 | | Call 0x0,0x5 0092 4801 |H | Short_Literal 0x1 0093 00ca | | Action Exit_Nullary_Function 0094 4800 |H | Short_Literal 0x0 0095 8003 | | Call 0x0,0x3 0096 8004 | | Call 0x0,0x4 0097 8006 | | Call 0x0,0x6 0098 0f44 | D | Execute_Immediate Equal,0x44 0099 6806 |h | Jump_Zero 0xa0 009a 4800 |H | Short_Literal 0x0 009b 8003 | | Call 0x0,0x3 009c 8004 | | Call 0x0,0x4 009d 8005 | | Call 0x0,0x5 009e 4801 |H | Short_Literal 0x1 009f 00ca | | Action Exit_Nullary_Function 00a0 4800 |H | Short_Literal 0x0 00a1 00ca | | Action Exit_Nullary_Function 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ac | | .CONST 0x00ac ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 00e1 | | Load_Encached Boolean_Cache 00ac BODY_00a8: 00ac 8006 | | Call 0x0,0x6 00ad 0b1c | | Execute_Immediate Case_Compare,0x1c 00ae 7005 |p | Jump_Nonzero 0xb4 00af 0f1e | | Execute_Immediate Equal,0x1e 00b0 700a |p | Jump_Nonzero 0xbb 00b1 4800 |H | Short_Literal 0x0 00b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00b3 780c |x | Jump 0xc0 00b4 00d1 | | Pop_Control Pop_Count_1 00b5 4800 |H | Short_Literal 0x0 00b6 8003 | | Call 0x0,0x3 00b7 8004 | | Call 0x0,0x4 00b8 4801 |H | Short_Literal 0x1 00b9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00ba 7805 |x | Jump 0xc0 00bb 4800 |H | Short_Literal 0x0 00bc 8003 | | Call 0x0,0x3 00bd 8004 | | Call 0x0,0x4 00be 4801 |H | Short_Literal 0x1 00bf 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00c0 00d8 | | Load_Top At_Offset_0 00c1 680a |h | Jump_Zero 0xcc 00c2 8006 | | Call 0x0,0x6 00c3 0f44 | D | Execute_Immediate Equal,0x44 00c4 6805 |h | Jump_Zero 0xca 00c5 4800 |H | Short_Literal 0x0 00c6 8003 | | Call 0x0,0x3 00c7 8004 | | Call 0x0,0x4 00c8 8005 | | Call 0x0,0x5 00c9 7802 |x | Jump 0xcc 00ca 4800 |H | Short_Literal 0x0 00cb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00cc 00d8 | | Load_Top At_Offset_0 00cd 00ca | | Action Exit_Nullary_Function 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 8002 | | Call 0x0,0x2 00d4 0f1e | | Execute_Immediate Equal,0x1e 00d5 680c |h | Jump_Zero 0xe2 00d6 4800 |H | Short_Literal 0x0 00d7 8003 | | Call 0x0,0x3 00d8 8004 | | Call 0x0,0x4 00d9 8006 | | Call 0x0,0x6 00da 0f44 | D | Execute_Immediate Equal,0x44 00db 6806 |h | Jump_Zero 0xe2 00dc 4801 |H | Short_Literal 0x1 00dd 8003 | | Call 0x0,0x3 00de 8004 | | Call 0x0,0x4 00df 8005 | | Call 0x0,0x5 00e0 4801 |H | Short_Literal 0x1 00e1 00ca | | Action Exit_Nullary_Function 00e2 4800 |H | Short_Literal 0x0 00e3 00ca | | Action Exit_Nullary_Function 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 8006 | | Call 0x0,0x6 00ec 0b23 | # | Execute_Immediate Case_Compare,0x23 00ed 700e |p | Jump_Nonzero 0xfc 00ee 0f1c | | Execute_Immediate Equal,0x1c 00ef 701b |p | Jump_Nonzero 0x10b 00f0 8002 | | Call 0x0,0x2 00f1 0f36 | 6 | Execute_Immediate Equal,0x36 00f2 8002 | | Call 0x0,0x2 00f3 0f37 | 7 | Execute_Immediate Equal,0x37 00f4 0278 | x | Execute Discrete,Or 00f5 6804 |h | Jump_Zero 0xfa 00f6 4800 |H | Short_Literal 0x0 00f7 8003 | | Call 0x0,0x3 00f8 8004 | | Call 0x0,0x4 00f9 8005 | | Call 0x0,0x5 00fa 8210 | | Call 0x1,0x10 00fb 00ca | | Action Exit_Nullary_Function 00fc 00d1 | | Pop_Control Pop_Count_1 00fd 4800 |H | Short_Literal 0x0 00fe 8003 | | Call 0x0,0x3 00ff 8004 | | Call 0x0,0x4 0100 8006 | | Call 0x0,0x6 0101 0f44 | D | Execute_Immediate Equal,0x44 0102 7002 |p | Jump_Nonzero 0x105 0103 4800 |H | Short_Literal 0x0 0104 00ca | | Action Exit_Nullary_Function 0105 4800 |H | Short_Literal 0x0 0106 8003 | | Call 0x0,0x3 0107 8004 | | Call 0x0,0x4 0108 8005 | | Call 0x0,0x5 0109 4801 |H | Short_Literal 0x1 010a 00ca | | Action Exit_Nullary_Function 010b 4800 |H | Short_Literal 0x0 010c 8003 | | Call 0x0,0x3 010d 8004 | | Call 0x0,0x4 010e 8006 | | Call 0x0,0x6 010f 0f44 | D | Execute_Immediate Equal,0x44 0110 7002 |p | Jump_Nonzero 0x113 0111 4800 |H | Short_Literal 0x0 0112 00ca | | Action Exit_Nullary_Function 0113 4800 |H | Short_Literal 0x0 0114 8003 | | Call 0x0,0x3 0115 8004 | | Call 0x0,0x4 0116 8005 | | Call 0x0,0x5 0117 4801 |H | Short_Literal 0x1 0118 00ca | | Action Exit_Nullary_Function 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0008 | | .DEBUG4 0x0004,0x0008,0xc764,0x0000,0x0001,0x0007 0126 000b 0142 | B| .DBG4T 0x000b,0x0142,0x8000,0x0000 012a 000e 0145 | E| .DBG4T 0x000e,0x0145,0x8000,0x0000 012e 0023 014c | # L| .DBG4T 0x0023,0x014c,0x0001,0x4000 0132 007b 0174 | { t| .DBG4T 0x007b,0x0174,0x0002,0x4000 0136 00ab 0192 | | .DBG4T 0x00ab,0x0192,0x0002,0x4000 013a 00d3 01ad | | .DBG4T 0x00d3,0x01ad,0x0002,0x0000 013e 00eb 01b6 | | .DBG4T 0x00eb,0x01b6,0x0002,0x4000 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug chain 0142 ; -------------------------------------------------------------------------------------- 0142 0001 0000 | | .DBGLEN 0x0001,0x0000 0144 000b | | .DBGLNO 0x000b 0145 ; -------------------------------------------------------------------------------------- 0145 ; Debug chain 0145 ; -------------------------------------------------------------------------------------- 0145 0005 0000 | | .DBGLEN 0x0005,0x0000 0147 000e 0010 | | .DBGLNO 0x000e,0x0010,0x0012,0x0014,0x0016 014c ; -------------------------------------------------------------------------------------- 014c ; Debug chain 014c ; -------------------------------------------------------------------------------------- 014c 0000 0013 | | .DBGLEN 0x0000,0x0013 014e 0023 003e | # >| .DBGLNO 0x0023,0x003e,0x0041,0x0048,0x004b,0x004e,0x0051,0x0054,0x0057,0x005a,0x005d,0x0060,0x0061,0x0067,0x006a,0x006b,0x006e,0x0071,0x0072 0161 0001 0004 | | .XXX[0x13] 0163 0005 0013 | | 0165 0002 0003 | | 0167 0006 0007 | | 0169 0008 0009 | | 016b 000a 000b | | 016d 000c 000d | | 016f 000e 000f | | 0171 0010 0011 | | 0173 0012 | | 0174 ; -------------------------------------------------------------------------------------- 0174 ; Debug chain 0174 ; -------------------------------------------------------------------------------------- 0174 0000 000e | | .DBGLEN 0x0000,0x000e 0176 007b 0080 | { | .DBGLNO 0x007b,0x0080,0x0083,0x0086,0x008b,0x008e,0x0091,0x0092,0x0094,0x0097,0x009a,0x009d,0x009e,0x00a0 0184 0001 000e | | .XXX[0xe] 0186 0002 0003 | | 0188 0007 0004 | | 018a 0005 0006 | | 018c 0008 0009 | | 018e 000a 000b | | 0190 000c 000d | | 0192 ; -------------------------------------------------------------------------------------- 0192 ; Debug chain 0192 ; -------------------------------------------------------------------------------------- 0192 0001 000c | | .DBGLEN 0x0001,0x000c 0194 00ab 00ac | | .DBGLNO 0x00ab,0x00ac,0x00b1,0x00b5,0x00b8,0x00bb,0x00be,0x00c0,0x00c2,0x00c5,0x00c8,0x00ca,0x00cc 01a1 0001 0006 | | .XXX[0xc] 01a3 0002 0003 | | 01a5 0004 0005 | | 01a7 0007 0008 | | 01a9 0009 000a | | 01ab 000b 000c | | 01ad ; -------------------------------------------------------------------------------------- 01ad ; Debug chain 01ad ; -------------------------------------------------------------------------------------- 01ad 0000 0007 | | .DBGLEN 0x0000,0x0007 01af 00d3 00d6 | | .DBGLNO 0x00d3,0x00d6,0x00d9,0x00dc,0x00df,0x00e0,0x00e2 01b6 ; -------------------------------------------------------------------------------------- 01b6 ; Debug chain 01b6 ; -------------------------------------------------------------------------------------- 01b6 0000 0011 | | .DBGLEN 0x0000,0x0011 01b8 00eb 00f0 | | .DBGLNO 0x00eb,0x00f0,0x00f6,0x00f9,0x00fa,0x00fd,0x0100,0x0103,0x0105,0x0108,0x0109,0x010b,0x010e,0x0111,0x0113,0x0116,0x0117 01c9 0001 000e | | .XXX[0x11] 01cb 000f 0010 | | 01cd 0011 0002 | | 01cf 0003 0007 | | 01d1 0004 0005 | | 01d3 0006 0008 | | 01d5 0009 000d | | 01d7 000a 000b | | 01d9 000c | | 01da 0000 0000 | | .BLANK 0000[0x26]