|
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: »789523.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »789523.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »789523.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »789523.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »789523.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »789523.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 0000 | | .CONST 0x0000 ; 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 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0072,0x8000,0x0000,0x0036,0xba74,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd 000f 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc 0011 00bf | | Action Accept_Activation 0012 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0012,0x007c,0x8000,0x0000,0x0036,0xbea4,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x12,0xffff 0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0014 02c7 | | Declare_Variable Any 0015 00d8 | | Load_Top At_Offset_0 0016 1c00 | | Execute_Immediate Run_Utility,0x0 0017 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x17,0xfffe 0018 00c7 | | Action Elaborate_Subprogram 0019 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x19,0xfffd 001a 00c7 | | Action Elaborate_Subprogram 001b BODY_0008: 001b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x3 = 0x1b,0x1 001c 0120 | | Execute Any,Is_Value 001d 6803 |h | Jump_Zero 0x21 001e e001 | | Load 0x0,0x1 001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0020 7801 |x | Jump 0x22 0021 00d8 | | Load_Top At_Offset_0 0022 0092 0040 | @| Action Push_String_Extended,0x40 ; "Elaborator Database" 0024 e001 | | Load 0x0,0x1 0025 180e | | Execute Package,Field_Execute,Field_Number 0xe 0026 c20f | | Store 0x1,0xf 0027 00bc | | Action Signal_Activated 0028 00bb | | Action Signal_Completion 0029 0000 0000 | | .BLANK 0000[0x7] 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 e20f | | Load 0x1,0xf ; Debug Table 0x2 = .DEBUG 0x0033,0x0086,0x0001,0x0000,0x0036,0xba74,0x0000,0x0013 ; Debug Table 0x2.0x0 = 0x33,0x1 0034 00db | | Load_Top At_Offset_3 0035 e001 | | Load 0x0,0x1 0036 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0037 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 e20f | | Load 0x1,0xf ; Debug Table 0x3 = .DEBUG 0x003b,0x008a,0x0002,0x0000,0x0036,0xba74,0x0000,0x001b ; Debug Table 0x3.0x0 = 0x3b,0x1 003c 00db | | Load_Top At_Offset_3 003d e001 | | Load 0x0,0x1 003e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 003f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0040 ; -------------------------------------------------------------------------------------- 0040 ; STRING TABLE 0040 ; -------------------------------------------------------------------------------------- 0040 0004 | | .STRTAB 0x0004->0x0042 ; "Elaborator Database" 0041 0015 | | .STREND 0x0015->0x004b 0042 456c 6162 |Elab| .STRTAB_STRINGS 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; Debug Table 0050 ; -------------------------------------------------------------------------------------- 0050 0003 0004 | | .CONST 0x0003,0x0004 0052 000b 0072 | r| .DEBUG 0x000b,0x0072,0x8000,0x0000,0x0036,0xba74,0x0000,0x0005 005a 0012 007c | || .DEBUG 0x0012,0x007c,0x8000,0x0000,0x0036,0xbea4,0x0000,0x0007 0062 0033 0086 | 3 | .DEBUG 0x0033,0x0086,0x0001,0x0000,0x0036,0xba74,0x0000,0x0013 006a 003b 008a | ; | .DEBUG 0x003b,0x008a,0x0002,0x0000,0x0036,0xba74,0x0000,0x001b 0072 ; -------------------------------------------------------------------------------------- 0072 ; Debug3 Subtable 0x0 0072 ; -------------------------------------------------------------------------------------- 0072 0004 0000 | | .DBG3TAB 0x0004,0x0000 0074 000b ffff | | .CONST 0x000b,0xffff 0076 000c fffe | | .CONST 0x000c,0xfffe 0078 000d fffd | | .CONST 0x000d,0xfffd 007a 000f fffc | | .CONST 0x000f,0xfffc 007c ; -------------------------------------------------------------------------------------- 007c ; Debug3 Subtable 0x1 007c ; -------------------------------------------------------------------------------------- 007c 0003 0001 | | .DBG3TAB 0x0003,0x0001 007e 0012 ffff | | .CONST 0x0012,0xffff 0080 0017 fffe | | .CONST 0x0017,0xfffe 0082 0019 fffd | | .CONST 0x0019,0xfffd 0084 001b 0001 | | .CONST 0x001b,0x0001 0086 ; -------------------------------------------------------------------------------------- 0086 ; Debug3 Subtable 0x2 0086 ; -------------------------------------------------------------------------------------- 0086 0000 0001 | | .DBG3TAB 0x0000,0x0001 0088 0033 0001 | 3 | .CONST 0x0033,0x0001 008a ; -------------------------------------------------------------------------------------- 008a ; Debug3 Subtable 0x3 008a ; -------------------------------------------------------------------------------------- 008a 0000 0001 | | .DBG3TAB 0x0000,0x0001 008c 003b 0001 | ; | .CONST 0x003b,0x0001 008e 0000 0000 | | .BLANK 0000[0x172]