|
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: 5811_R1K_CODE
Names: »1053715.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1053715.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1053715.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1053715.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1053715.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1053715.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0050 | P | .CONST 0x0050 ; 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 0100 | | .CONST 0x0100 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001b | | .CONST 0x001b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x006a,0x8000,0x0000,0x0037,0x16e4,0x0000,0x0009 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d e002 | | Load 0x0,0x2 000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000f 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 0011 4802 |H | Short_Literal 0x2 0012 032e | . | Declare_Type Record,Defined,Visible 0013 e003 | | Load 0x0,0x3 ; Debug Table 0x0.0x1 = 0x13,0xfffe 0014 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0015 00d9 | | Load_Top At_Offset_1 0016 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0018 4802 |H | Short_Literal 0x2 0019 032e | . | Declare_Type Record,Defined,Visible 001a 00bf | | Action Accept_Activation 001b BODY_0008: 001b 00bc | | Action Signal_Activated 001c 00bb | | Action Signal_Completion 001d 0000 0000 | | .XXX[0x3] 001f 0000 | | 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4608 |F | Jump_Case 0x9 ; Debug Table 0x1 = .DEBUG 0x0023,0x0070,0x0005,0x0000,0x0037,0x16e4,0x0000,0x000a 0024 7808 |x | Jump 0x2d ; case 0x0 0025 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0026 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0027 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0028 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0029 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 002a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 002b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 002d 4800 |H | Short_Literal 0x0 002e 00db | | Load_Top At_Offset_3 002f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0030 e002 | | Load 0x0,0x2 0031 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0032 00db | | Load_Top At_Offset_3 0033 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 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 0x2 = .DEBUG 0x003b,0x0072,0x0005,0x0000,0x0037,0x16e4,0x0000,0x0024 003c 7808 |x | Jump 0x45 ; case 0x0 003d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; 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 4800 |H | Short_Literal 0x0 0046 00db | | Load_Top At_Offset_3 0047 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0048 00da | | Load_Top At_Offset_2 0049 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 004a 1c00 | | Execute_Immediate Run_Utility,0x0 004b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; Debug Table 0050 ; -------------------------------------------------------------------------------------- 0050 0003 0003 | | .CONST 0x0003,0x0003 0052 000b 006a | j| .DEBUG 0x000b,0x006a,0x8000,0x0000,0x0037,0x16e4,0x0000,0x0009 005a 0023 0070 | # p| .DEBUG 0x0023,0x0070,0x0005,0x0000,0x0037,0x16e4,0x0000,0x000a 0062 003b 0072 | ; r| .DEBUG 0x003b,0x0072,0x0005,0x0000,0x0037,0x16e4,0x0000,0x0024 006a ; -------------------------------------------------------------------------------------- 006a ; Debug3 Subtable 0x0 006a ; -------------------------------------------------------------------------------------- 006a 0002 0000 | | .DBG3TAB 0x0002,0x0000 006c 000b ffff | | .CONST 0x000b,0xffff 006e 0013 fffe | | .CONST 0x0013,0xfffe 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug3 Subtable 0x1 0070 ; -------------------------------------------------------------------------------------- 0070 0000 0000 | | .DBG3TAB 0x0000,0x0000 0072 ; -------------------------------------------------------------------------------------- 0072 ; Debug3 Subtable 0x2 0072 ; -------------------------------------------------------------------------------------- 0072 0000 0000 | | .DBG3TAB 0x0000,0x0000 0074 0000 0000 | | .BLANK 0000[0x18c]