|
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 0100 | | .CONST 0x0100 ; 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 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 0034 | 4 | .CONST 0x0034 ; Address of begin 0019 0085 | | .CONST 0x0085 ; Address of exception handler 001a 0007 | | .CONST 0x0007 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001d e002 | | Load 0x0,0x2 001e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001f e002 | | Load 0x0,0x2 0020 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0021 0322 | " | Declare_Variable Record 0022 00e1 | | Load_Encached Boolean_Cache 0023 e5ff | | Load 0x2,-0x1 0024 00d8 | | Load_Top At_Offset_0 0025 e002 | | Load 0x0,0x2 0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0027 0260 | ` | Execute Discrete,In_Type 0028 7001 |p | Jump_Nonzero 0x2a 0029 0801 | | Execute_Immediate Raise,0x1 002a e002 | | Load 0x0,0x2 002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002c 03f1 | | Declare_Variable Discrete,With_Value 002d 0092 0099 | | Action Push_String_Extended,0x99 ; "Tape Drive" 002f e406 | | Load 0x2,0x6 0030 00e0 | | Load_Encached Standard_Cache 0031 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0032 01cc | | Execute Vector,Catenate 0033 0007 | | Action Break_Optional 0034 BODY_0018: 0034 e003 | | Load 0x0,0x3 0035 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0036 7008 |p | Jump_Nonzero 0x3f 0037 e004 | | Load 0x0,0x4 0038 180e | | Execute Package,Field_Execute,Field_Number 0xe 0039 4805 |H | Short_Literal 0x5 003a 0092 009a | | Action Push_String_Extended,0x9a ; "Privileged mode is required to run this command" 003c e005 | | Load 0x0,0x5 003d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 003e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 003f e406 | | Load 0x2,0x6 0040 e006 | | Load 0x0,0x6 0041 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0042 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0043 e004 | | Load 0x0,0x4 0044 180e | | Execute Package,Field_Execute,Field_Number 0xe 0045 4802 |H | Short_Literal 0x2 0046 0092 009b | | Action Push_String_Extended,0x9b ; "In use flags for " 0048 e407 | | Load 0x2,0x7 0049 01cc | | Execute Vector,Catenate 004a 0092 009c | | Action Push_String_Extended,0x9c ; " have been cleared" 004c 01cc | | Execute Vector,Catenate 004d e005 | | Load 0x0,0x5 004e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004f 00cf | | Action Mark_Auxiliary 0050 4805 |H | Short_Literal 0x5 0051 4801 |H | Short_Literal 0x1 0052 0007 | | Action Break_Optional 0053 e002 | | Load 0x0,0x2 0054 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0055 e406 | | Load 0x2,0x6 0056 e007 | | Load 0x0,0x7 0057 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0058 c403 | | Store 0x2,0x3 0059 e403 | | Load 0x2,0x3 005a 7002 |p | Jump_Nonzero 0x5d 005b 00d2 | | Pop_Control Pop_Count_2 005c 7802 |x | Jump 0x5f 005d 00c8 | | Action Pop_Auxiliary_Range 005e 3ff4 |? | Loop_Increasing 0x53 005f 00ce | | Action Pop_Auxiliary 0060 00e1 | | Load_Encached Boolean_Cache 0061 e002 | | Load 0x0,0x2 0062 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0063 e406 | | Load 0x2,0x6 0064 e007 | | Load 0x0,0x7 0065 180f | | Execute Package,Field_Execute,Field_Number 0xf 0066 c402 | | Store 0x2,0x2 0067 c405 | | Store 0x2,0x5 0068 e404 | | Load 0x2,0x4 0069 4800 |H | Short_Literal 0x0 006a e406 | | Load 0x2,0x6 006b e007 | | Load 0x0,0x7 006c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006d 00d1 | | Pop_Control Pop_Count_1 006e e404 | | Load 0x2,0x4 006f 4800 |H | Short_Literal 0x0 0070 e406 | | Load 0x2,0x6 0071 e007 | | Load 0x0,0x7 0072 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0073 00d1 | | Pop_Control Pop_Count_1 0074 00cf | | Action Mark_Auxiliary 0075 4805 |H | Short_Literal 0x5 0076 4801 |H | Short_Literal 0x1 0077 0007 | | Action Break_Optional 0078 e002 | | Load 0x0,0x2 0079 1b10 | | Execute Package,Field_Read,Field_Number 0x10 007a e406 | | Load 0x2,0x6 007b e007 | | Load 0x0,0x7 007c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007d c403 | | Store 0x2,0x3 007e e403 | | Load 0x2,0x3 007f 7002 |p | Jump_Nonzero 0x82 0080 00d2 | | Pop_Control Pop_Count_2 0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0082 00c8 | | Action Pop_Auxiliary_Range 0083 3ff4 |? | Loop_Increasing 0x78 0084 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0085 TRAP_0018: 0085 010a | | Execute Exception,Is_Tasking_Error 0086 680a |h | Jump_Zero 0x91 0087 e004 | | Load 0x0,0x4 0088 180e | | Execute Package,Field_Execute,Field_Number 0xe 0089 4805 |H | Short_Literal 0x5 008a e407 | | Load 0x2,0x7 008b 0092 009d | | Action Push_String_Extended,0x9d ; " does not exist in IOP configuration" 008d 01cc | | Execute Vector,Catenate 008e e005 | | Load 0x0,0x5 008f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0090 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0091 e004 | | Load 0x0,0x4 0092 180e | | Execute Package,Field_Execute,Field_Number 0xe 0093 4805 |H | Short_Literal 0x5 0094 0092 009e | | Action Push_String_Extended,0x9e ; "Internal error while forcibly releasing tape lock" 0096 e005 | | Load 0x0,0x5 0097 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0098 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0099 ; -------------------------------------------------------------------------------------- 0099 ; STRING TABLE 0099 ; -------------------------------------------------------------------------------------- 0099 000e | | .STRTAB 0x000e->0x00a0 ; "Tape Drive" 009a 0016 | | .STRTAB 0x0016->0x00a5 ; "Privileged mode is required to run this command" 009b 0043 | C | .STRTAB 0x0043->0x00bc ; "In use flags for " 009c 0052 | R | .STRTAB 0x0052->0x00c5 ; " have been cleared" 009d 0062 | b | .STRTAB 0x0062->0x00ce ; " does not exist in IOP configuration" 009e 0084 | | .STRTAB 0x0084->0x00e0 ; "Internal error while forcibly releasing tape lock" 009f 00b3 | | .STREND 0x00b3->0x00f8 00a0 5461 7065 |Tape| .STRTAB_STRINGS 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd685,0x0000,0x0001,0x0000 0106 0022 7404 | "t | .XXX[0x6] 0108 0000 0000 | | 010a 0000 0076 | v| 010c 0000 0000 | | .BLANK 0000[0x4] 0110 09d8 9004 | | .XXX[0x14] 0112 c000 1196 | | 0114 0000 0040 | @| 0116 0000 0040 | @| 0118 09df 5404 | T | 011a 8000 0010 | | 011c 004e 900e | N | 011e 0000 00b1 | | 0120 0000 0000 | | 0122 0000 0076 | v| 0124 0000 0000 | | .BLANK 0000[0x4] 0128 09d8 9004 | | .XXX[0x1c] 012a c000 1316 | | 012c 0000 0040 | @| 012e 0000 0040 | @| 0130 09d9 0004 | | 0132 8000 0005 | | 0134 004d e80e | M | 0136 0000 00b1 | | 0138 0022 9404 | " | 013a 0000 1008 | | 013c 09d9 0804 | | 013e 09d9 0404 | | 0140 0000 0000 | | 0142 0000 0076 | v| 0144 0000 0000 | | .BLANK 0000[0x4] 0148 09d8 9004 | | .XXX[0x14] 014a c000 1516 | | 014c 0000 0040 | @| 014e 0000 0040 | @| 0150 09d9 4804 | H | 0152 8000 0013 | | 0154 004e dc0e | N | 0156 0000 00b1 | | 0158 0000 0000 | | 015a 0000 0076 | v| 015c 0000 0000 | | .BLANK 0000[0x4] 0160 09d8 9004 | | .XXX[0x1c] 0162 c000 1696 | | 0164 0000 0040 | @| 0166 0000 0040 | @| 0168 09d9 4004 | @ | 016a 8000 0026 | &| 016c 0069 680e | ih | 016e 0000 00b1 | | 0170 09d9 4804 | H | 0172 0000 13a2 | | 0174 0022 cc04 | " | 0176 09d9 4004 | @ | 0178 0000 0000 | | 017a 0000 0076 | v| 017c 0000 0000 | | .BLANK 0000[0x4] 0180 09d8 9004 | | .XXX[0x1c] 0182 c000 1896 | | 0184 0000 0040 | @| 0186 0000 0040 | @| 0188 09d9 4c04 | L | 018a 8000 0036 | 6| 018c 004f 680e | Oh | 018e 0000 00b1 | | 0190 0022 8404 | " | 0192 0000 1702 | | 0194 09d9 5004 | P | 0196 09d9 4c04 | L | 0198 0000 0000 | | 019a 0000 0076 | v| 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 09d8 9004 | | .XXX[0x14] 01a2 c000 1a96 | | 01a4 0000 0040 | @| 01a6 0000 0040 | @| 01a8 09dd d404 | | 01aa 8000 001b | | 01ac 004f 600e | O` | 01ae 0000 00b1 | | 01b0 0000 0000 | | 01b2 0000 0076 | v| 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 09d8 9004 | | .XXX[0x1c] 01ba c000 1c16 | | 01bc 0000 0040 | @| 01be 0000 0040 | @| 01c0 09d9 6004 | ` | 01c2 8000 000d | | 01c4 004e 8c0e | N | 01c6 0000 00b1 | | 01c8 09d9 5c04 | \ | 01ca 0000 1920 | | 01cc 09d9 5804 | X | 01ce 09d9 5404 | T | 01d0 0000 0000 | | 01d2 0000 0076 | v| 01d4 0000 0000 | | .BLANK 0000[0x4] 01d8 09d8 9004 | | .XXX[0x14] 01da c000 1e16 | | 01dc 0000 0040 | @| 01de 0000 0040 | @| 01e0 09d9 5c04 | \ | 01e2 8000 0007 | | 01e4 004e 880e | N | 01e6 0000 00b1 | | 01e8 0000 0000 | | 01ea 0000 0076 | v| 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 09d8 9004 | | .XXX[0x10] 01f2 c000 1f96 | | 01f4 0000 0040 | @| 01f6 0000 0040 | @| 01f8 09de 6404 | d | 01fa 8000 0010 | | 01fc 004e 780e | Nx | 01fe 0000 00b1 | |