|
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 0140 | @ | .CONST 0x0140 ; 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 0047 | G | .CONST 0x0047 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c e003 | | Load 0x0,0x3 001d 00e5 | | Load_Encached Long_Integer_Cache 001e e004 | | Load 0x0,0x4 001f 1b78 | x | Execute Package,Field_Read,Field_Number 0x78 0020 0387 | | Declare_Variable Package 0021 00d8 | | Load_Top At_Offset_0 0022 020f | | Execute Module,Activate 0023 e005 | | Load 0x0,0x5 0024 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0025 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0026 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0027 02c7 | | Declare_Variable Any 0028 00d8 | | Load_Top At_Offset_0 0029 1c00 | | Execute_Immediate Run_Utility,0x0 002a e005 | | Load 0x0,0x5 002b 1b19 | | Execute Package,Field_Read,Field_Number 0x19 002c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 002d 02c7 | | Declare_Variable Any 002e 00d8 | | Load_Top At_Offset_0 002f 1c00 | | Execute_Immediate Run_Utility,0x0 0030 e005 | | Load 0x0,0x5 0031 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0032 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 02c7 | | Declare_Variable Any 0035 00d8 | | Load_Top At_Offset_0 0036 1c00 | | Execute_Immediate Run_Utility,0x0 0037 e005 | | Load 0x0,0x5 0038 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0039 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003a 02c7 | | Declare_Variable Any 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d e005 | | Load 0x0,0x5 003e 1b18 | | Execute Package,Field_Read,Field_Number 0x18 003f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0040 02c7 | | Declare_Variable Any 0041 00d8 | | Load_Top At_Offset_0 0042 1c00 | | Execute_Immediate Run_Utility,0x0 0043 e005 | | Load 0x0,0x5 0044 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0046 0322 | " | Declare_Variable Record 0047 BODY_0018: 0047 00be | | Action Activate_Tasks 0048 e403 | | Load 0x2,0x3 0049 e005 | | Load 0x0,0x5 004a 1b19 | | Execute Package,Field_Read,Field_Number 0x19 004b 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 004c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 004d c403 | | Store 0x2,0x3 004e 00cf | | Action Mark_Auxiliary 004f 78b1 |x | Jump 0x101 0050 e403 | | Load 0x2,0x3 0051 e005 | | Load 0x0,0x5 0052 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0053 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0054 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0055 c406 | | Store 0x2,0x6 0056 0092 0108 | | Action Push_String_Extended,0x108 ; "Configuration Id: " 0058 e004 | | Load 0x0,0x4 0059 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 005a e406 | | Load 0x2,0x6 005b e005 | | Load 0x0,0x5 005c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 005d 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 005e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005f e004 | | Load 0x0,0x4 0060 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0061 4801 |H | Short_Literal 0x1 0062 e004 | | Load 0x0,0x4 0063 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0064 e404 | | Load 0x2,0x4 0065 e406 | | Load 0x2,0x6 0066 e005 | | Load 0x0,0x5 0067 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0068 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0069 c404 | | Store 0x2,0x4 006a 00cf | | Action Mark_Auxiliary 006b 7888 |x | Jump 0xf4 006c e404 | | Load 0x2,0x4 006d e005 | | Load 0x0,0x5 006e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 006f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0070 c407 | | Store 0x2,0x7 0071 0092 0109 | | Action Push_String_Extended,0x109 ; " Subsystem: " 0073 e004 | | Load 0x0,0x4 0074 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0075 e407 | | Load 0x2,0x7 0076 e005 | | Load 0x0,0x5 0077 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0078 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0079 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007a e004 | | Load 0x0,0x4 007b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 007c 0092 010a | | Action Push_String_Extended,0x10a ; " Library: " 007e e004 | | Load 0x0,0x4 007f 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0080 e407 | | Load 0x2,0x7 0081 e005 | | Load 0x0,0x5 0082 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0083 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0084 180e | | Execute Package,Field_Execute,Field_Number 0xe 0085 e004 | | Load 0x0,0x4 0086 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0087 0092 010b | | Action Push_String_Extended,0x10b ; " Time: " 0089 e004 | | Load 0x0,0x4 008a 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 008b 4800 |H | Short_Literal 0x0 008c 4800 |H | Short_Literal 0x0 008d 4803 |H | Short_Literal 0x3 008e e407 | | Load 0x2,0x7 008f e005 | | Load 0x0,0x5 0090 1b18 | | Execute Package,Field_Read,Field_Number 0x18 0091 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0092 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0093 e006 | | Load 0x0,0x6 0094 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0095 e006 | | Load 0x0,0x6 0096 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0097 e004 | | Load 0x0,0x4 0098 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0099 0092 010c | | Action Push_String_Extended,0x10c ; " User: " 009b e004 | | Load 0x0,0x4 009c 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 009d e407 | | Load 0x2,0x7 009e e005 | | Load 0x0,0x5 009f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a0 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a2 e004 | | Load 0x0,0x4 00a3 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00a4 4801 |H | Short_Literal 0x1 00a5 e004 | | Load 0x0,0x4 00a6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00a7 e405 | | Load 0x2,0x5 00a8 e407 | | Load 0x2,0x7 00a9 e005 | | Load 0x0,0x5 00aa 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00ab 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ad c405 | | Store 0x2,0x5 00ae 00cf | | Action Mark_Auxiliary 00af 7837 |x7 | Jump 0xe7 00b0 0092 010d | | Action Push_String_Extended,0x10d ; " Segment: " 00b2 e004 | | Load 0x0,0x4 00b3 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00b4 e405 | | Load 0x2,0x5 00b5 e005 | | Load 0x0,0x5 00b6 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00b7 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b9 e408 | | Load 0x2,0x8 00ba 017d | } | Execute Record,Structure_Write 00bb 0092 010e | | Action Push_String_Extended,0x10e ; "vpid " 00bd e004 | | Load 0x0,0x4 00be 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00bf e402 | | Load 0x2,0x2 00c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c1 4804 |H | Short_Literal 0x4 00c2 e408 | | Load 0x2,0x8 00c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c4 e402 | | Load 0x2,0x2 00c5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c6 0092 010f | | Action Push_String_Extended,0x10f ; " seg#" 00c8 e004 | | Load 0x0,0x4 00c9 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00ca e402 | | Load 0x2,0x2 00cb 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00cc 4806 |H | Short_Literal 0x6 00cd e408 | | Load 0x2,0x8 00ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00cf e402 | | Load 0x2,0x2 00d0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d1 0092 0110 | | Action Push_String_Extended,0x110 ; " kind " 00d3 e004 | | Load 0x0,0x4 00d4 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00d5 e408 | | Load 0x2,0x8 00d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d7 e007 | | Load 0x0,0x7 00d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d9 011c | | Execute Any,Convert_Unchecked 00da 1c01 | | Execute_Immediate Run_Utility,0x1 00db e004 | | Load 0x0,0x4 00dc 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 00dd 4801 |H | Short_Literal 0x1 00de e004 | | Load 0x0,0x4 00df 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00e0 e405 | | Load 0x2,0x5 00e1 e005 | | Load 0x0,0x5 00e2 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00e3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e5 c405 | | Store 0x2,0x5 00e6 00c9 | | Action Pop_Auxiliary_Loop 00e7 e405 | | Load 0x2,0x5 00e8 e005 | | Load 0x0,0x5 00e9 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00ea 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00eb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ec 6fc3 |o | Jump_Zero 0xb0 00ed 00ce | | Action Pop_Auxiliary 00ee e404 | | Load 0x2,0x4 00ef e005 | | Load 0x0,0x5 00f0 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00f1 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00f2 c404 | | Store 0x2,0x4 00f3 00c9 | | Action Pop_Auxiliary_Loop 00f4 e404 | | Load 0x2,0x4 00f5 e005 | | Load 0x0,0x5 00f6 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f8 6f73 |os | Jump_Zero 0x6c 00f9 00ce | | Action Pop_Auxiliary 00fa e403 | | Load 0x2,0x3 00fb e005 | | Load 0x0,0x5 00fc 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00fd 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 00fe 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ff c403 | | Store 0x2,0x3 0100 00c9 | | Action Pop_Auxiliary_Loop 0101 e403 | | Load 0x2,0x3 0102 e005 | | Load 0x0,0x5 0103 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0104 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0105 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0106 6f49 |oI | Jump_Zero 0x50 0107 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0108 ; -------------------------------------------------------------------------------------- 0108 ; STRING TABLE 0108 ; -------------------------------------------------------------------------------------- 0108 0014 | | .STRTAB 0x0014->0x0112 ; "Configuration Id: " 0109 0024 | $ | .STRTAB 0x0024->0x011b ; " Subsystem: " 010a 002f | / | .STRTAB 0x002f->0x0121 ; " Library: " 010b 0038 | 8 | .STRTAB 0x0038->0x0127 ; " Time: " 010c 003e | > | .STRTAB 0x003e->0x012b ; " User: " 010d 0044 | D | .STRTAB 0x0044->0x012f ; " Segment: " 010e 004f | O | .STRTAB 0x004f->0x0135 ; "vpid " 010f 0052 | R | .STRTAB 0x0052->0x0138 ; " seg#" 0110 0055 | U | .STRTAB 0x0055->0x013a ; " kind " 0111 0059 | Y | .STREND 0x0059->0x013d 0112 436f 6e66 |Conf| .STRTAB_STRINGS 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9787,0x0000,0x0001,0x0000 0146 0000 0000 | | .BLANK 0000[0xba]