|
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_03c0fe
└─⟦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 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 0011 | | .DEBUG4 0x0004,0x0011,0x977a,0x0000,0x0001,0x0000 0106 0000 0000 | | .BLANK 0000[0xfa]