|
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_ccb0b3
└─⟦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 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 0028 | ( | .CONST 0x0028 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 0010 c20f | | Store 0x1,0xf 0011 00bf | | Action Accept_Activation 0012 00ea | | Load_Encached Null_String_Cache 0013 e001 | | Load 0x0,0x1 0014 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0015 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0016 e002 | | Load 0x0,0x2 0017 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0018 e003 | | Load 0x0,0x3 0019 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 001a e004 | | Load 0x0,0x4 001b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 001c e005 | | Load 0x0,0x5 001d 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 001e e006 | | Load 0x0,0x6 001f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0020 e007 | | Load 0x0,0x7 0021 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0022 e008 | | Load 0x0,0x8 0023 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0025 00c7 | | Action Elaborate_Subprogram 0026 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call 0028 BODY_0008: 0028 00bc | | Action Signal_Activated 0029 00bb | | Action Signal_Completion 002a 0000 0000 | | .BLANK 0000[0x6] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 003a | : | .CONST 0x003a ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0003 | | .CONST 0x0003 ; Number of locals 0033 INIT_0030: 0033 e009 | | Load 0x0,0x9 0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0035 02c7 | | Declare_Variable Any 0036 00d8 | | Load_Top At_Offset_0 0037 1c00 | | Execute_Immediate Run_Utility,0x0 0038 029f 008b | | Declare_Subprogram INIT_0088,For_Call 003a BODY_0030: 003a 00d9 | | Load_Top At_Offset_1 003b e210 | | Load 0x1,0x10 003c e00a | | Load 0x0,0xa 003d 180d | | Execute Package,Field_Execute,Field_Number 0xd 003e c402 | | Store 0x2,0x2 003f 00d9 | | Load_Top At_Offset_1 0040 e009 | | Load 0x0,0x9 0041 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0042 0c01 | | Execute_Immediate Greater_Equal,0x1 0043 680e |h | Jump_Zero 0x52 0044 e00b | | Load 0x0,0xb 0045 180e | | Execute Package,Field_Execute,Field_Number 0xe 0046 4806 |H | Short_Literal 0x6 0047 00db | | Load_Top At_Offset_3 0048 e009 | | Load 0x0,0x9 0049 1812 | | Execute Package,Field_Execute,Field_Number 0x12 004a e00c | | Load 0x0,0xc 004b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004c 00d9 | | Load_Top At_Offset_1 004d e009 | | Load 0x0,0x9 004e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 004f 0c02 | | Execute_Immediate Greater_Equal,0x2 0050 6801 |h | Jump_Zero 0x52 0051 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0052 e5ff | | Load 0x2,-0x1 0053 6802 |h | Jump_Zero 0x56 0054 4801 |H | Short_Literal 0x1 0055 a211 | | Store_Unchecked 0x1,0x11 0056 e5fe | | Load 0x2,-0x2 0057 8218 | | Call 0x1,0x18 0058 8214 | | Call 0x1,0x14 0059 8216 | | Call 0x1,0x16 005a 8213 | | Call 0x1,0x13 005b 8215 | | Call 0x1,0x15 005c 8217 | | Call 0x1,0x17 005d e210 | | Load 0x1,0x10 005e e00d | | Load 0x0,0xd 005f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0060 0092 0092 | | Action Push_String_Extended,0x92 ; "<PROFILE>" 0062 0092 0093 | | Action Push_String_Extended,0x93 ; "Name => (_Extensions_" 0064 8212 | | Call 0x1,0x12 0065 e001 | | Load 0x0,0x1 0066 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0067 011c | | Execute Any,Convert_Unchecked 0068 1c01 | | Execute_Immediate Run_Utility,0x1 0069 01cc | | Execute Vector,Catenate 006a 8403 | | Call 0x2,0x3 006b 01cc | | Execute Vector,Catenate 006c 0092 0094 | | Action Push_String_Extended,0x94 ; "), " 006e 01cc | | Execute Vector,Catenate 006f 0092 0095 | | Action Push_String_Extended,0x95 ; "output => !machine.temporary.rci_library_register_log" 0071 01cc | | Execute Vector,Catenate 0072 4800 |H | Short_Literal 0x0 0073 0092 0096 | | Action Push_String_Extended,0x96 ; "!targets.implementation.rci_customization.>>your_subsystem<<'view" 0075 4800 |H | Short_Literal 0x0 0076 0092 0097 | | Action Push_String_Extended,0x97 ; "\x22!targets.implementation.rci_customization.>>your_subsystem<<'view.units\x22.register_all_extensions(\x22\x22);" 0078 e00e | | Load 0x0,0xe 0079 1810 | | Execute Package,Field_Execute,Field_Number 0x10 007a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4800 |H | Short_Literal 0x0 0084 e210 | | Load 0x1,0x10 0085 e00d | | Load 0x0,0xd 0086 180f | | Execute Package,Field_Execute,Field_Number 0xf 0087 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e5ff | | Load 0x2,-0x1 008c 6803 |h | Jump_Zero 0x90 008d 0092 0098 | | Action Push_String_Extended,0x98 ; "_batch" 008f 00ca | | Action Exit_Nullary_Function 0090 00ea | | Load_Encached Null_String_Cache 0091 00ca | | Action Exit_Nullary_Function 0092 ; -------------------------------------------------------------------------------------- 0092 ; STRING TABLE 0092 ; -------------------------------------------------------------------------------------- 0092 0010 | | .STRTAB 0x0010->0x009a ; "<PROFILE>" 0093 0017 | | .STRTAB 0x0017->0x009e ; "Name => (_Extensions_" 0094 002a | * | .STRTAB 0x002a->0x00a9 ; "), " 0095 002b | + | .STRTAB 0x002b->0x00aa ; "output => !machine.temporary.rci_library_register_log" 0096 005e | ^ | .STRTAB 0x005e->0x00c5 ; "!targets.implementation.rci_customization.>>your_subsystem<<'view" 0097 009d | | .STRTAB 0x009d->0x00e5 ; "\x22!targets.implementation.rci_customization.>>your_subsystem<<'view.units\x22.register_all_extensions(\x22\x22);" 0098 0101 | | .STRTAB 0x0101->0x0118 ; "_batch" 0099 0105 | | .STREND 0x0105->0x011b 009a 3c50 524f |<PRO| .STRTAB_STRINGS 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0003 | | .DEBUG4 0x0004,0x0003,0x2f8d,0x0000,0x0001,0x0005 0126 000b 013a | :| .DBG4T 0x000b,0x013a,0x8000,0x0000 012a 0012 013d | =| .DBG4T 0x0012,0x013d,0x8000,0x8000 012e 0033 0155 | 3 U| .DBG4T 0x0033,0x0155,0x0001,0x0000 0132 0083 0162 | b| .DBG4T 0x0083,0x0162,0x0001,0x0000 0136 008b 0165 | e| .DBG4T 0x008b,0x0165,0x0002,0x0000 013a ; -------------------------------------------------------------------------------------- 013a ; Debug chain 013a ; -------------------------------------------------------------------------------------- 013a 0001 0000 | | .DBGLEN 0x0001,0x0000 013c 000e | | .DBGLNO 0x000e 013d ; -------------------------------------------------------------------------------------- 013d ; Debug chain 013d ; -------------------------------------------------------------------------------------- 013d 000b 0000 | | .DBGLEN 0x000b,0x0000 013f 0012 0013 | | .DBGLNO 0x0012,0x0013,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026 014a 000c 000d | | .XXX[0xb] 014c 000e 000f | | 014e 0010 0011 | | 0150 0012 0013 | | 0152 0014 0015 | | 0154 0016 | | 0155 ; -------------------------------------------------------------------------------------- 0155 ; Debug chain 0155 ; -------------------------------------------------------------------------------------- 0155 0002 0009 | | .DBGLEN 0x0002,0x0009 0157 0033 0038 | 3 8| .DBGLNO 0x0033,0x0038,0x003a,0x003f,0x0044,0x004c,0x0051,0x0052,0x0054,0x0056,0x0060 0162 ; -------------------------------------------------------------------------------------- 0162 ; Debug chain 0162 ; -------------------------------------------------------------------------------------- 0162 0000 0001 | | .DBGLEN 0x0000,0x0001 0164 0083 | | .DBGLNO 0x0083 0165 ; -------------------------------------------------------------------------------------- 0165 ; Debug chain 0165 ; -------------------------------------------------------------------------------------- 0165 0000 0003 | | .DBGLEN 0x0000,0x0003 0167 008b 008d | | .DBGLNO 0x008b,0x008d,0x0090 016a 0000 0000 | | .BLANK 0000[0x96]