|
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: »972819.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »972819.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »972819.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »972819.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »972819.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »972819.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 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 0100 | | .CONST 0x0100 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0023 | # | .CONST 0x0023 ; 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,0x012a,0x8000,0x0000,0x0037,0x0664,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000f 4800 |H | Short_Literal 0x0
0010 48ff |H | Short_Literal 0xff
0011 00e3 | | Load_Encached Natural_Cache
0012 03f9 | | Declare_Type Discrete,Constrained,Visible
0013 029f 002b | +| Declare_Subprogram INIT_0028,For_Call
0015 4802 |H | Short_Literal 0x2
0016 032e | . | Declare_Type Record,Defined,Visible
0017 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0.0x3 = 0x17,0xfffc
0018 0266 | f | Execute Discrete,Bounds
0019 00da | | Load_Top At_Offset_2
001a 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
001c 4801 |H | Short_Literal 0x1
001d 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
001e 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x1e,0xfffb
0020 00bf | | Action Accept_Activation
0021 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1 = .DEBUG 0x0021,0x0136,0x8000,0x0000,0x0037,0x1594,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x21,0xffff
0022 00c7 | | Action Elaborate_Subprogram
0023 BODY_0008:
0023 00bc | | Action Signal_Activated
0024 00bb | | Action Signal_Completion
0025 0000 0000 | | .XXX[0x3]
0027 0000 | |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x002b,0x013a,0x0005,0x0000,0x0037,0x0664,0x0000,0x0015
002c 7808 |x | Jump 0x35 ; case 0x0
002d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
002e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
002f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0030 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0031 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0032 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0033 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0035 00da | | Load_Top At_Offset_2
0036 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0037 1c00 | | Execute_Immediate Run_Utility,0x0
0038 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0039 0000 0000 | | .BLANK 0000[0x7]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x3 = .DEBUG 0x0043,0x013c,0x0005,0x0000,0x0037,0x0664,0x0000,0x0030
0044 00da | | Load_Top At_Offset_2
0045 01d8 | | Execute Vector,Element_Type
0046 0322 | " | Declare_Variable Record
0047 00d8 | | Load_Top At_Offset_0
0048 1c00 | | Execute_Immediate Run_Utility,0x0
0049 00db | | Load_Top At_Offset_3
004a 01dc | | Execute Vector,Last
004b e5ff | | Load 0x2,-0x1
004c 01dd | | Execute Vector,First
004d 0263 | c | Execute Discrete,Above_Bound
004e 7006 |p | Jump_Nonzero 0x55
004f 00da | | Load_Top At_Offset_2
0050 00d9 | | Load_Top At_Offset_1
0051 e5ff | | Load 0x2,-0x1
0052 01d6 | | Execute Vector,Field_Write
0053 0a01 | | Execute_Immediate Plus,0x1
0054 7ff8 | | Jump 0x4d
0055 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0061 | a | .CONST 0x0061 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0004 | | .CONST 0x0004 ; Number of locals
005b INIT_0058:
005b 029f 006b | k| Declare_Subprogram INIT_0068,For_Call ; Debug Table 0x4 = .DEBUG 0x005b,0x013e,0x2802,0x0002,0x0037,0x0664,0x0000,0x0039
; Debug Table 0x4.0x0 = 0x5b,0xffff
005d 029f 008b | | Declare_Subprogram INIT_0088,For_Call ; Debug Table 0x4.0x1 = 0x5d,0xfffe
005f 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call ; Debug Table 0x4.0x2 = 0x5f,0xfffd
0061 BODY_0058:
0061 8404 | | Call 0x2,0x4 ; Debug Table 0x4.0x3 = 0x61,0x1
0062 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0063 0000 0000 | | .BLANK 0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 007a | z | .CONST 0x007a ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0008 | | .CONST 0x0008 ; Number of locals
006b INIT_0068:
006b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5 = .DEBUG 0x006b,0x0148,0x0802,0x0002,0x0037,0x1594,0x0000,0x000c
; Debug Table 0x5.0x0 = 0x6b,0xffff
006c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
006d 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call ; Debug Table 0x5.0x1 = 0x6d,0xfffe
006f e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x2 = 0x6f,0xfffd
0070 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0071 00c6 | | Action Check_Subprogram_Elaborated
0072 e5fe | | Load 0x2,-0x2
0073 4803 |H | Short_Literal 0x3
0074 4803 |H | Short_Literal 0x3
0075 0099 | | Action Reference_Dynamic
0076 605d |`] | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00371594}
0077 482f |H/ | Short_Literal 0x2f
0078 4808 |H | Short_Literal 0x8
0079 0007 | | Action Break_Optional
007a BODY_0068:
007a e604 | | Load 0x3,0x4 ; Debug Table 0x5.0x3 = 0x7a,0x1
007b 4805 |H | Short_Literal 0x5
007c 4803 |H | Short_Literal 0x3
007d 0099 | | Action Reference_Dynamic
007e 4806 |H | Short_Literal 0x6
007f 4803 |H | Short_Literal 0x3
0080 0099 | | Action Reference_Dynamic
0081 e001 | | Load 0x0,0x1
0082 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0083 e602 | | Load 0x3,0x2 ; Debug Table 0x5.0x4 = 0x83,0x2
0084 00ca | | Action Exit_Nullary_Function
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009a | | .CONST 0x009a ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0008 | | .CONST 0x0008 ; Number of locals
008b INIT_0088:
008b 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x6 = .DEBUG 0x008b,0x0154,0x0801,0x0002,0x0037,0x1594,0x0000,0x0048
; Debug Table 0x6.0x0 = 0x8b,0xffff
008c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
008d 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call ; Debug Table 0x6.0x1 = 0x8d,0xfffe
008f e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x2 = 0x8f,0xfffd
0090 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0091 00c6 | | Action Check_Subprogram_Elaborated
0092 e5fe | | Load 0x2,-0x2
0093 4803 |H | Short_Literal 0x3
0094 4803 |H | Short_Literal 0x3
0095 0099 | | Action Reference_Dynamic
0096 603d |`= | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00371594}
0097 487c |H| | Short_Literal 0x7c
0098 4808 |H | Short_Literal 0x8
0099 0007 | | Action Break_Optional
009a BODY_0088:
009a e604 | | Load 0x3,0x4 ; Debug Table 0x6.0x3 = 0x9a,0x1
009b 4805 |H | Short_Literal 0x5
009c 4803 |H | Short_Literal 0x3
009d 0099 | | Action Reference_Dynamic
009e 4806 |H | Short_Literal 0x6
009f 4803 |H | Short_Literal 0x3
00a0 0099 | | Action Reference_Dynamic
00a1 e001 | | Load 0x0,0x1
00a2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b1 | | .CONST 0x00b1 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab 4801 |H | Short_Literal 0x1 ; Debug Table 0x7 = .DEBUG 0x00ab,0x015e,0x0802,0x0002,0x0037,0x1594,0x0000,0x0093
; Debug Table 0x7.0x0 = 0xab,0xffff
00ac 8402 | | Call 0x2,0x2
00ad e20e | | Load 0x1,0xe
00ae 0334 | 4 | Declare_Variable Array,With_Constraint
00af 00d8 | | Load_Top At_Offset_0
00b0 1c00 | | Execute_Immediate Run_Utility,0x0
00b1 BODY_00a8:
00b1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0xb1,0x1
00b2 8403 | | Call 0x2,0x3
00b3 00d1 | | Pop_Control Pop_Count_1
00b4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xb4,0x2
00b5 00ca | | Action Exit_Nullary_Function
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e602 | | Load 0x3,0x2 ; Debug Table 0x8 = .DEBUG 0x00bb,0x0166,0x0801,0x0002,0x0037,0x1594,0x0000,0x0016
; Debug Table 0x8.0x0 = 0xbb,0x1
00bc 0a01 | | Execute_Immediate Plus,0x1
00bd c602 | | Store 0x3,0x2
00be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e20d | | Load 0x1,0xd ; Debug Table 0x9 = .DEBUG 0x00c3,0x016a,0x0801,0x0002,0x0037,0x1594,0x0000,0x0055
; Debug Table 0x9.0x0 = 0xc3,0x1
00c4 0322 | " | Declare_Variable Record
00c5 00db | | Load_Top At_Offset_3
00c6 00d9 | | Load_Top At_Offset_1
00c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c8 e9fe | | Load 0x4,-0x2
00c9 00d9 | | Load_Top At_Offset_1
00ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cb e602 | | Load 0x3,0x2
00cc e7ff | | Load 0x3,-0x1
00cd 01d6 | | Execute Vector,Field_Write
00ce e602 | | Load 0x3,0x2 ; Debug Table 0x9.0x1 = 0xce,0x2
00cf 0a01 | | Execute_Immediate Plus,0x1
00d0 c602 | | Store 0x3,0x2
00d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d2 0000 0000 | | .XXX[0x2]
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00371594}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 000a | | .CONST 0x0003,0x000a
00da 000b 012a | *| .DEBUG 0x000b,0x012a,0x8000,0x0000,0x0037,0x0664,0x0000,0x0007
00e2 0021 0136 | ! 6| .DEBUG 0x0021,0x0136,0x8000,0x0000,0x0037,0x1594,0x0000,0x0005
00ea 002b 013a | + :| .DEBUG 0x002b,0x013a,0x0005,0x0000,0x0037,0x0664,0x0000,0x0015
00f2 0043 013c | C <| .DEBUG 0x0043,0x013c,0x0005,0x0000,0x0037,0x0664,0x0000,0x0030
00fa 005b 013e | [ >| .DEBUG 0x005b,0x013e,0x2802,0x0002,0x0037,0x0664,0x0000,0x0039
0102 006b 0148 | k H| .DEBUG 0x006b,0x0148,0x0802,0x0002,0x0037,0x1594,0x0000,0x000c
010a 008b 0154 | T| .DEBUG 0x008b,0x0154,0x0801,0x0002,0x0037,0x1594,0x0000,0x0048
0112 00ab 015e | ^| .DEBUG 0x00ab,0x015e,0x0802,0x0002,0x0037,0x1594,0x0000,0x0093
011a 00bb 0166 | f| .DEBUG 0x00bb,0x0166,0x0801,0x0002,0x0037,0x1594,0x0000,0x0016
0122 00c3 016a | j| .DEBUG 0x00c3,0x016a,0x0801,0x0002,0x0037,0x1594,0x0000,0x0055
012a ; --------------------------------------------------------------------------------------
012a ; Debug3 Subtable 0x0
012a ; --------------------------------------------------------------------------------------
012a 0005 0000 | | .DBG3TAB 0x0005,0x0000
012c 000b ffff | | .CONST 0x000b,0xffff
012e 000c fffe | | .CONST 0x000c,0xfffe
0130 000d fffd | | .CONST 0x000d,0xfffd
0132 0017 fffc | | .CONST 0x0017,0xfffc
0134 001e fffb | | .CONST 0x001e,0xfffb
0136 ; --------------------------------------------------------------------------------------
0136 ; Debug3 Subtable 0x1
0136 ; --------------------------------------------------------------------------------------
0136 0001 0000 | | .DBG3TAB 0x0001,0x0000
0138 0021 ffff | ! | .CONST 0x0021,0xffff
013a ; --------------------------------------------------------------------------------------
013a ; Debug3 Subtable 0x2
013a ; --------------------------------------------------------------------------------------
013a 0000 0000 | | .DBG3TAB 0x0000,0x0000
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x3
013c ; --------------------------------------------------------------------------------------
013c 0000 0000 | | .DBG3TAB 0x0000,0x0000
013e ; --------------------------------------------------------------------------------------
013e ; Debug3 Subtable 0x4
013e ; --------------------------------------------------------------------------------------
013e 0003 0001 | | .DBG3TAB 0x0003,0x0001
0140 005b ffff | [ | .CONST 0x005b,0xffff
0142 005d fffe | ] | .CONST 0x005d,0xfffe
0144 005f fffd | _ | .CONST 0x005f,0xfffd
0146 0061 0001 | a | .CONST 0x0061,0x0001
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug3 Subtable 0x5
0148 ; --------------------------------------------------------------------------------------
0148 0003 0002 | | .DBG3TAB 0x0003,0x0002
014a 006b ffff | k | .CONST 0x006b,0xffff
014c 006d fffe | m | .CONST 0x006d,0xfffe
014e 006f fffd | o | .CONST 0x006f,0xfffd
0150 007a 0001 | z | .CONST 0x007a,0x0001
0152 0083 0002 | | .CONST 0x0083,0x0002
0154 ; --------------------------------------------------------------------------------------
0154 ; Debug3 Subtable 0x6
0154 ; --------------------------------------------------------------------------------------
0154 0003 0001 | | .DBG3TAB 0x0003,0x0001
0156 008b ffff | | .CONST 0x008b,0xffff
0158 008d fffe | | .CONST 0x008d,0xfffe
015a 008f fffd | | .CONST 0x008f,0xfffd
015c 009a 0001 | | .CONST 0x009a,0x0001
015e ; --------------------------------------------------------------------------------------
015e ; Debug3 Subtable 0x7
015e ; --------------------------------------------------------------------------------------
015e 0001 0002 | | .DBG3TAB 0x0001,0x0002
0160 00ab ffff | | .CONST 0x00ab,0xffff
0162 00b1 0001 | | .CONST 0x00b1,0x0001
0164 00b4 0002 | | .CONST 0x00b4,0x0002
0166 ; --------------------------------------------------------------------------------------
0166 ; Debug3 Subtable 0x8
0166 ; --------------------------------------------------------------------------------------
0166 0000 0001 | | .DBG3TAB 0x0000,0x0001
0168 00bb 0001 | | .CONST 0x00bb,0x0001
016a ; --------------------------------------------------------------------------------------
016a ; Debug3 Subtable 0x9
016a ; --------------------------------------------------------------------------------------
016a 0000 0002 | | .DBG3TAB 0x0000,0x0002
016c 00c3 0001 | | .CONST 0x00c3,0x0001
016e 00ce 0002 | | .CONST 0x00ce,0x0002
0170 0000 0000 | | .BLANK 0000[0x90]