|
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: »1017874.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1017874.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1017874.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1017874.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1017874.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1017874.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 00d8 | | .CONST 0x00d8 ; 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 008c | | .CONST 0x008c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x00ea,0x8000,0x0000,0x000d,0xf304,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 4803 |H | Short_Literal 0x3
0010 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0012 03fe | | Declare_Type Discrete,Defined,Visible
0013 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x13,0xfffb
0014 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0015 0129 | ) | Execute Any,Make_Visible
0016 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x5 = 0x16,0xfffa
0017 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0018 0129 | ) | Execute Any,Make_Visible
0019 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x6 = 0x19,0xfff9
001a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
001b 0129 | ) | Execute Any,Make_Visible
001c e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x1c,0xfff8
001d 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
001e 0129 | ) | Execute Any,Make_Visible
001f 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x8 = 0x1f,0xfff7
0020 480d |H | Short_Literal 0xd
0021 e002 | | Load 0x0,0x2
0022 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0023 035c | \ | Declare_Type Array,Constrained,Visible
0024 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x24,0xfff6
0025 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0026 0129 | ) | Execute Any,Make_Visible
0027 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x27,0xfff5
0028 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0029 0129 | ) | Execute Any,Make_Visible
002a e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xb = 0x2a,0xfff4
002b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
002c 0129 | ) | Execute Any,Make_Visible
002d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xc = 0x2d,0xfff3
002e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
002f 0129 | ) | Execute Any,Make_Visible
0030 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xd = 0x30,0xfff2
0031 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0032 0129 | ) | Execute Any,Make_Visible
0033 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xe = 0x33,0xfff1
0034 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0035 0129 | ) | Execute Any,Make_Visible
0036 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xf = 0x36,0xfff0
0037 4809 |H | Short_Literal 0x9
0038 e001 | | Load 0x0,0x1
0039 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003a 03f9 | | Declare_Type Discrete,Constrained,Visible
003b e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x10 = 0x3b,0xffef
003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003d 0129 | ) | Execute Any,Make_Visible
003e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x11 = 0x3e,0xffee
003f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0040 0129 | ) | Execute Any,Make_Visible
0041 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x12 = 0x41,0xffed
0042 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0043 0129 | ) | Execute Any,Make_Visible
0044 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x13 = 0x44,0xffec
0045 0266 | f | Execute Discrete,Bounds
0046 00da | | Load_Top At_Offset_2
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 4801 |H | Short_Literal 0x1
0049 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
004a e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x14 = 0x4a,0xffeb
004b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004c 0129 | ) | Execute Any,Make_Visible
004d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x15 = 0x4d,0xffea
004e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
004f 0129 | ) | Execute Any,Make_Visible
0050 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x16 = 0x50,0xffe9
0051 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0052 0129 | ) | Execute Any,Make_Visible
0053 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0.0x17 = 0x53,0xffe8
0054 0266 | f | Execute Discrete,Bounds
0055 e210 | | Load 0x1,0x10
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 4801 |H | Short_Literal 0x1
0058 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0059 4809 |H | Short_Literal 0x9 ; Debug Table 0x0.0x18 = 0x59,0xffe7
005a 4803 |H | Short_Literal 0x3
005b e21d | | Load 0x1,0x1d
005c 0334 | 4 | Declare_Variable Array,With_Constraint
005d 0129 | ) | Execute Any,Make_Visible
005e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x19 = 0x5e,0xffe6
005f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0060 0129 | ) | Execute Any,Make_Visible
0061 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1a = 0x61,0xffe5
0062 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0063 0129 | ) | Execute Any,Make_Visible
0064 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1b = 0x64,0xffe4
0065 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0066 0129 | ) | Execute Any,Make_Visible
0067 0007 | | Action Break_Optional ; Debug Table 0x0.0x1c = 0x67,0xffe3
0068 604b |`K | Indirect_Literal Discrete,0xb4,{0x00000000, 0x0df30401} ; Debug Table 0x0.0x1d = 0x68,0xffe2
0069 0129 | ) | Execute Any,Make_Visible
006a 6045 |`E | Indirect_Literal Discrete,0xb0,{0x00000000, 0x0df30402} ; Debug Table 0x0.0x1e = 0x6a,0xffe1
006b 0129 | ) | Execute Any,Make_Visible
006c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1f = 0x6c,0xffe0
006d 0007 | | Action Break_Optional ; Debug Table 0x0.0x20 = 0x6d,0xffdf
006e 0007 | | Action Break_Optional ; Debug Table 0x0.0x21 = 0x6e,0xffde
006f 0007 | | Action Break_Optional ; Debug Table 0x0.0x22 = 0x6f,0xffdd
0070 0007 | | Action Break_Optional ; Debug Table 0x0.0x23 = 0x70,0xffdc
0071 0007 | | Action Break_Optional ; Debug Table 0x0.0x24 = 0x71,0xffdb
0072 0007 | | Action Break_Optional ; Debug Table 0x0.0x25 = 0x72,0xffda
0073 0007 | | Action Break_Optional ; Debug Table 0x0.0x26 = 0x73,0xffd9
0074 0007 | | Action Break_Optional ; Debug Table 0x0.0x27 = 0x74,0xffd8
0075 0007 | | Action Break_Optional ; Debug Table 0x0.0x28 = 0x75,0xffd7
0076 0007 | | Action Break_Optional ; Debug Table 0x0.0x29 = 0x76,0xffd6
0077 0007 | | Action Break_Optional ; Debug Table 0x0.0x2a = 0x77,0xffd5
0078 0007 | | Action Break_Optional ; Debug Table 0x0.0x2b = 0x78,0xffd4
0079 0007 | | Action Break_Optional ; Debug Table 0x0.0x2c = 0x79,0xffd3
007a 0007 | | Action Break_Optional ; Debug Table 0x0.0x2d = 0x7a,0xffd2
007b 0007 | | Action Break_Optional ; Debug Table 0x0.0x2e = 0x7b,0xffd1
007c 0007 | | Action Break_Optional ; Debug Table 0x0.0x2f = 0x7c,0xffd0
007d 0007 | | Action Break_Optional ; Debug Table 0x0.0x30 = 0x7d,0xffcf
007e 0007 | | Action Break_Optional ; Debug Table 0x0.0x31 = 0x7e,0xffce
007f 0007 | | Action Break_Optional ; Debug Table 0x0.0x32 = 0x7f,0xffcd
0080 0007 | | Action Break_Optional ; Debug Table 0x0.0x33 = 0x80,0xffcc
0081 0007 | | Action Break_Optional ; Debug Table 0x0.0x34 = 0x81,0xffcb
0082 0007 | | Action Break_Optional ; Debug Table 0x0.0x35 = 0x82,0xffca
0083 0007 | | Action Break_Optional ; Debug Table 0x0.0x36 = 0x83,0xffc9
0084 0007 | | Action Break_Optional ; Debug Table 0x0.0x37 = 0x84,0xffc8
0085 0007 | | Action Break_Optional ; Debug Table 0x0.0x38 = 0x85,0xffc7
0086 6025 |`% | Indirect_Literal Discrete,0xac,{0x00000000, 0x0df30403} ; Debug Table 0x0.0x39 = 0x86,0xffc6
0087 0129 | ) | Execute Any,Make_Visible
0088 601f |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x0df30404} ; Debug Table 0x0.0x3a = 0x88,0xffc5
0089 0129 | ) | Execute Any,Make_Visible
008a 0007 | | Action Break_Optional ; Debug Table 0x0.0x3b = 0x8a,0xffc4
008b 00bf | | Action Accept_Activation ; Debug Table 0x0.0x3c = 0x8b,0xffc3
008c BODY_0008:
008c 00bc | | Action Signal_Activated
008d 00bb | | Action Signal_Completion
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0093,0x0166,0x0005,0x0000,0x000d,0xf304,0x0000,0x001b
0094 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0095 7802 |x | Jump 0x98 ; case 0x1
0096 7805 |x | Jump 0x9c ; case 0x2
0097 7809 |x | Jump 0xa1 ; case 0x3
0098 00da | | Load_Top At_Offset_2
0099 0091 00b8 | | Action Push_String_Extended_Indexed,0xb8 ; "FIXED_LENGTH"
009b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009c 00db | | Load_Top At_Offset_3
009d 00db | | Load_Top At_Offset_3
009e 00e0 | | Load_Encached Standard_Cache
009f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a1 00da | | Load_Top At_Offset_2
00a2 00e0 | | Load_Encached Standard_Cache
00a3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 0000 0000 | | .LITERAL {0x00000000, 0x0df30404}
00ac 0000 0000 | | .LITERAL {0x00000000, 0x0df30403}
00b0 0000 0000 | | .LITERAL {0x00000000, 0x0df30402}
00b4 0000 0000 | | .LITERAL {0x00000000, 0x0df30401}
00b8 ; --------------------------------------------------------------------------------------
00b8 ; STRING TABLE
00b8 ; --------------------------------------------------------------------------------------
00b8 000a | | .STRTAB 0x000a->0x00bd ; "FIXED_LENGTH"
00b9 0014 | | .STRTAB 0x0014->0x00c3 ; "VARIABLE_LENGTH"
00ba 0021 | ! | .STRTAB 0x0021->0x00ca ; "SPANNED"
00bb 0026 | & | .STRTAB 0x0026->0x00ce ; "UNDEFINED"
00bc 002d | - | .STREND 0x002d->0x00d2
00bd 4649 5845 |FIXE| .STRTAB_STRINGS
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 0002 | | .CONST 0x0003,0x0002
00da 000b 00ea | | .DEBUG 0x000b,0x00ea,0x8000,0x0000,0x000d,0xf304,0x0000,0x0009
00e2 0093 0166 | f| .DEBUG 0x0093,0x0166,0x0005,0x0000,0x000d,0xf304,0x0000,0x001b
00ea ; --------------------------------------------------------------------------------------
00ea ; Debug3 Subtable 0x0
00ea ; --------------------------------------------------------------------------------------
00ea 003d 0000 | = | .DBG3TAB 0x003d,0x0000
00ec 000b ffff | | .CONST 0x000b,0xffff
00ee 000c fffe | | .CONST 0x000c,0xfffe
00f0 000d fffd | | .CONST 0x000d,0xfffd
00f2 000e fffc | | .CONST 0x000e,0xfffc
00f4 0013 fffb | | .CONST 0x0013,0xfffb
00f6 0016 fffa | | .CONST 0x0016,0xfffa
00f8 0019 fff9 | | .CONST 0x0019,0xfff9
00fa 001c fff8 | | .CONST 0x001c,0xfff8
00fc 001f fff7 | | .CONST 0x001f,0xfff7
00fe 0024 fff6 | $ | .CONST 0x0024,0xfff6
0100 0027 fff5 | ' | .CONST 0x0027,0xfff5
0102 002a fff4 | * | .CONST 0x002a,0xfff4
0104 002d fff3 | - | .CONST 0x002d,0xfff3
0106 0030 fff2 | 0 | .CONST 0x0030,0xfff2
0108 0033 fff1 | 3 | .CONST 0x0033,0xfff1
010a 0036 fff0 | 6 | .CONST 0x0036,0xfff0
010c 003b ffef | ; | .CONST 0x003b,0xffef
010e 003e ffee | > | .CONST 0x003e,0xffee
0110 0041 ffed | A | .CONST 0x0041,0xffed
0112 0044 ffec | D | .CONST 0x0044,0xffec
0114 004a ffeb | J | .CONST 0x004a,0xffeb
0116 004d ffea | M | .CONST 0x004d,0xffea
0118 0050 ffe9 | P | .CONST 0x0050,0xffe9
011a 0053 ffe8 | S | .CONST 0x0053,0xffe8
011c 0059 ffe7 | Y | .CONST 0x0059,0xffe7
011e 005e ffe6 | ^ | .CONST 0x005e,0xffe6
0120 0061 ffe5 | a | .CONST 0x0061,0xffe5
0122 0064 ffe4 | d | .CONST 0x0064,0xffe4
0124 0067 ffe3 | g | .CONST 0x0067,0xffe3
0126 0068 ffe2 | h | .CONST 0x0068,0xffe2
0128 006a ffe1 | j | .CONST 0x006a,0xffe1
012a 006c ffe0 | l | .CONST 0x006c,0xffe0
012c 006d ffdf | m | .CONST 0x006d,0xffdf
012e 006e ffde | n | .CONST 0x006e,0xffde
0130 006f ffdd | o | .CONST 0x006f,0xffdd
0132 0070 ffdc | p | .CONST 0x0070,0xffdc
0134 0071 ffdb | q | .CONST 0x0071,0xffdb
0136 0072 ffda | r | .CONST 0x0072,0xffda
0138 0073 ffd9 | s | .CONST 0x0073,0xffd9
013a 0074 ffd8 | t | .CONST 0x0074,0xffd8
013c 0075 ffd7 | u | .CONST 0x0075,0xffd7
013e 0076 ffd6 | v | .CONST 0x0076,0xffd6
0140 0077 ffd5 | w | .CONST 0x0077,0xffd5
0142 0078 ffd4 | x | .CONST 0x0078,0xffd4
0144 0079 ffd3 | y | .CONST 0x0079,0xffd3
0146 007a ffd2 | z | .CONST 0x007a,0xffd2
0148 007b ffd1 | { | .CONST 0x007b,0xffd1
014a 007c ffd0 | | | .CONST 0x007c,0xffd0
014c 007d ffcf | } | .CONST 0x007d,0xffcf
014e 007e ffce | ~ | .CONST 0x007e,0xffce
0150 007f ffcd | | .CONST 0x007f,0xffcd
0152 0080 ffcc | | .CONST 0x0080,0xffcc
0154 0081 ffcb | | .CONST 0x0081,0xffcb
0156 0082 ffca | | .CONST 0x0082,0xffca
0158 0083 ffc9 | | .CONST 0x0083,0xffc9
015a 0084 ffc8 | | .CONST 0x0084,0xffc8
015c 0085 ffc7 | | .CONST 0x0085,0xffc7
015e 0086 ffc6 | | .CONST 0x0086,0xffc6
0160 0088 ffc5 | | .CONST 0x0088,0xffc5
0162 008a ffc4 | | .CONST 0x008a,0xffc4
0164 008b ffc3 | | .CONST 0x008b,0xffc3
0166 ; --------------------------------------------------------------------------------------
0166 ; Debug3 Subtable 0x1
0166 ; --------------------------------------------------------------------------------------
0166 0000 0000 | | .DBG3TAB 0x0000,0x0000
0168 0000 0000 | | .BLANK 0000[0x98]