|
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: »1019923.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1019923.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1019923.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1019923.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1019923.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1019923.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 00f8 | | .CONST 0x00f8 ; 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 0015 | | .CONST 0x0015 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0122,0x8000,0x0000,0x0037,0x09a4,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00bf | | Action Accept_Activation
0010 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0010,0x0128,0x8000,0x0000,0x0037,0x1574,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x10,0xffff
0011 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x11,0xfffe
0012 00c7 | | Action Elaborate_Subprogram
0013 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x13,0xfffd
0014 00c7 | | Action Elaborate_Subprogram
0015 BODY_0008:
0015 00bc | | Action Signal_Activated
0016 00bb | | Action Signal_Completion
0017 0000 | | .XXX[0x1]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0063 | c | .CONST 0x0063 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000f | | .CONST 0x000f ; Number of locals
001b INIT_0018:
001b 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x001b,0x0130,0x2802,0x0002,0x0037,0x09a4,0x0000,0x0004
; Debug Table 0x2.0x0 = 0x1b,0xffff
001c 012c | , | Execute Any,Size
001d 00e3 | | Load_Encached Natural_Cache
001e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
001f 0007 | | Action Break_Optional ; Debug Table 0x2.0x1 = 0x1f,0xfffe
0020 481f |H | Short_Literal 0x1f ; Debug Table 0x2.0x2 = 0x20,0xfffd
0021 481f |H | Short_Literal 0x1f
0022 00da | | Load_Top At_Offset_2
0023 e001 | | Load 0x0,0x1
0024 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0025 0272 | r | Execute Discrete,Minus
0026 00e3 | | Load_Encached Natural_Cache
0027 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0028 481f |H | Short_Literal 0x1f ; Debug Table 0x2.0x3 = 0x28,0xfffc
0029 00da | | Load_Top At_Offset_2
002a e001 | | Load 0x0,0x1
002b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
002c 0ae1 | | Execute_Immediate Plus,-0x1f
002d 00e3 | | Load_Encached Natural_Cache
002e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
002f 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0x2f,0xfffb
0030 4801 |H | Short_Literal 0x1
0031 00e2 | | Load_Encached Integer_Cache
0032 03f8 | | Declare_Type Discrete,Constrained
0033 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x5 = 0x33,0xfffa
0034 00db | | Load_Top At_Offset_3
0035 0aff | | Execute_Immediate Plus,-0x1
0036 0248 | H | Execute Discrete,Check_In_Integer
0037 00da | | Load_Top At_Offset_2
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 4801 |H | Short_Literal 0x1
003a 035d | ] | Declare_Type Array,Defined
003b 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x6 = 0x3b,0xfff9
003c 00db | | Load_Top At_Offset_3
003d 0aff | | Execute_Immediate Plus,-0x1
003e 0248 | H | Execute Discrete,Check_In_Integer
003f 00db | | Load_Top At_Offset_3
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 4801 |H | Short_Literal 0x1
0042 035d | ] | Declare_Type Array,Defined
0043 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x7 = 0x43,0xfff8
0044 e5fe | | Load 0x2,-0x2
0045 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0047 4802 |H | Short_Literal 0x2
0048 032d | - | Declare_Type Record,Defined
0049 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x8 = 0x49,0xfff7
004a 00e3 | | Load_Encached Natural_Cache
004b 02a0 | | Declare_Subprogram Null_Subprogram
004c 4802 |H | Short_Literal 0x2
004d 032d | - | Declare_Type Record,Defined
004e e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x9 = 0x4e,0xfff6
004f 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
0050 00c6 | | Action Check_Subprogram_Elaborated
0051 00d8 | | Load_Top At_Offset_0
0052 60a1 |` | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00371574}
0053 4885 |H | Short_Literal 0x85
0054 480d |H | Short_Literal 0xd
0055 0007 | | Action Break_Optional
0056 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0xa = 0x56,0xfff5
0057 0322 | " | Declare_Variable Record
0058 00d8 | | Load_Top At_Offset_0
0059 1c00 | | Execute_Immediate Run_Utility,0x0
005a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xb = 0x5a,0xfff4
005b 012d | - | Execute Any,Address
005c e40a | | Load 0x2,0xa
005d 480b |H | Short_Literal 0xb
005e 4802 |H | Short_Literal 0x2
005f 0099 | | Action Reference_Dynamic
0060 e002 | | Load 0x0,0x2
0061 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0062 0007 | | Action Break_Optional ; Debug Table 0x2.0xc = 0x62,0xfff3
0063 BODY_0018:
0063 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0xd = 0x63,0x1
0064 0322 | " | Declare_Variable Record
0065 e406 | | Load 0x2,0x6
0066 0337 | 7 | Declare_Variable Array
0067 00d8 | | Load_Top At_Offset_0
0068 01d9 | | Execute Vector,Reverse_Bounds
0069 0263 | c | Execute Discrete,Above_Bound
006a 7005 |p | Jump_Nonzero 0x70
006b 4800 |H | Short_Literal 0x0
006c 00d9 | | Load_Top At_Offset_1
006d e411 | | Load 0x2,0x11
006e 01d6 | | Execute Vector,Field_Write
006f 3ffb |? | Loop_Increasing 0x6b
0070 e406 | | Load 0x2,0x6
0071 0119 | | Execute Any,Check_In_Formal_Type
0072 00d9 | | Load_Top At_Offset_1
0073 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0074 e5fd | | Load 0x2,-0x3
0075 e5fe | | Load 0x2,-0x2
0076 0119 | | Execute Any,Check_In_Formal_Type
0077 00d9 | | Load_Top At_Offset_1
0078 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0079 00da | | Load_Top At_Offset_2
007a 017d | } | Execute Record,Structure_Write
007b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xe = 0x7b,0x2
007c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
007d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 00a8 | | .CONST 0x00a8 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 000e | | .CONST 0x000e ; Number of locals
0083 INIT_0080:
0083 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x3 = .DEBUG 0x0083,0x0150,0x2801,0x0002,0x0037,0x09a4,0x0000,0x0012
; Debug Table 0x3.0x0 = 0x83,0xffff
0084 01dd | | Execute Vector,First
0085 e5f9 | | Load 0x2,-0x7
0086 01dc | | Execute Vector,Last
0087 e5fc | | Load 0x2,-0x4
0088 03f8 | | Declare_Type Discrete,Constrained
0089 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x1 = 0x89,0xfffe
008a 190e | | Execute Package,Field_Reference,Field_Number 0xe
008b 00c6 | | Action Check_Subprogram_Elaborated
008c 00d8 | | Load_Top At_Offset_0
008d 6066 |`f | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00371574}
008e 48d1 |H | Short_Literal 0xd1
008f 4806 |H | Short_Literal 0x6
0090 0007 | | Action Break_Optional
0091 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x3.0x2 = 0x91,0xfffd
0092 01dd | | Execute Vector,First
0093 e5f8 | | Load 0x2,-0x8
0094 01dc | | Execute Vector,Last
0095 e5fc | | Load 0x2,-0x4
0096 03f8 | | Declare_Type Discrete,Constrained
0097 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x3 = 0x97,0xfffc
0098 190d | | Execute Package,Field_Reference,Field_Number 0xd
0099 00c6 | | Action Check_Subprogram_Elaborated
009a 00d8 | | Load_Top At_Offset_0
009b 6058 |`X | Indirect_Literal Discrete,0xf4,{0x00000000, 0x00371574}
009c 48e6 |H | Short_Literal 0xe6
009d 480b |H | Short_Literal 0xb
009e 0007 | | Action Break_Optional
009f e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x4 = 0x9f,0xfffb
00a0 026a | j | Execute Discrete,First
00a1 e402 | | Load 0x2,0x2
00a2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00a3 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x5 = 0xa3,0xfffa
00a4 026a | j | Execute Discrete,First
00a5 e407 | | Load 0x2,0x7
00a6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00a7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x6 = 0xa7,0xfff9
00a8 BODY_0080:
00a8 00cf | | Action Mark_Auxiliary
00a9 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x3.0x7 = 0xa9,0x1
00aa 01d9 | | Execute Vector,Reverse_Bounds
00ab 0263 | c | Execute Discrete,Above_Bound
00ac 7006 |p | Jump_Nonzero 0xb3
00ad e5fb | | Load 0x2,-0x5 ; Debug Table 0x3.0x8 = 0xad,0x2
00ae 00d9 | | Load_Top At_Offset_1
00af e5f8 | | Load 0x2,-0x8
00b0 01d6 | | Execute Vector,Field_Write
00b1 00c8 | | Action Pop_Auxiliary_Range
00b2 3ffa |? | Loop_Increasing 0xad
00b3 00c9 | | Action Pop_Auxiliary_Loop
00b4 0007 | | Action Break_Optional ; Debug Table 0x3.0x9 = 0xb4,0x3
00b5 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xa = 0xb5,0x4
00b6 e5f9 | | Load 0x2,-0x7
00b7 01d7 | | Execute Vector,Field_Read
00b8 e5fa | | Load 0x2,-0x6
00b9 0119 | | Execute Any,Check_In_Formal_Type
00ba 00db | | Load_Top At_Offset_3
00bb e5f8 | | Load 0x2,-0x8
00bc 01d7 | | Execute Vector,Field_Read
00bd e5fa | | Load 0x2,-0x6
00be 0119 | | Execute Any,Check_In_Formal_Type
00bf 85fe | | Call 0x2,-0x2
00c0 00db | | Load_Top At_Offset_3
00c1 e5f8 | | Load 0x2,-0x8
00c2 01d6 | | Execute Vector,Field_Write
00c3 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0xb = 0xc3,0x5
00c4 e403 | | Load 0x2,0x3
00c5 4804 |H | Short_Literal 0x4
00c6 4802 |H | Short_Literal 0x2
00c7 0099 | | Action Reference_Dynamic
00c8 e003 | | Load 0x0,0x3
00c9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ca c40c | | Store 0x2,0xc
00cb 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0xc = 0xcb,0x6
00cc 00db | | Load_Top At_Offset_3
00cd e408 | | Load 0x2,0x8
00ce 4809 |H | Short_Literal 0x9
00cf 4802 |H | Short_Literal 0x2
00d0 0099 | | Action Reference_Dynamic
00d1 e003 | | Load 0x0,0x3
00d2 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d3 c40d | | Store 0x2,0xd
00d4 005a | Z | Store_Top Discrete,At_Offset_2
00d5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xd = 0xd5,0x7
00d6 7002 |p | Jump_Nonzero 0xd9
00d7 00c9 | | Action Pop_Auxiliary_Loop
00d8 7fdc | | Jump 0xb5
00d9 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4608 |F | Jump_Case 0x9 ; Debug Table 0x4 = .DEBUG 0x00e3,0x016e,0x0805,0x0002,0x0037,0x1574,0x0000,0x0069
00e4 7808 |x | Jump 0xed ; case 0x0
00e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00e6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00e7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00e8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00e9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00ea 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00ed 00da | | Load_Top At_Offset_2
00ee 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00ef 0125 | % | Execute Any,Set_Constraint
00f0 00da | | Load_Top At_Offset_2
00f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f2 1c00 | | Execute_Immediate Run_Utility,0x0
00f3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00f4 0000 0000 | | .LITERAL {0x00000000, 0x00371574}
00f8 ; --------------------------------------------------------------------------------------
00f8 ; Debug Table
00f8 ; --------------------------------------------------------------------------------------
00f8 0003 0005 | | .CONST 0x0003,0x0005
00fa 000b 0122 | "| .DEBUG 0x000b,0x0122,0x8000,0x0000,0x0037,0x09a4,0x0000,0x0003
0102 0010 0128 | (| .DEBUG 0x0010,0x0128,0x8000,0x0000,0x0037,0x1574,0x0000,0x000b
010a 001b 0130 | 0| .DEBUG 0x001b,0x0130,0x2802,0x0002,0x0037,0x09a4,0x0000,0x0004
0112 0083 0150 | P| .DEBUG 0x0083,0x0150,0x2801,0x0002,0x0037,0x09a4,0x0000,0x0012
011a 00e3 016e | n| .DEBUG 0x00e3,0x016e,0x0805,0x0002,0x0037,0x1574,0x0000,0x0069
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x0
0122 ; --------------------------------------------------------------------------------------
0122 0002 0000 | | .DBG3TAB 0x0002,0x0000
0124 000b ffff | | .CONST 0x000b,0xffff
0126 000d fffe | | .CONST 0x000d,0xfffe
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x1
0128 ; --------------------------------------------------------------------------------------
0128 0003 0000 | | .DBG3TAB 0x0003,0x0000
012a 0010 ffff | | .CONST 0x0010,0xffff
012c 0011 fffe | | .CONST 0x0011,0xfffe
012e 0013 fffd | | .CONST 0x0013,0xfffd
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug3 Subtable 0x2
0130 ; --------------------------------------------------------------------------------------
0130 000d 0002 | | .DBG3TAB 0x000d,0x0002
0132 001b ffff | | .CONST 0x001b,0xffff
0134 001f fffe | | .CONST 0x001f,0xfffe
0136 0020 fffd | | .CONST 0x0020,0xfffd
0138 0028 fffc | ( | .CONST 0x0028,0xfffc
013a 002f fffb | / | .CONST 0x002f,0xfffb
013c 0033 fffa | 3 | .CONST 0x0033,0xfffa
013e 003b fff9 | ; | .CONST 0x003b,0xfff9
0140 0043 fff8 | C | .CONST 0x0043,0xfff8
0142 0049 fff7 | I | .CONST 0x0049,0xfff7
0144 004e fff6 | N | .CONST 0x004e,0xfff6
0146 0056 fff5 | V | .CONST 0x0056,0xfff5
0148 005a fff4 | Z | .CONST 0x005a,0xfff4
014a 0062 fff3 | b | .CONST 0x0062,0xfff3
014c 0063 0001 | c | .CONST 0x0063,0x0001
014e 007b 0002 | { | .CONST 0x007b,0x0002
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug3 Subtable 0x3
0150 ; --------------------------------------------------------------------------------------
0150 0007 0007 | | .DBG3TAB 0x0007,0x0007
0152 0083 ffff | | .CONST 0x0083,0xffff
0154 0089 fffe | | .CONST 0x0089,0xfffe
0156 0091 fffd | | .CONST 0x0091,0xfffd
0158 0097 fffc | | .CONST 0x0097,0xfffc
015a 009f fffb | | .CONST 0x009f,0xfffb
015c 00a3 fffa | | .CONST 0x00a3,0xfffa
015e 00a7 fff9 | | .CONST 0x00a7,0xfff9
0160 00a9 0001 | | .CONST 0x00a9,0x0001
0162 00ad 0002 | | .CONST 0x00ad,0x0002
0164 00b4 0003 | | .CONST 0x00b4,0x0003
0166 00b5 0004 | | .CONST 0x00b5,0x0004
0168 00c3 0005 | | .CONST 0x00c3,0x0005
016a 00cb 0006 | | .CONST 0x00cb,0x0006
016c 00d5 0007 | | .CONST 0x00d5,0x0007
016e ; --------------------------------------------------------------------------------------
016e ; Debug3 Subtable 0x4
016e ; --------------------------------------------------------------------------------------
016e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0170 0000 0000 | | .BLANK 0000[0x90]