|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: SEG
Notes: 5805_R1K_CODE
Names: »922642.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »922642.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »922642.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »922642.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »922642.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »922642.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0078 | x | .CONST 0x0078 ; 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 0030 | 0 | .CONST 0x0030 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0092,0x8000,0x0000,0x000e,0x2554,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c e001 | | Load 0x0,0x1 000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000e e001 | | Load 0x0,0x1 000f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0010 e001 | | Load 0x0,0x1 0011 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0012 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0014 4804 |H | Short_Literal 0x4 0015 032e | . | Declare_Type Record,Defined,Visible 0016 e20d | | Load 0x1,0xd ; Debug Table 0x0.0x1 = 0x16,0xfffe 0017 0322 | " | Declare_Variable Record 0018 e20e | | Load 0x1,0xe 0019 1c01 | | Execute_Immediate Run_Utility,0x1 001a 4800 |H | Short_Literal 0x0 001b e20e | | Load 0x1,0xe 001c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 001d e001 | | Load 0x0,0x1 001e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 001f e20e | | Load 0x1,0xe 0020 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0021 4800 |H | Short_Literal 0x0 0022 e20e | | Load 0x1,0xe 0023 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0024 4800 |H | Short_Literal 0x0 0025 e20e | | Load 0x1,0xe 0026 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0027 0129 | ) | Execute Any,Make_Visible 0028 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x2 = 0x28,0xfffd 0029 0266 | f | Execute Discrete,Bounds 002a e20d | | Load 0x1,0xd 002b 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 002d 4801 |H | Short_Literal 0x1 002e 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 002f 00bf | | Action Accept_Activation 0030 BODY_0008: 0030 00bc | | Action Signal_Activated 0031 00bb | | Action Signal_Completion 0032 0000 0000 | | .BLANK 0000[0x6] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 4608 |F | Jump_Case 0x9 ; Debug Table 0x1 = .DEBUG 0x003b,0x009a,0x0005,0x0000,0x000e,0x2554,0x0000,0x0006 003c 7808 |x | Jump 0x45 ; case 0x0 003d 780b |x | Jump 0x49 ; case 0x1 003e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 003f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0040 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0041 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0042 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0043 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0045 e5ff | | Load 0x2,-0x1 0046 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0047 1c00 | | Execute_Immediate Run_Utility,0x0 0048 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0049 e5ff | | Load 0x2,-0x1 004a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 004b 1c01 | | Execute_Immediate Run_Utility,0x1 004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 004d 0000 0000 | | .XXX[0x3] 004f 0000 | | 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 4605 |F | Jump_Case 0x6 ; Debug Table 0x2 = .DEBUG 0x0053,0x009c,0x0005,0x0000,0x000e,0x2554,0x0000,0x0042 0054 7804 |x | Jump 0x59 ; case 0x0 0055 7815 |x | Jump 0x6b ; case 0x1 0056 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0057 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0058 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0059 e5ff | | Load 0x2,-0x1 ; case 0x5 005a 01d8 | | Execute Vector,Element_Type 005b 0322 | " | Declare_Variable Record 005c 00d8 | | Load_Top At_Offset_0 005d 1c00 | | Execute_Immediate Run_Utility,0x0 005e e5ff | | Load 0x2,-0x1 005f 01dc | | Execute Vector,Last 0060 e5ff | | Load 0x2,-0x1 0061 01dd | | Execute Vector,First 0062 0263 | c | Execute Discrete,Above_Bound 0063 7006 |p | Jump_Nonzero 0x6a 0064 e402 | | Load 0x2,0x2 0065 e404 | | Load 0x2,0x4 0066 e5ff | | Load 0x2,-0x1 0067 01d6 | | Execute Vector,Field_Write 0068 0a01 | | Execute_Immediate Plus,0x1 0069 7ff8 | | Jump 0x62 006a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 006b e5ff | | Load 0x2,-0x1 006c 01dc | | Execute Vector,Last 006d e5ff | | Load 0x2,-0x1 006e 01dd | | Execute Vector,First 006f 0263 | c | Execute Discrete,Above_Bound 0070 7006 |p | Jump_Nonzero 0x77 0071 e403 | | Load 0x2,0x3 0072 e5ff | | Load 0x2,-0x1 0073 01d7 | | Execute Vector,Field_Read 0074 1c01 | | Execute_Immediate Run_Utility,0x1 0075 0a01 | | Execute_Immediate Plus,0x1 0076 7ff8 | | Jump 0x6f 0077 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0003 0003 | | .CONST 0x0003,0x0003 007a 000b 0092 | | .DEBUG 0x000b,0x0092,0x8000,0x0000,0x000e,0x2554,0x0000,0x0005 0082 003b 009a | ; | .DEBUG 0x003b,0x009a,0x0005,0x0000,0x000e,0x2554,0x0000,0x0006 008a 0053 009c | S | .DEBUG 0x0053,0x009c,0x0005,0x0000,0x000e,0x2554,0x0000,0x0042 0092 ; -------------------------------------------------------------------------------------- 0092 ; Debug3 Subtable 0x0 0092 ; -------------------------------------------------------------------------------------- 0092 0003 0000 | | .DBG3TAB 0x0003,0x0000 0094 000b ffff | | .CONST 0x000b,0xffff 0096 0016 fffe | | .CONST 0x0016,0xfffe 0098 0028 fffd | ( | .CONST 0x0028,0xfffd 009a ; -------------------------------------------------------------------------------------- 009a ; Debug3 Subtable 0x1 009a ; -------------------------------------------------------------------------------------- 009a 0000 0000 | | .DBG3TAB 0x0000,0x0000 009c ; -------------------------------------------------------------------------------------- 009c ; Debug3 Subtable 0x2 009c ; -------------------------------------------------------------------------------------- 009c 0000 0000 | | .DBG3TAB 0x0000,0x0000 009e 0000 0000 | | .BLANK 0000[0x162]