|
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_0bf8df
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00e0 | | .CONST 0x00e0 ; 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 0046 | F | .CONST 0x0046 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b e011 | | Load 0x0,0x11 000c e213 | | Load 0x1,0x13 000d 0098 | | Execute Package,Field_Read_Dynamic 000e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 000f e013 | | Load 0x0,0x13 0010 e213 | | Load 0x1,0x13 0011 0098 | | Execute Package,Field_Read_Dynamic 0012 0007 | | Action Break_Optional 0013 e011 | | Load 0x0,0x11 0014 e213 | | Load 0x1,0x13 0015 0098 | | Execute Package,Field_Read_Dynamic 0016 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0017 00e1 | | Load_Encached Boolean_Cache 0018 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0019 0093 0000 | | push_full_address 0x0 001b 6054 |`T | Indirect_Literal Discrete,0x70,{0x80000000, 0x00010000} 001c 0273 | s | Execute Discrete,Plus 001d 0007 | | Action Break_Optional 001e 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0020 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0022 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0024 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0026 a014 | | Store_Unchecked 0x0,0x14 0027 00c6 | | Action Check_Subprogram_Elaborated 0028 4809 |H | Short_Literal 0x9 0029 4802 |H | Short_Literal 0x2 002a 0099 | | Action Reference_Dynamic 002b 480a |H | Short_Literal 0xa 002c 4802 |H | Short_Literal 0x2 002d 0099 | | Action Reference_Dynamic 002e 0093 0000 | | push_full_address 0x0 0030 603b |`; | Indirect_Literal Discrete,0x6c,{0x80000000, 0x00010000} 0031 0273 | s | Execute Discrete,Plus 0032 e002 | | Load 0x0,0x2 0033 0273 | s | Execute Discrete,Plus 0034 e015 | | Load 0x0,0x15 0035 0273 | s | Execute Discrete,Plus 0036 480e |H | Short_Literal 0xe 0037 0007 | | Action Break_Optional 0038 4805 |H | Short_Literal 0x5 0039 e001 | | Load 0x0,0x1 003a 01d7 | | Execute Vector,Field_Read 003b 0a01 | | Execute_Immediate Plus,0x1 003c e001 | | Load 0x0,0x1 003d 01d7 | | Execute Vector,Field_Read 003e 02ab | | Declare_Subprogram For_Call,With_Address 003f 4805 |H | Short_Literal 0x5 0040 e001 | | Load 0x0,0x1 0041 01d7 | | Execute Vector,Field_Read 0042 0a03 | | Execute_Immediate Plus,0x3 0043 e001 | | Load 0x0,0x1 0044 01d7 | | Execute Vector,Field_Read 0045 02ab | | Declare_Subprogram For_Call,With_Address 0046 BODY_0008: 0046 e011 | | Load 0x0,0x11 0047 e213 | | Load 0x1,0x13 0048 0098 | | Execute Package,Field_Read_Dynamic 0049 1b12 | | Execute Package,Field_Read,Field_Number 0x12 004a e00c | | Load 0x0,0xc 004b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004c e00e | | Load 0x0,0xe 004d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004e e011 | | Load 0x0,0x11 004f e213 | | Load 0x1,0x13 0050 0098 | | Execute Package,Field_Read_Dynamic 0051 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0052 c402 | | Store 0x2,0x2 0053 e013 | | Load 0x0,0x13 0054 e213 | | Load 0x1,0x13 0055 0098 | | Execute Package,Field_Read_Dynamic 0056 e016 | | Load 0x0,0x16 0057 e213 | | Load 0x1,0x13 0058 0096 | | Execute Package,Entry 0059 c403 | | Store 0x2,0x3 005a e5ff | | Load 0x2,-0x1 005b 840f | | Call 0x2,0xf 005c e011 | | Load 0x0,0x11 005d e213 | | Load 0x1,0x13 005e 0098 | | Execute Package,Field_Read_Dynamic 005f 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0060 e403 | | Load 0x2,0x3 0061 e017 | | Load 0x0,0x17 0062 e213 | | Load 0x1,0x13 0063 0096 | | Execute Package,Entry 0064 c404 | | Store 0x2,0x4 0065 e5fb | | Load 0x2,-0x5 0066 e5fc | | Load 0x2,-0x4 0067 e5fd | | Load 0x2,-0x3 0068 e5fe | | Load 0x2,-0x2 0069 e404 | | Load 0x2,0x4 006a 8410 | | Call 0x2,0x10 006b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 006c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0070 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0074 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 007c e402 | | Load 0x2,0x2 007d e011 | | Load 0x0,0x11 007e e213 | | Load 0x1,0x13 007f 0098 | | Execute Package,Field_Read_Dynamic 0080 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0081 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 8018 | | Call 0x0,0x18 008d e405 | | Load 0x2,0x5 008e 6811 |h | Jump_Zero 0xa0 008f e009 | | Load 0x0,0x9 0090 180e | | Execute Package,Field_Execute,Field_Number 0xe 0091 4800 |H | Short_Literal 0x0 0092 e7fe | | Load 0x3,-0x2 0093 e004 | | Load 0x0,0x4 0094 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0095 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0096 0092 00d1 | | Action Push_String_Extended,0xd1 ; " depends upon " 0098 01cc | | Execute Vector,Catenate 0099 e7ff | | Load 0x3,-0x1 009a e004 | | Load 0x0,0x4 009b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 009c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 009d 01cc | | Execute Vector,Catenate 009e e00a | | Load 0x0,0xa 009f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a0 00db | | Load_Top At_Offset_3 00a1 00db | | Load_Top At_Offset_3 00a2 e403 | | Load 0x2,0x3 00a3 e019 | | Load 0x0,0x19 00a4 e213 | | Load 0x1,0x13 00a5 0096 | | Execute Package,Entry 00a6 e402 | | Load 0x2,0x2 00a7 00db | | Load_Top At_Offset_3 00a8 e011 | | Load 0x0,0x11 00a9 e213 | | Load 0x1,0x13 00aa 0098 | | Execute Package,Field_Read_Dynamic 00ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ac c402 | | Store 0x2,0x2 00ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00db | | Load_Top At_Offset_3 00b4 e004 | | Load 0x0,0x4 00b5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b6 0119 | | Execute Any,Check_In_Formal_Type 00b7 00db | | Load_Top At_Offset_3 00b8 e004 | | Load 0x0,0x4 00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ba 0119 | | Execute Any,Check_In_Formal_Type 00bb 8407 | | Call 0x2,0x7 00bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e7fd | | Load 0x3,-0x3 00c4 e01a | | Load 0x0,0x1a 00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 e7fe | | Load 0x3,-0x2 00c8 e004 | | Load 0x0,0x4 00c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ca 0119 | | Execute Any,Check_In_Formal_Type 00cb e7ff | | Load 0x3,-0x1 00cc e004 | | Load 0x0,0x4 00cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ce 0119 | | Execute Any,Check_In_Formal_Type 00cf 8408 | | Call 0x2,0x8 00d0 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00d1 ; -------------------------------------------------------------------------------------- 00d1 ; STRING TABLE 00d1 ; -------------------------------------------------------------------------------------- 00d1 0004 | | .STRTAB 0x0004->0x00d3 ; " depends upon " 00d2 0010 | | .STREND 0x0010->0x00da 00d3 2064 6570 | dep| .STRTAB_STRINGS 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0ba3,0x0000,0x0001,0x0000 00e6 a009 a047 | G| .XXX[0x16] 00e8 88f7 8024 | $| 00ea 6047 8028 |`G (| 00ec 6044 0e72 |`D r| 00ee a00f a00b | | 00f0 a00c 085c | \| 00f2 e009 2003 | | 00f4 a00c 085c | \| 00f6 e003 a00e | | 00f8 182c 0320 | , | 00fa ff89 140c | | 00fc 0000 0000 | | .BLANK 0000[0x6] 0102 085c 0010 | \ | .XXX[0x73] 0104 001b 8030 | 0| 0106 6c3c 0b1c |l< | 0108 0360 7003 | `p | 010a 8030 6c37 | 0l7| 010c 8038 6c44 | 8lD| 010e 0b1c 0360 | `| 0110 7003 8038 |p 8| 0112 6c54 0b1f |lT | 0114 8038 605e | 8`^| 0116 a014 0a7c | || 0118 172c 02f8 | , | 011a 0248 1873 | H s| 011c 88e7 8024 | $| 011e 6047 8028 |`G (| 0120 6044 0e5a |`D Z| 0122 1831 2003 | 1 | 0124 900c 085c | \| 0126 e001 2007 | | 0128 900c 085c | \| 012a e007 a7ff | | 012c 900c 085c | \| 012e e00f 900f | | 0130 9008 085c | \| 0132 e003 9008 | | 0134 085c f003 | \ | 0136 9008 085c | \| 0138 e007 8030 | 0| 013a 6043 8840 |`C @| 013c 0363 883c | c <| 013e 0981 c004 | | 0140 2007 900a | | 0142 092f 200b | / | 0144 8840 0363 | @ c| 0146 883c 0981 | < | 0148 c004 2007 | | 014a 900a 0889 | | 014c a08f 8038 | 8| 014e 6c43 a011 |lC | 0150 2001 8083 | | 0152 8034 6c39 | 4l9| 0154 2003 a009 | | 0156 200f 8038 | 8| 0158 6087 2013 |` | 015a 200f a00d | | 015c c01b 900c | | 015e 085c f016 | \ | 0160 900e 2019 | | 0162 1408 0248 | H| 0164 1877 a00f | w | 0166 8030 6c34 | 0l4| 0168 0470 7004 | pp | 016a 0733 88f8 | 3 | 016c 700b 900c |p | 016e 085c e001 | \ | 0170 1408 0000 | | 0172 0000 0000 | | 0174 0001 | | 0175 0000 0000 | | .BLANK 0000[0x5] 017a 09ec 0010 | | .XXX[0x86] 017c 0004 033f | ?| 017e 980b 9ffc | | 0180 0777 980c | w | 0182 0985 a025 | %| 0184 2016 9813 | | 0186 9ffc 0776 | v| 0188 9817 9814 | | 018a 2bff 1819 |+ | 018c 1407 980b | | 018e 9ffc 075c | \| 0190 3881 c017 |8 | 0192 9808 2807 | ( | 0194 1808 0325 | %| 0196 ff9c 033b | ;| 0198 980a 9817 | | 019a 980a 9819 | | 019c 201a 9813 | | 019e 980b 9ffc | | 01a0 075c 0360 | \ `| 01a2 34b1 c0ac |4 | 01a4 0360 30ed | `0 | 01a6 c01c 2cb1 | , | 01a8 c144 2cb9 | D, | 01aa c0ec 3ce9 | < | 01ac c095 e13c | <| 01ae 0360 34f9 | `4 | 01b0 c028 0360 | ( `| 01b2 31f1 c008 |1 | 01b4 0345 e11c | E | 01b6 2df1 c0a8 |- | 01b8 3df9 c0f5 |= | 01ba e108 2ced | , | 01bc c0f4 3cf1 | < | 01be c0fb 980b | | 01c0 980c 09f1 | | 01c2 a027 9808 | ' | 01c4 2807 9ffc |( | 01c6 075c 3cf9 | \< | 01c8 a00f 9808 | | 01ca 2807 1819 |( | 01cc 2002 9811 | | 01ce e0b8 3c29 | <)| 01d0 c0a9 e0af | | 01d2 980b 980c | | 01d4 09f1 a09f | | 01d6 9808 2807 | ( | 01d8 9ffc 075c | \| 01da 3cf5 a087 |< | 01dc 9808 2807 | ( | 01de 1819 2002 | | 01e0 9811 e06c | l| 01e2 0345 2006 | E | 01e4 9811 e05c | \| 01e6 0347 980b | G | 01e8 980c 09f1 | | 01ea a04b 9808 | K | 01ec 2807 9ffc |( | 01ee 075c 3cb9 | \< | 01f0 a033 9808 | 3 | 01f2 2807 1819 |( | 01f4 200a 9811 | | 01f6 e019 200e | | 01f8 9811 e00c | | 01fa 0345 2012 | E | 01fc 9813 9818 | | 01fe 2807 1809 |( |