|
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: »17427.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »17427.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »17427.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »17427.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »17427.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »17427.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 00c8 | | .CONST 0x00c8 ; 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 0029 | ) | .CONST 0x0029 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x00fa,0xc000,0x0000,0x0035,0xdba4,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 00bf | | Action Accept_Activation
0012 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0012,0x0102,0xc000,0x0000,0x0035,0xdc54,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x12,0xffff
0013 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x13,0xfffe
0014 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x2 = 0x14,0xfffd
0015 00c7 | | Action Elaborate_Subprogram
0016 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x3 = 0x16,0xfffc
0017 e212 | | Load 0x1,0x12
0018 e001 | | Load 0x0,0x1
0019 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001a 0334 | 4 | Declare_Variable Array,With_Constraint
001b e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x4 = 0x1b,0xfffb
001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001d 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x5 = 0x1d,0xfffa
001e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001f 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x6 = 0x1f,0xfff9
0020 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0021 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x7 = 0x21,0xfff8
0022 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0023 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call ; Debug Table 0x1.0x8 = 0x23,0xfff7
0025 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x25,0xfff6
0026 00c7 | | Action Elaborate_Subprogram
0027 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xa = 0x27,0xfff5
0028 00c7 | | Action Elaborate_Subprogram
0029 BODY_0008:
0029 00bc | | Action Signal_Activated
002a 00bb | | Action Signal_Completion
002b 0000 0000 | | .BLANK 0000[0x5]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4800 |H | Short_Literal 0x0 ; Debug Table 0x2 = .DEBUG 0x0033,0x011a,0x1001,0x0000,0x0035,0xdba4,0x0000,0x0035
; Debug Table 0x2.0x0 = 0x33,0x1
0034 a218 | | Store_Unchecked 0x1,0x18
0035 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x1 = 0x35,0x2
0036 a219 | | Store_Unchecked 0x1,0x19
0037 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x2 = 0x37,0x3
0038 a21a | | Store_Unchecked 0x1,0x1a
0039 4501 |E | Exit_Suprogram New_Top_Offset 0x1
003a 0000 0000 | | .BLANK 0000[0x6]
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 00cf | | Action Mark_Auxiliary ; Debug Table 0x3 = .DEBUG 0x0043,0x0122,0x1001,0x0000,0x0035,0xdba4,0x0000,0x0039
0044 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x0 = 0x44,0x1
0045 01d9 | | Execute Vector,Reverse_Bounds
0046 0263 | c | Execute Discrete,Above_Bound
0047 7006 |p | Jump_Nonzero 0x4e
0048 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x48,0x2
0049 e5ff | | Load 0x2,-0x1
004a 01d7 | | Execute Vector,Field_Read
004b 821b | | Call 0x1,0x1b
004c 00c8 | | Action Pop_Auxiliary_Range
004d 3ffa |? | Loop_Increasing 0x48
004e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0058 | X | .CONST 0x0058 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0002 | | .CONST 0x0002 ; Number of locals
0053 INIT_0050:
0053 4801 |H | Short_Literal 0x1 ; Debug Table 0x4 = .DEBUG 0x0053,0x0128,0x1001,0x0000,0x0035,0xdba4,0x0000,0x0043
; Debug Table 0x4.0x0 = 0x53,0xffff
0054 4803 |H | Short_Literal 0x3
0055 e001 | | Load 0x0,0x1
0056 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0057 0334 | 4 | Declare_Variable Array,With_Constraint
0058 BODY_0050:
0058 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0x58,0x1
0059 01db | | Execute Vector,Length
005a 09f8 | | Execute_Immediate Binary_Scale,-0x8
005b e001 | | Load 0x0,0x1
005c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
005d 025b | [ | Execute Discrete,Check_In_Type
005e 4801 |H | Short_Literal 0x1
005f 00da | | Load_Top At_Offset_2
0060 01d6 | | Execute Vector,Field_Write
0061 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2 = 0x61,0x2
0062 01db | | Execute Vector,Length
0063 48ff |H | Short_Literal 0xff
0064 0279 | y | Execute Discrete,And
0065 e001 | | Load 0x0,0x1
0066 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0067 025b | [ | Execute Discrete,Check_In_Type
0068 4802 |H | Short_Literal 0x2
0069 00da | | Load_Top At_Offset_2
006a 01d6 | | Execute Vector,Field_Write
006b 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x3 = 0x6b,0x3
006c e001 | | Load 0x0,0x1
006d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006e 025b | [ | Execute Discrete,Check_In_Type
006f 4803 |H | Short_Literal 0x3
0070 00da | | Load_Top At_Offset_2
0071 01d6 | | Execute Vector,Field_Write
0072 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x4 = 0x72,0x4
0073 e5fe | | Load 0x2,-0x2
0074 01cc | | Execute Vector,Catenate
0075 820f | | Call 0x1,0xf
0076 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0077 0000 | | .XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e218 | | Load 0x1,0x18 ; Debug Table 0x5 = .DEBUG 0x007b,0x0134,0x1001,0x0000,0x0035,0xdc54,0x0000,0x0092
; Debug Table 0x5.0x0 = 0x7b,0x1
007c 0a01 | | Execute_Immediate Plus,0x1
007d c218 | | Store 0x1,0x18
007e e218 | | Load 0x1,0x18 ; Debug Table 0x5.0x1 = 0x7e,0x2
007f 0b01 | | Execute_Immediate Case_Compare,0x1
0080 700d |p | Jump_Nonzero 0x8e
0081 0b02 | | Execute_Immediate Case_Compare,0x2
0082 700b |p | Jump_Nonzero 0x8e
0083 0b03 | | Execute_Immediate Case_Compare,0x3
0084 7010 |p | Jump_Nonzero 0x95
0085 e21a | | Load 0x1,0x1a ; Debug Table 0x5.0x2 = 0x85,0x8
0086 7026 |p& | Jump_Nonzero 0xad
0087 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x3 = 0x87,0x9
0088 e218 | | Load 0x1,0x18
0089 0afd | | Execute_Immediate Plus,-0x3
008a 0248 | H | Execute Discrete,Check_In_Integer
008b e216 | | Load 0x1,0x16
008c 01d6 | | Execute Vector,Field_Write
008d 781f |x | Jump 0xad
008e e219 | | Load 0x1,0x19 ; Debug Table 0x5.0x4 = 0x8e,0x3
008f 0908 | | Execute_Immediate Binary_Scale,0x8
0090 0248 | H | Execute Discrete,Check_In_Integer
0091 e5ff | | Load 0x2,-0x1
0092 0273 | s | Execute Discrete,Plus
0093 c219 | | Store 0x1,0x19
0094 7818 |x | Jump 0xad
0095 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x5 = 0x95,0x4
0096 00d8 | | Load_Top At_Offset_0
0097 e002 | | Load 0x0,0x2
0098 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0099 0122 | " | Execute Any,Make_Root_Type
009a 0260 | ` | Execute Discrete,In_Type
009b 7002 |p | Jump_Nonzero 0x9e
009c 48e0 |H | Short_Literal 0xe0
009d 0257 | W | Execute Discrete,Raise
009e a217 | | Store_Unchecked 0x1,0x17
009f e219 | | Load 0x1,0x19 ; Debug Table 0x5.0x6 = 0x9f,0x5
00a0 e212 | | Load 0x1,0x12
00a1 027d | } | Execute Discrete,Greater
00a2 a21a | | Store_Unchecked 0x1,0x1a
00a3 e21a | | Load 0x1,0x1a ; Debug Table 0x5.0x7 = 0xa3,0x6
00a4 6808 |h | Jump_Zero 0xad
00a5 4803 |H | Short_Literal 0x3 ; Debug Table 0x5.0x8 = 0xa5,0x7
00a6 e002 | | Load 0x0,0x2
00a7 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00a8 1c08 | | Execute_Immediate Run_Utility,0x8
00a9 e212 | | Load 0x1,0x12
00aa 00d9 | | Load_Top At_Offset_1
00ab 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ac 8210 | | Call 0x1,0x10
00ad 00d1 | | Pop_Control Pop_Count_1
00ae e218 | | Load 0x1,0x18 ; Debug Table 0x5.0x9 = 0xae,0xa
00af e219 | | Load 0x1,0x19
00b0 0a03 | | Execute_Immediate Plus,0x3
00b1 027b | { | Execute Discrete,Greater_Equal
00b2 680e |h | Jump_Zero 0xc1
00b3 e21a | | Load 0x1,0x1a ; Debug Table 0x5.0xa = 0xb3,0xb
00b4 7006 |p | Jump_Nonzero 0xbb
00b5 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0xb = 0xb5,0xc
00b6 e219 | | Load 0x1,0x19
00b7 e216 | | Load 0x1,0x16
00b8 01cf | | Execute Vector,Slice_Read
00b9 e217 | | Load 0x1,0x17
00ba 8211 | | Call 0x1,0x11
00bb 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xc = 0xbb,0xd
00bc a218 | | Store_Unchecked 0x1,0x18
00bd 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xd = 0xbd,0xe
00be a219 | | Store_Unchecked 0x1,0x19
00bf 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xe = 0xbf,0xf
00c0 a21a | | Store_Unchecked 0x1,0x1a
00c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug Table
00c8 ; --------------------------------------------------------------------------------------
00c8 0003 0006 | | .CONST 0x0003,0x0006
00ca 000b 00fa | | .DEBUG 0x000b,0x00fa,0xc000,0x0000,0x0035,0xdba4,0x0000,0x0007
00d2 0012 0102 | | .DEBUG 0x0012,0x0102,0xc000,0x0000,0x0035,0xdc54,0x0000,0x0005
00da 0033 011a | 3 | .DEBUG 0x0033,0x011a,0x1001,0x0000,0x0035,0xdba4,0x0000,0x0035
00e2 0043 0122 | C "| .DEBUG 0x0043,0x0122,0x1001,0x0000,0x0035,0xdba4,0x0000,0x0039
00ea 0053 0128 | S (| .DEBUG 0x0053,0x0128,0x1001,0x0000,0x0035,0xdba4,0x0000,0x0043
00f2 007b 0134 | { 4| .DEBUG 0x007b,0x0134,0x1001,0x0000,0x0035,0xdc54,0x0000,0x0092
00fa ; --------------------------------------------------------------------------------------
00fa ; Debug3 Subtable 0x0
00fa ; --------------------------------------------------------------------------------------
00fa 0003 0000 | | .DBG3TAB 0x0003,0x0000
00fc 000b ffff | | .CONST 0x000b,0xffff
00fe 000d fffe | | .CONST 0x000d,0xfffe
0100 000f fffd | | .CONST 0x000f,0xfffd
0102 ; --------------------------------------------------------------------------------------
0102 ; Debug3 Subtable 0x1
0102 ; --------------------------------------------------------------------------------------
0102 000b 0000 | | .DBG3TAB 0x000b,0x0000
0104 0012 ffff | | .CONST 0x0012,0xffff
0106 0013 fffe | | .CONST 0x0013,0xfffe
0108 0014 fffd | | .CONST 0x0014,0xfffd
010a 0016 fffc | | .CONST 0x0016,0xfffc
010c 001b fffb | | .CONST 0x001b,0xfffb
010e 001d fffa | | .CONST 0x001d,0xfffa
0110 001f fff9 | | .CONST 0x001f,0xfff9
0112 0021 fff8 | ! | .CONST 0x0021,0xfff8
0114 0023 fff7 | # | .CONST 0x0023,0xfff7
0116 0025 fff6 | % | .CONST 0x0025,0xfff6
0118 0027 fff5 | ' | .CONST 0x0027,0xfff5
011a ; --------------------------------------------------------------------------------------
011a ; Debug3 Subtable 0x2
011a ; --------------------------------------------------------------------------------------
011a 0000 0003 | | .DBG3TAB 0x0000,0x0003
011c 0033 0001 | 3 | .CONST 0x0033,0x0001
011e 0035 0002 | 5 | .CONST 0x0035,0x0002
0120 0037 0003 | 7 | .CONST 0x0037,0x0003
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x3
0122 ; --------------------------------------------------------------------------------------
0122 0000 0002 | | .DBG3TAB 0x0000,0x0002
0124 0044 0001 | D | .CONST 0x0044,0x0001
0126 0048 0002 | H | .CONST 0x0048,0x0002
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x4
0128 ; --------------------------------------------------------------------------------------
0128 0001 0004 | | .DBG3TAB 0x0001,0x0004
012a 0053 ffff | S | .CONST 0x0053,0xffff
012c 0058 0001 | X | .CONST 0x0058,0x0001
012e 0061 0002 | a | .CONST 0x0061,0x0002
0130 006b 0003 | k | .CONST 0x006b,0x0003
0132 0072 0004 | r | .CONST 0x0072,0x0004
0134 ; --------------------------------------------------------------------------------------
0134 ; Debug3 Subtable 0x5
0134 ; --------------------------------------------------------------------------------------
0134 0000 000f | | .DBG3TAB 0x0000,0x000f
0136 007b 0001 | { | .CONST 0x007b,0x0001
0138 007e 0002 | ~ | .CONST 0x007e,0x0002
013a 0085 0008 | | .CONST 0x0085,0x0008
013c 0087 0009 | | .CONST 0x0087,0x0009
013e 008e 0003 | | .CONST 0x008e,0x0003
0140 0095 0004 | | .CONST 0x0095,0x0004
0142 009f 0005 | | .CONST 0x009f,0x0005
0144 00a3 0006 | | .CONST 0x00a3,0x0006
0146 00a5 0007 | | .CONST 0x00a5,0x0007
0148 00ae 000a | | .CONST 0x00ae,0x000a
014a 00b3 000b | | .CONST 0x00b3,0x000b
014c 00b5 000c | | .CONST 0x00b5,0x000c
014e 00bb 000d | | .CONST 0x00bb,0x000d
0150 00bd 000e | | .CONST 0x00bd,0x000e
0152 00bf 000f | | .CONST 0x00bf,0x000f
0154 0000 0000 | | .BLANK 0000[0xac]