|
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: »1018898.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1018898.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1018898.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1018898.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1018898.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1018898.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 00a8 | | .CONST 0x00a8 ; 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 006a | j | .CONST 0x006a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x00ba,0x8000,0x0000,0x000d,0xf314,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 0073 | s| Declare_Subprogram INIT_0070,For_Call
0012 03fe | | Declare_Type Discrete,Defined,Visible
0013 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x13,0xfffb
0014 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0015 0129 | ) | Execute Any,Make_Visible
0016 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x5 = 0x16,0xfffa
0017 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0018 0129 | ) | Execute Any,Make_Visible
0019 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x6 = 0x19,0xfff9
001a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001b 0129 | ) | Execute Any,Make_Visible
001c e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x1c,0xfff8
001d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001e 0129 | ) | Execute Any,Make_Visible
001f e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x8 = 0x1f,0xfff7
0020 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0021 0129 | ) | Execute Any,Make_Visible
0022 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x22,0xfff6
0023 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0024 0129 | ) | Execute Any,Make_Visible
0025 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x25,0xfff5
0026 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0027 0129 | ) | Execute Any,Make_Visible
0028 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xb = 0x28,0xfff4
0029 1b17 | | Execute Package,Field_Read,Field_Number 0x17
002a 0129 | ) | Execute Any,Make_Visible
002b e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xc = 0x2b,0xfff3
002c 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
002d 0129 | ) | Execute Any,Make_Visible
002e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xd = 0x2e,0xfff2
002f 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0030 0129 | ) | Execute Any,Make_Visible
0031 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xe = 0x31,0xfff1
0032 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0033 0129 | ) | Execute Any,Make_Visible
0034 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xf = 0x34,0xfff0
0035 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0036 0129 | ) | Execute Any,Make_Visible
0037 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x10 = 0x37,0xffef
0038 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0039 0129 | ) | Execute Any,Make_Visible
003a 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x3a,0xffee
003b 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x3b,0xffed
003c 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x13 = 0x3c,0xffec
003d 4a14 |J | Short_Literal 0x214
003e 00e4 | | Load_Encached Positive_Cache
003f 03f9 | | Declare_Type Discrete,Constrained,Visible
0040 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x14 = 0x40,0xffeb
0041 0266 | f | Execute Discrete,Bounds
0042 00e8 | | Load_Encached Character_Cache
0043 02a0 | | Declare_Subprogram Null_Subprogram
0044 4801 |H | Short_Literal 0x1
0045 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0046 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x15 = 0x46,0xffea
0047 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0048 0129 | ) | Execute Any,Make_Visible
0049 0007 | | Action Break_Optional ; Debug Table 0x0.0x16 = 0x49,0xffe9
004a 603d |`= | Indirect_Literal Discrete,0x88,{0x00000000, 0x0df31401} ; Debug Table 0x0.0x17 = 0x4a,0xffe8
004b 0129 | ) | Execute Any,Make_Visible
004c 0007 | | Action Break_Optional ; Debug Table 0x0.0x18 = 0x4c,0xffe7
004d 0007 | | Action Break_Optional ; Debug Table 0x0.0x19 = 0x4d,0xffe6
004e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1a = 0x4e,0xffe5
004f 0007 | | Action Break_Optional ; Debug Table 0x0.0x1b = 0x4f,0xffe4
0050 0007 | | Action Break_Optional ; Debug Table 0x0.0x1c = 0x50,0xffe3
0051 0007 | | Action Break_Optional ; Debug Table 0x0.0x1d = 0x51,0xffe2
0052 0007 | | Action Break_Optional ; Debug Table 0x0.0x1e = 0x52,0xffe1
0053 0007 | | Action Break_Optional ; Debug Table 0x0.0x1f = 0x53,0xffe0
0054 0007 | | Action Break_Optional ; Debug Table 0x0.0x20 = 0x54,0xffdf
0055 0007 | | Action Break_Optional ; Debug Table 0x0.0x21 = 0x55,0xffde
0056 0007 | | Action Break_Optional ; Debug Table 0x0.0x22 = 0x56,0xffdd
0057 0007 | | Action Break_Optional ; Debug Table 0x0.0x23 = 0x57,0xffdc
0058 0007 | | Action Break_Optional ; Debug Table 0x0.0x24 = 0x58,0xffdb
0059 0007 | | Action Break_Optional ; Debug Table 0x0.0x25 = 0x59,0xffda
005a 0007 | | Action Break_Optional ; Debug Table 0x0.0x26 = 0x5a,0xffd9
005b 0007 | | Action Break_Optional ; Debug Table 0x0.0x27 = 0x5b,0xffd8
005c 0007 | | Action Break_Optional ; Debug Table 0x0.0x28 = 0x5c,0xffd7
005d 0007 | | Action Break_Optional ; Debug Table 0x0.0x29 = 0x5d,0xffd6
005e 0007 | | Action Break_Optional ; Debug Table 0x0.0x2a = 0x5e,0xffd5
005f 0007 | | Action Break_Optional ; Debug Table 0x0.0x2b = 0x5f,0xffd4
0060 0007 | | Action Break_Optional ; Debug Table 0x0.0x2c = 0x60,0xffd3
0061 0007 | | Action Break_Optional ; Debug Table 0x0.0x2d = 0x61,0xffd2
0062 0007 | | Action Break_Optional ; Debug Table 0x0.0x2e = 0x62,0xffd1
0063 0007 | | Action Break_Optional ; Debug Table 0x0.0x2f = 0x63,0xffd0
0064 0007 | | Action Break_Optional ; Debug Table 0x0.0x30 = 0x64,0xffcf
0065 0007 | | Action Break_Optional ; Debug Table 0x0.0x31 = 0x65,0xffce
0066 0007 | | Action Break_Optional ; Debug Table 0x0.0x32 = 0x66,0xffcd
0067 0007 | | Action Break_Optional ; Debug Table 0x0.0x33 = 0x67,0xffcc
0068 0007 | | Action Break_Optional ; Debug Table 0x0.0x34 = 0x68,0xffcb
0069 00bf | | Action Accept_Activation ; Debug Table 0x0.0x35 = 0x69,0xffca
006a BODY_0008:
006a 00bc | | Action Signal_Activated
006b 00bb | | Action Signal_Completion
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0073,0x0128,0x0005,0x0000,0x000d,0xf314,0x0000,0x001b
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7802 |x | Jump 0x78 ; case 0x1
0076 7805 |x | Jump 0x7c ; case 0x2
0077 7809 |x | Jump 0x81 ; case 0x3
0078 00da | | Load_Top At_Offset_2
0079 0091 008c | | Action Push_String_Extended_Indexed,0x8c ; "FIXED_LENGTH"
007b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007c 00db | | Load_Top At_Offset_3
007d 00db | | Load_Top At_Offset_3
007e 00e0 | | Load_Encached Standard_Cache
007f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0080 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0081 00da | | Load_Top At_Offset_2
0082 00e0 | | Load_Encached Standard_Cache
0083 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0084 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 0000 0000 | | .LITERAL {0x00000000, 0x0df31401}
008c ; --------------------------------------------------------------------------------------
008c ; STRING TABLE
008c ; --------------------------------------------------------------------------------------
008c 000a | | .STRTAB 0x000a->0x0091 ; "FIXED_LENGTH"
008d 0014 | | .STRTAB 0x0014->0x0097 ; "VARIABLE_LENGTH"
008e 0021 | ! | .STRTAB 0x0021->0x009e ; "SPANNED"
008f 0026 | & | .STRTAB 0x0026->0x00a2 ; "UNDEFINED"
0090 002d | - | .STREND 0x002d->0x00a6
0091 4649 5845 |FIXE| .STRTAB_STRINGS
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug Table
00a8 ; --------------------------------------------------------------------------------------
00a8 0003 0002 | | .CONST 0x0003,0x0002
00aa 000b 00ba | | .DEBUG 0x000b,0x00ba,0x8000,0x0000,0x000d,0xf314,0x0000,0x0009
00b2 0073 0128 | s (| .DEBUG 0x0073,0x0128,0x0005,0x0000,0x000d,0xf314,0x0000,0x001b
00ba ; --------------------------------------------------------------------------------------
00ba ; Debug3 Subtable 0x0
00ba ; --------------------------------------------------------------------------------------
00ba 0036 0000 | 6 | .DBG3TAB 0x0036,0x0000
00bc 000b ffff | | .CONST 0x000b,0xffff
00be 000c fffe | | .CONST 0x000c,0xfffe
00c0 000d fffd | | .CONST 0x000d,0xfffd
00c2 000e fffc | | .CONST 0x000e,0xfffc
00c4 0013 fffb | | .CONST 0x0013,0xfffb
00c6 0016 fffa | | .CONST 0x0016,0xfffa
00c8 0019 fff9 | | .CONST 0x0019,0xfff9
00ca 001c fff8 | | .CONST 0x001c,0xfff8
00cc 001f fff7 | | .CONST 0x001f,0xfff7
00ce 0022 fff6 | " | .CONST 0x0022,0xfff6
00d0 0025 fff5 | % | .CONST 0x0025,0xfff5
00d2 0028 fff4 | ( | .CONST 0x0028,0xfff4
00d4 002b fff3 | + | .CONST 0x002b,0xfff3
00d6 002e fff2 | . | .CONST 0x002e,0xfff2
00d8 0031 fff1 | 1 | .CONST 0x0031,0xfff1
00da 0034 fff0 | 4 | .CONST 0x0034,0xfff0
00dc 0037 ffef | 7 | .CONST 0x0037,0xffef
00de 003a ffee | : | .CONST 0x003a,0xffee
00e0 003b ffed | ; | .CONST 0x003b,0xffed
00e2 003c ffec | < | .CONST 0x003c,0xffec
00e4 0040 ffeb | @ | .CONST 0x0040,0xffeb
00e6 0046 ffea | F | .CONST 0x0046,0xffea
00e8 0049 ffe9 | I | .CONST 0x0049,0xffe9
00ea 004a ffe8 | J | .CONST 0x004a,0xffe8
00ec 004c ffe7 | L | .CONST 0x004c,0xffe7
00ee 004d ffe6 | M | .CONST 0x004d,0xffe6
00f0 004e ffe5 | N | .CONST 0x004e,0xffe5
00f2 004f ffe4 | O | .CONST 0x004f,0xffe4
00f4 0050 ffe3 | P | .CONST 0x0050,0xffe3
00f6 0051 ffe2 | Q | .CONST 0x0051,0xffe2
00f8 0052 ffe1 | R | .CONST 0x0052,0xffe1
00fa 0053 ffe0 | S | .CONST 0x0053,0xffe0
00fc 0054 ffdf | T | .CONST 0x0054,0xffdf
00fe 0055 ffde | U | .CONST 0x0055,0xffde
0100 0056 ffdd | V | .CONST 0x0056,0xffdd
0102 0057 ffdc | W | .CONST 0x0057,0xffdc
0104 0058 ffdb | X | .CONST 0x0058,0xffdb
0106 0059 ffda | Y | .CONST 0x0059,0xffda
0108 005a ffd9 | Z | .CONST 0x005a,0xffd9
010a 005b ffd8 | [ | .CONST 0x005b,0xffd8
010c 005c ffd7 | \ | .CONST 0x005c,0xffd7
010e 005d ffd6 | ] | .CONST 0x005d,0xffd6
0110 005e ffd5 | ^ | .CONST 0x005e,0xffd5
0112 005f ffd4 | _ | .CONST 0x005f,0xffd4
0114 0060 ffd3 | ` | .CONST 0x0060,0xffd3
0116 0061 ffd2 | a | .CONST 0x0061,0xffd2
0118 0062 ffd1 | b | .CONST 0x0062,0xffd1
011a 0063 ffd0 | c | .CONST 0x0063,0xffd0
011c 0064 ffcf | d | .CONST 0x0064,0xffcf
011e 0065 ffce | e | .CONST 0x0065,0xffce
0120 0066 ffcd | f | .CONST 0x0066,0xffcd
0122 0067 ffcc | g | .CONST 0x0067,0xffcc
0124 0068 ffcb | h | .CONST 0x0068,0xffcb
0126 0069 ffca | i | .CONST 0x0069,0xffca
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x1
0128 ; --------------------------------------------------------------------------------------
0128 0000 0000 | | .DBG3TAB 0x0000,0x0000
012a 0000 0000 | | .BLANK 0000[0xd6]