|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0060 | ` | .CONST 0x0060 ; 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 002d | - | .CONST 0x002d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0082,0x8000,0x0000,0x0057,0x9515,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 039e | | Declare_Variable Heap_Access,Visible 000e e001 | | Load 0x0,0x1 000f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0010 e002 | | Load 0x0,0x2 0011 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0012 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0013 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x2 = 0x13,0xfffd 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 03ae | | Declare_Type Heap_Access,Defined,Visible 0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x16,0xfffc 0017 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x4 = 0x17,0xfffb 0018 039e | | Declare_Variable Heap_Access,Visible 0019 00ea | | Load_Encached Null_String_Cache 001a 00da | | Load_Top At_Offset_2 001b e20d | | Load 0x1,0xd 001c 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 001d 0031 | 1 | Store_Top Heap_Access,At_Offset_1 001e 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x1e,0xfffa 001f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x1f,0xfff9 0020 4801 |H | Short_Literal 0x1 0021 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 0023 03fe | | Declare_Type Discrete,Defined,Visible 0024 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x7 = 0x24,0xfff8 0025 0129 | ) | Execute Any,Make_Visible 0026 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x8 = 0x26,0xfff7 0027 0129 | ) | Execute Any,Make_Visible 0028 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x28,0xfff6 002a 00bf | | Action Accept_Activation 002b 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1 = .DEBUG 0x002b,0x0098,0x8000,0x0000,0x0057,0x9545,0x0000,0x0005 ; Debug Table 0x1.0x0 = 0x2b,0xffff 002c 00c7 | | Action Elaborate_Subprogram 002d BODY_0008: 002d 00bc | | Action Signal_Activated 002e 00bb | | Action Signal_Completion 002f 0000 | | .XXX[0x1] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0033,0x009c,0x0005,0x0000,0x0057,0x9515,0x0000,0x002d 0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0035 7802 |x | Jump 0x38 ; case 0x1 0036 7805 |x | Jump 0x3c ; case 0x2 0037 7809 |x | Jump 0x41 ; case 0x3 0038 00da | | Load_Top At_Offset_2 0039 0091 0053 | S| Action Push_String_Extended_Indexed,0x53 ; "NO_ERROR" 003b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003c 00db | | Load_Top At_Offset_3 003d 00db | | Load_Top At_Offset_3 003e 00e0 | | Load_Encached Standard_Cache 003f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0040 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0041 00da | | Load_Top At_Offset_2 0042 00e0 | | Load_Encached Standard_Cache 0043 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0044 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x004b,0x009e,0x0002,0x0000,0x0057,0x9515,0x0000,0x003b ; Debug Table 0x3.0x0 = 0x4b,0x1 004c e003 | | Load 0x0,0x3 004d 180d | | Execute Package,Field_Execute,Field_Number 0xd 004e 4be9 |K | Short_Literal 0x3e9 004f 026e | n | Execute Discrete,Modulo 0050 00e3 | | Load_Encached Natural_Cache 0051 025b | [ | Execute Discrete,Check_In_Type 0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0053 ; -------------------------------------------------------------------------------------- 0053 ; STRING TABLE 0053 ; -------------------------------------------------------------------------------------- 0053 0006 | | .STRTAB 0x0006->0x0056 ; "NO_ERROR" 0054 000c | | .STRTAB 0x000c->0x005a ; "NOT_FOUND" 0055 0013 | | .STREND 0x0013->0x005e 0056 4e4f 5f45 |NO_E| .STRTAB_STRINGS 005f 0000 | | .XXX[0x1] 0060 ; -------------------------------------------------------------------------------------- 0060 ; Debug Table 0060 ; -------------------------------------------------------------------------------------- 0060 0003 0004 | | .CONST 0x0003,0x0004 0062 000b 0082 | | .DEBUG 0x000b,0x0082,0x8000,0x0000,0x0057,0x9515,0x0000,0x0007 006a 002b 0098 | + | .DEBUG 0x002b,0x0098,0x8000,0x0000,0x0057,0x9545,0x0000,0x0005 0072 0033 009c | 3 | .DEBUG 0x0033,0x009c,0x0005,0x0000,0x0057,0x9515,0x0000,0x002d 007a 004b 009e | K | .DEBUG 0x004b,0x009e,0x0002,0x0000,0x0057,0x9515,0x0000,0x003b 0082 ; -------------------------------------------------------------------------------------- 0082 ; Debug3 Subtable 0x0 0082 ; -------------------------------------------------------------------------------------- 0082 000a 0000 | | .DBG3TAB 0x000a,0x0000 0084 000b ffff | | .CONST 0x000b,0xffff 0086 000c fffe | | .CONST 0x000c,0xfffe 0088 0013 fffd | | .CONST 0x0013,0xfffd 008a 0016 fffc | | .CONST 0x0016,0xfffc 008c 0017 fffb | | .CONST 0x0017,0xfffb 008e 001e fffa | | .CONST 0x001e,0xfffa 0090 001f fff9 | | .CONST 0x001f,0xfff9 0092 0024 fff8 | $ | .CONST 0x0024,0xfff8 0094 0026 fff7 | & | .CONST 0x0026,0xfff7 0096 0028 fff6 | ( | .CONST 0x0028,0xfff6 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug3 Subtable 0x1 0098 ; -------------------------------------------------------------------------------------- 0098 0001 0000 | | .DBG3TAB 0x0001,0x0000 009a 002b ffff | + | .CONST 0x002b,0xffff 009c ; -------------------------------------------------------------------------------------- 009c ; Debug3 Subtable 0x2 009c ; -------------------------------------------------------------------------------------- 009c 0000 0000 | | .DBG3TAB 0x0000,0x0000 009e ; -------------------------------------------------------------------------------------- 009e ; Debug3 Subtable 0x3 009e ; -------------------------------------------------------------------------------------- 009e 0000 0001 | | .DBG3TAB 0x0000,0x0001 00a0 004b 0001 | K | .CONST 0x004b,0x0001 00a2 0000 0000 | | .BLANK 0000[0x15e]