|
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 00b0 | | .CONST 0x00b0 ; 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 0047 | G | .CONST 0x0047 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0013 | | .CONST 0x0013 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x00ca,0x8000,0x0000,0x0056,0xfa55,0x0000,0x000d ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4802 |H | Short_Literal 0x2 000d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0x10,0xfffe 0011 4803 |H | Short_Literal 0x3 0012 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x2 = 0x15,0xfffd 0016 00e4 | | Load_Encached Positive_Cache 0017 00e3 | | Load_Encached Natural_Cache 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 4803 |H | Short_Literal 0x3 001a 032e | . | Declare_Type Record,Defined,Visible 001b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x3 = 0x1b,0xfffc 001c 0322 | " | Declare_Variable Record 001d 4800 |H | Short_Literal 0x0 001e 00d9 | | Load_Top At_Offset_1 001f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0020 4801 |H | Short_Literal 0x1 0021 00d9 | | Load_Top At_Offset_1 0022 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0023 4800 |H | Short_Literal 0x0 0024 00d9 | | Load_Top At_Offset_1 0025 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0026 0129 | ) | Execute Any,Make_Visible 0027 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x27,0xfffb 0028 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0029 00ec | | Load_Encached Diana_Tree_Cache 002a e002 | | Load 0x0,0x2 002b 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 002c e20f | | Load 0x1,0xf 002d 02a0 | | Declare_Subprogram Null_Subprogram 002e 4804 |H | Short_Literal 0x4 002f 032e | . | Declare_Type Record,Defined,Visible 0030 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x5 = 0x30,0xfffa 0031 0322 | " | Declare_Variable Record 0032 4800 |H | Short_Literal 0x0 0033 00d9 | | Load_Top At_Offset_1 0034 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0035 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x0.0x6 = 0x35,0x401 0036 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x7 = 0x36,0xfffa 0037 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0038 e002 | | Load 0x0,0x2 0039 1b20 | | Execute Package,Field_Read,Field_Number 0x20 003a 00d9 | | Load_Top At_Offset_1 003b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 003c 00da | | Load_Top At_Offset_2 003d 00d9 | | Load_Top At_Offset_1 003e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 003f 0129 | ) | Execute Any,Make_Visible 0040 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x8 = 0x40,0xfff9 0041 0266 | f | Execute Discrete,Bounds 0042 00db | | Load_Top At_Offset_3 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 4801 |H | Short_Literal 0x1 0045 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0046 00bf | | Action Accept_Activation ; Debug Table 0x0.0x9 = 0x46,0xfff8 0047 BODY_0008: 0047 00bc | | Action Signal_Activated 0048 00bb | | Action Signal_Completion 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0053,0x00e0,0x0005,0x0000,0x0056,0xfa55,0x0000,0x000e 0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0055 7802 |x | Jump 0x58 ; case 0x1 0056 7805 |x | Jump 0x5c ; case 0x2 0057 7809 |x | Jump 0x61 ; case 0x3 0058 00da | | Load_Top At_Offset_2 0059 0091 007d | }| Action Push_String_Extended_Indexed,0x7d ; "TEXT_LINE" 005b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 005c 00db | | Load_Top At_Offset_3 005d 00db | | Load_Top At_Offset_3 005e 00e0 | | Load_Encached Standard_Cache 005f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0060 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0061 00da | | Load_Top At_Offset_2 0062 00e0 | | Load_Encached Standard_Cache 0063 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0064 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x006b,0x00e2,0x0005,0x0000,0x0056,0xfa55,0x0000,0x0015 006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 006d 7802 |x | Jump 0x70 ; case 0x1 006e 7805 |x | Jump 0x74 ; case 0x2 006f 7809 |x | Jump 0x79 ; case 0x3 0070 00da | | Load_Top At_Offset_2 0071 0091 0080 | | Action Push_String_Extended_Indexed,0x80 ; "CODE_TEXT" 0073 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0074 00db | | Load_Top At_Offset_3 0075 00db | | Load_Top At_Offset_3 0076 00e0 | | Load_Encached Standard_Cache 0077 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0078 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0079 00da | | Load_Top At_Offset_2 007a 00e0 | | Load_Encached Standard_Cache 007b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 007c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007d ; -------------------------------------------------------------------------------------- 007d ; STRING TABLE 007d ; -------------------------------------------------------------------------------------- 007d 0010 | | .STRTAB 0x0010->0x0085 ; "TEXT_LINE" 007e 0017 | | .STRTAB 0x0017->0x0089 ; "SUBOBJECT_TOKEN" 007f 0024 | $ | .STRTAB 0x0024->0x0091 ; "END_OF_INPUT" 0080 002e | . | .STRTAB 0x002e->0x0097 ; "CODE_TEXT" 0081 0035 | 5 | .STRTAB 0x0035->0x009b ; "COMMENT_TEXT" 0082 003f | ? | .STRTAB 0x003f->0x00a1 ; "NEWLINE_TEXT" 0083 0049 | I | .STRTAB 0x0049->0x00a7 ; "NEWPAGE_TEXT" 0084 0053 | S | .STREND 0x0053->0x00ad 0085 5445 5854 |TEXT| .STRTAB_STRINGS 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; Debug Table 00b0 ; -------------------------------------------------------------------------------------- 00b0 0003 0003 | | .CONST 0x0003,0x0003 00b2 000b 00ca | | .DEBUG 0x000b,0x00ca,0x8000,0x0000,0x0056,0xfa55,0x0000,0x000d 00ba 0053 00e0 | S | .DEBUG 0x0053,0x00e0,0x0005,0x0000,0x0056,0xfa55,0x0000,0x000e 00c2 006b 00e2 | k | .DEBUG 0x006b,0x00e2,0x0005,0x0000,0x0056,0xfa55,0x0000,0x0015 00ca ; -------------------------------------------------------------------------------------- 00ca ; Debug3 Subtable 0x0 00ca ; -------------------------------------------------------------------------------------- 00ca 0009 0001 | | .DBG3TAB 0x0009,0x0001 00cc 000b ffff | | .CONST 0x000b,0xffff 00ce 0010 fffe | | .CONST 0x0010,0xfffe 00d0 0015 fffd | | .CONST 0x0015,0xfffd 00d2 001b fffc | | .CONST 0x001b,0xfffc 00d4 0027 fffb | ' | .CONST 0x0027,0xfffb 00d6 0030 fffa | 0 | .CONST 0x0030,0xfffa 00d8 0035 0401 | 5 | .CONST 0x0035,0x0401 00da 0036 fffa | 6 | .CONST 0x0036,0xfffa 00dc 0040 fff9 | @ | .CONST 0x0040,0xfff9 00de 0046 fff8 | F | .CONST 0x0046,0xfff8 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug3 Subtable 0x1 00e0 ; -------------------------------------------------------------------------------------- 00e0 0000 0000 | | .DBG3TAB 0x0000,0x0000 00e2 ; -------------------------------------------------------------------------------------- 00e2 ; Debug3 Subtable 0x2 00e2 ; -------------------------------------------------------------------------------------- 00e2 0000 0000 | | .DBG3TAB 0x0000,0x0000 00e4 0000 0000 | | .BLANK 0000[0x11c]