|
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: »472083.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »472083.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »472083.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »472083.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »472083.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »472083.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 0128 | ( | .CONST 0x0128 ; 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 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0152,0x8000,0x0000,0x0036,0x5904,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 00bf | | Action Accept_Activation
0010 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0010,0x015c,0x8000,0x0000,0x0036,0x5914,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x10,0xffff
; Debug Table 0x1.0x1 = 0x10,0xfffe
; Debug Table 0x1.0x2 = 0x10,0xfffd
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 0322 | " | Declare_Variable Record
0013 e20f | | Load 0x1,0xf
0014 1c01 | | Execute_Immediate Run_Utility,0x1
0015 4801 |H | Short_Literal 0x1
0016 0092 00e0 | | Action Push_String_Extended,0xe0 ; "Bootstrap Condition Detected"
0018 e001 | | Load 0x0,0x1
0019 1810 | | Execute Package,Field_Execute,Field_Number 0x10
001a e20f | | Load 0x1,0xf
001b 017d | } | Execute Record,Structure_Write
001c e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x1c,0xfffc
001d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001e 0322 | " | Declare_Variable Record
001f e210 | | Load 0x1,0x10
0020 1c01 | | Execute_Immediate Run_Utility,0x1
0021 4803 |H | Short_Literal 0x3
0022 0092 00e1 | | Action Push_String_Extended,0xe1 ; "Disk Compatibility Error"
0024 e001 | | Load 0x0,0x1
0025 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0026 e210 | | Load 0x1,0x10
0027 017d | } | Execute Record,Structure_Write
0028 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x4 = 0x28,0xfffb
0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002a 0322 | " | Declare_Variable Record
002b e211 | | Load 0x1,0x11
002c 1c01 | | Execute_Immediate Run_Utility,0x1
002d 4803 |H | Short_Literal 0x3
002e 0092 00e2 | | Action Push_String_Extended,0xe2 ; "Type Structure Error"
0030 e001 | | Load 0x0,0x1
0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0032 e211 | | Load 0x1,0x11
0033 017d | } | Execute Record,Structure_Write
0034 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x5 = 0x34,0xfffa
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 0322 | " | Declare_Variable Record
0037 e212 | | Load 0x1,0x12
0038 1c01 | | Execute_Immediate Run_Utility,0x1
0039 4801 |H | Short_Literal 0x1
003a 0092 00e3 | | Action Push_String_Extended,0xe3 ; "Restoration From Archive"
003c e001 | | Load 0x0,0x1
003d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
003e e212 | | Load 0x1,0x12
003f 017d | } | Execute Record,Structure_Write
0040 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x6 = 0x40,0xfff9
0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0042 0322 | " | Declare_Variable Record
0043 e213 | | Load 0x1,0x13
0044 1c01 | | Execute_Immediate Run_Utility,0x1
0045 4801 |H | Short_Literal 0x1
0046 0092 00e4 | | Action Push_String_Extended,0xe4 ; "Format Change Done Via Archive"
0048 e001 | | Load 0x0,0x1
0049 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004a e213 | | Load 0x1,0x13
004b 017d | } | Execute Record,Structure_Write
004c 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x7 = 0x4c,0xfff8
004d 00c7 | | Action Elaborate_Subprogram
004e 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x8 = 0x4e,0xfff7
004f 00c7 | | Action Elaborate_Subprogram
0050 BODY_0008:
0050 00bc | | Action Signal_Activated
0051 00bb | | Action Signal_Completion
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0067 | g | .CONST 0x0067 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0007 | | .CONST 0x0007 ; Number of locals
005b INIT_0058:
005b 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x2 = .DEBUG 0x005b,0x0170,0x2801,0x0002,0x0036,0x5904,0x0000,0x0017
; Debug Table 0x2.0x0 = 0x5b,0xffff
005c 00c6 | | Action Check_Subprogram_Elaborated
005d e5fc | | Load 0x2,-0x4
005e 4ffd |O | Short_Literal -0x3
005f 4802 |H | Short_Literal 0x2
0060 0099 | | Action Reference_Dynamic
0061 4ffe |O | Short_Literal -0x2
0062 4802 |H | Short_Literal 0x2
0063 0099 | | Action Reference_Dynamic
0064 6077 |`w | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00365914}
0065 4953 |IS | Short_Literal 0x153
0066 4807 |H | Short_Literal 0x7
0067 BODY_0058:
0067 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x2.0x1 = 0x67,0x1
0068 4800 |H | Short_Literal 0x0
0069 e5fa | | Load 0x2,-0x6
006a e5fb | | Load 0x2,-0x5
006b e402 | | Load 0x2,0x2
006c 4803 |H | Short_Literal 0x3
006d 4802 |H | Short_Literal 0x2
006e 0099 | | Action Reference_Dynamic
006f 4804 |H | Short_Literal 0x4
0070 4802 |H | Short_Literal 0x2
0071 0099 | | Action Reference_Dynamic
0072 4805 |H | Short_Literal 0x5
0073 4802 |H | Short_Literal 0x2
0074 0099 | | Action Reference_Dynamic
0075 820e | | Call 0x1,0xe
0076 c5f9 | | Store 0x2,-0x7
0077 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0088 | | .CONST 0x0088 ; Address of begin
0079 00b9 | | .CONST 0x00b9 ; Address of exception handler
007a 0008 | | .CONST 0x0008 ; Number of locals
007b INIT_0078:
007b e002 | | Load 0x0,0x2 ; Debug Table 0x3 = .DEBUG 0x007b,0x0176,0x2801,0x0002,0x0036,0x5904,0x0000,0x0049
; Debug Table 0x3.0x0 = 0x7b,0xffff
; Debug Table 0x3.0x1 = 0x7b,0xfffe
007c 190e | | Execute Package,Field_Reference,Field_Number 0xe
007d 00c6 | | Action Check_Subprogram_Elaborated
007e e5fc | | Load 0x2,-0x4
007f 605c |`\ | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00365914}
0080 489c |H | Short_Literal 0x9c
0081 4805 |H | Short_Literal 0x5
0082 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x2 = 0x82,0xfffd
0083 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0084 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x3 = 0x84,0xfffc
0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0086 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call ; Debug Table 0x3.0x4 = 0x86,0xfffb
0088 BODY_0078:
0088 e5fb | | Load 0x2,-0x5 ; Debug Table 0x3.0x5 = 0x88,0x1
0089 e402 | | Load 0x2,0x2
008a 4803 |H | Short_Literal 0x3
008b 4802 |H | Short_Literal 0x2
008c 0099 | | Action Reference_Dynamic
008d e002 | | Load 0x0,0x2
008e 180e | | Execute Package,Field_Execute,Field_Number 0xe
008f a406 | | Store_Unchecked 0x2,0x6
0090 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x3.0x6 = 0x90,0x2
0091 e5fc | | Load 0x2,-0x4
0092 0119 | | Execute Any,Check_In_Formal_Type
0093 85fd | | Call 0x2,-0x3
0094 a407 | | Store_Unchecked 0x2,0x7
0095 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x7 = 0x95,0x3
0096 e407 | | Load 0x2,0x7
0097 e002 | | Load 0x0,0x2
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 e002 | | Load 0x0,0x2
009a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
009b 6803 |h | Jump_Zero 0x9f
009c e20f | | Load 0x1,0xf ; Debug Table 0x3.0x8 = 0x9c,0x4
009d 8408 | | Call 0x2,0x8
009e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
009f 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x9 = 0x9f,0x5
00a0 e407 | | Load 0x2,0x7
00a1 e406 | | Load 0x2,0x6
00a2 e002 | | Load 0x0,0x2
00a3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a4 700c |p | Jump_Nonzero 0xb1
00a5 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x3.0xa = 0xa5,0x6
00a6 6803 |h | Jump_Zero 0xaa
00a7 e213 | | Load 0x1,0x13 ; Debug Table 0x3.0xb = 0xa7,0x7
00a8 8408 | | Call 0x2,0x8
00a9 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00aa 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x3.0xc = 0xaa,0x8
00ab e210 | | Load 0x1,0x10
00ac e5fa | | Load 0x2,-0x6
00ad e001 | | Load 0x0,0x1
00ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00af 6028 |`( | Indirect_Literal Discrete,0xd8,{0x00000000, 0x36591401} ; Debug Table 0x3.0xd = 0xaf,0x9
00b0 0257 | W | Execute Discrete,Raise
00b1 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x3.0xe = 0xb1,0xa
00b2 6805 |h | Jump_Zero 0xb8
00b3 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x3.0xf = 0xb3,0xb
00b4 e212 | | Load 0x1,0x12
00b5 e5fa | | Load 0x2,-0x6
00b6 e001 | | Load 0x0,0x1
00b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b8 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00b9 TRAP_0078:
00b9 0007 | | Action Break_Optional
00ba e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x10 = 0xba,0xc
00bb 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bc e211 | | Load 0x1,0x11
00bd e5fa | | Load 0x2,-0x6
00be e001 | | Load 0x0,0x1
00bf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c0 e409 | | Load 0x2,0x9 ; Debug Table 0x3.0x11 = 0xc0,0xd
00c1 0101 | | Execute Exception,Reraise
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x4 = .DEBUG 0x00cb,0x019c,0x0801,0x0002,0x0036,0x5914,0x0000,0x00b4
; Debug Table 0x4.0x0 = 0xcb,0x1
00cc e7ff | | Load 0x3,-0x1
00cd e5fa | | Load 0x2,-0x6
00ce e001 | | Load 0x0,0x1
00cf 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d0 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x4.0x1 = 0xd0,0x2
00d1 e406 | | Load 0x2,0x6
00d2 85fe | | Call 0x2,-0x2
00d3 c5f8 | | Store 0x2,-0x8
00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 0000 0000 | | .LITERAL {0x00000000, 0x36591401}
00dc 0000 0000 | | .LITERAL {0x00000000, 0x00365914}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; STRING TABLE
00e0 ; --------------------------------------------------------------------------------------
00e0 000c | | .STRTAB 0x000c->0x00e6 ; "Bootstrap Condition Detected"
00e1 0026 | & | .STRTAB 0x0026->0x00f4 ; "Disk Compatibility Error"
00e2 003c | < | .STRTAB 0x003c->0x0100 ; "Type Structure Error"
00e3 004e | N | .STRTAB 0x004e->0x010a ; "Restoration From Archive"
00e4 0064 | d | .STRTAB 0x0064->0x0116 ; "Format Change Done Via Archive"
00e5 0080 | | .STREND 0x0080->0x0125
00e6 426f 6f74 |Boot| .STRTAB_STRINGS
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0003 0005 | | .CONST 0x0003,0x0005
012a 000b 0152 | R| .DEBUG 0x000b,0x0152,0x8000,0x0000,0x0036,0x5904,0x0000,0x0009
0132 0010 015c | \| .DEBUG 0x0010,0x015c,0x8000,0x0000,0x0036,0x5914,0x0000,0x000b
013a 005b 0170 | [ p| .DEBUG 0x005b,0x0170,0x2801,0x0002,0x0036,0x5904,0x0000,0x0017
0142 007b 0176 | { v| .DEBUG 0x007b,0x0176,0x2801,0x0002,0x0036,0x5904,0x0000,0x0049
014a 00cb 019c | | .DEBUG 0x00cb,0x019c,0x0801,0x0002,0x0036,0x5914,0x0000,0x00b4
0152 ; --------------------------------------------------------------------------------------
0152 ; Debug3 Subtable 0x0
0152 ; --------------------------------------------------------------------------------------
0152 0004 0000 | | .DBG3TAB 0x0004,0x0000
0154 000b ffff | | .CONST 0x000b,0xffff
0156 000b fffe | | .CONST 0x000b,0xfffe
0158 000b fffd | | .CONST 0x000b,0xfffd
015a 000d fffc | | .CONST 0x000d,0xfffc
015c ; --------------------------------------------------------------------------------------
015c ; Debug3 Subtable 0x1
015c ; --------------------------------------------------------------------------------------
015c 0009 0000 | | .DBG3TAB 0x0009,0x0000
015e 0010 ffff | | .CONST 0x0010,0xffff
0160 0010 fffe | | .CONST 0x0010,0xfffe
0162 0010 fffd | | .CONST 0x0010,0xfffd
0164 001c fffc | | .CONST 0x001c,0xfffc
0166 0028 fffb | ( | .CONST 0x0028,0xfffb
0168 0034 fffa | 4 | .CONST 0x0034,0xfffa
016a 0040 fff9 | @ | .CONST 0x0040,0xfff9
016c 004c fff8 | L | .CONST 0x004c,0xfff8
016e 004e fff7 | N | .CONST 0x004e,0xfff7
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug3 Subtable 0x2
0170 ; --------------------------------------------------------------------------------------
0170 0001 0001 | | .DBG3TAB 0x0001,0x0001
0172 005b ffff | [ | .CONST 0x005b,0xffff
0174 0067 0001 | g | .CONST 0x0067,0x0001
0176 ; --------------------------------------------------------------------------------------
0176 ; Debug3 Subtable 0x3
0176 ; --------------------------------------------------------------------------------------
0176 0005 000d | | .DBG3TAB 0x0005,0x000d
0178 007b ffff | { | .CONST 0x007b,0xffff
017a 007b fffe | { | .CONST 0x007b,0xfffe
017c 0082 fffd | | .CONST 0x0082,0xfffd
017e 0084 fffc | | .CONST 0x0084,0xfffc
0180 0086 fffb | | .CONST 0x0086,0xfffb
0182 0088 0001 | | .CONST 0x0088,0x0001
0184 0090 0002 | | .CONST 0x0090,0x0002
0186 0095 0003 | | .CONST 0x0095,0x0003
0188 009c 0004 | | .CONST 0x009c,0x0004
018a 009f 0005 | | .CONST 0x009f,0x0005
018c 00a5 0006 | | .CONST 0x00a5,0x0006
018e 00a7 0007 | | .CONST 0x00a7,0x0007
0190 00aa 0008 | | .CONST 0x00aa,0x0008
0192 00af 0009 | | .CONST 0x00af,0x0009
0194 00b1 000a | | .CONST 0x00b1,0x000a
0196 00b3 000b | | .CONST 0x00b3,0x000b
0198 00ba 000c | | .CONST 0x00ba,0x000c
019a 00c0 000d | | .CONST 0x00c0,0x000d
019c ; --------------------------------------------------------------------------------------
019c ; Debug3 Subtable 0x4
019c ; --------------------------------------------------------------------------------------
019c 0000 0002 | | .DBG3TAB 0x0000,0x0002
019e 00cb 0001 | | .CONST 0x00cb,0x0001
01a0 00d0 0002 | | .CONST 0x00d0,0x0002
01a2 0000 0000 | | .BLANK 0000[0x5e]