|
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 0070 | p | .CONST 0x0070 ; 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 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x008a,0x8000,0x0000,0x0058,0x69a5,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 4802 |H | Short_Literal 0x2 000e 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call 0010 03fe | | Declare_Type Discrete,Defined,Visible 0011 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x2 = 0x11,0xfffd 0012 0129 | ) | Execute Any,Make_Visible 0013 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x3 = 0x13,0xfffc 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 03ae | | Declare_Type Heap_Access,Defined,Visible 0016 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x16,0xfffb 0017 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x5 = 0x17,0xfffa 0018 032b | + | Declare_Type Record,Incomplete,Visible 0019 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative ; Debug Table 0x0.0x6 = 0x19,0xfff9 001a 00d9 | | Load_Top At_Offset_1 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 00da | | Load_Top At_Offset_2 001d 03a3 | | Complete_Type Heap_Access,By_Defining 001e 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x1e,0xfff8 001f 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x1f,0xfff7 0020 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x20,0xfff6 0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0022 00d9 | | Load_Top At_Offset_1 0023 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0025 e210 | | Load 0x1,0x10 0026 0326 | & | Complete_Type Record,By_Defining 0027 00bf | | Action Accept_Activation 0028 BODY_0008: 0028 00bc | | Action Signal_Activated 0029 00bb | | Action Signal_Completion 002a 0000 0000 | | .BLANK 0000[0x6] 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 0x1 = .DEBUG 0x0033,0x00a0,0x0005,0x0000,0x0058,0x69a5,0x0000,0x0009 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 005c | \| Action Push_String_Extended_Indexed,0x5c ; "NO_INFO" 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 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x004b,0x00a2,0x0005,0x0000,0x0058,0x69a5,0x0000,0x002f 004c 7808 |x | Jump 0x55 ; case 0x0 004d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 004e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 004f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0050 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0051 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0052 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0053 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0055 00da | | Load_Top At_Offset_2 0056 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0057 0125 | % | Execute Any,Set_Constraint 0058 00da | | Load_Top At_Offset_2 0059 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 005a 1c00 | | Execute_Immediate Run_Utility,0x0 005b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 005c ; -------------------------------------------------------------------------------------- 005c ; STRING TABLE 005c ; -------------------------------------------------------------------------------------- 005c 0008 | | .STRTAB 0x0008->0x0060 ; "NO_INFO" 005d 000d | | .STRTAB 0x000d->0x0063 ; "USER_INFO" 005e 0014 | | .STRTAB 0x0014->0x0068 ; "ALL_INFO" 005f 001a | | .STREND 0x001a->0x006c 0060 4e4f 5f49 |NO_I| .STRTAB_STRINGS 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug Table 0070 ; -------------------------------------------------------------------------------------- 0070 0003 0003 | | .CONST 0x0003,0x0003 0072 000b 008a | | .DEBUG 0x000b,0x008a,0x8000,0x0000,0x0058,0x69a5,0x0000,0x0005 007a 0033 00a0 | 3 | .DEBUG 0x0033,0x00a0,0x0005,0x0000,0x0058,0x69a5,0x0000,0x0009 0082 004b 00a2 | K | .DEBUG 0x004b,0x00a2,0x0005,0x0000,0x0058,0x69a5,0x0000,0x002f 008a ; -------------------------------------------------------------------------------------- 008a ; Debug3 Subtable 0x0 008a ; -------------------------------------------------------------------------------------- 008a 000a 0000 | | .DBG3TAB 0x000a,0x0000 008c 000b ffff | | .CONST 0x000b,0xffff 008e 000c fffe | | .CONST 0x000c,0xfffe 0090 0011 fffd | | .CONST 0x0011,0xfffd 0092 0013 fffc | | .CONST 0x0013,0xfffc 0094 0016 fffb | | .CONST 0x0016,0xfffb 0096 0017 fffa | | .CONST 0x0017,0xfffa 0098 0019 fff9 | | .CONST 0x0019,0xfff9 009a 001e fff8 | | .CONST 0x001e,0xfff8 009c 001f fff7 | | .CONST 0x001f,0xfff7 009e 0020 fff6 | | .CONST 0x0020,0xfff6 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; Debug3 Subtable 0x1 00a0 ; -------------------------------------------------------------------------------------- 00a0 0000 0000 | | .DBG3TAB 0x0000,0x0000 00a2 ; -------------------------------------------------------------------------------------- 00a2 ; Debug3 Subtable 0x2 00a2 ; -------------------------------------------------------------------------------------- 00a2 0000 0000 | | .DBG3TAB 0x0000,0x0000 00a4 0000 0000 | | .BLANK 0000[0x15c]