|
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: »793619.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »793619.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »793619.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »793619.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »793619.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »793619.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 00c0 | | .CONST 0x00c0 ; 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 003b | ; | .CONST 0x003b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0036,0xbe64,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 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
000f 0129 | ) | Execute Any,Make_Visible
0010 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0x3 = 0x10,0xfffc
0011 6092 |` | Indirect_Literal Discrete,0xa4,{0x000c1c13, 0x00000ab0} ; 0xc1c13 = SHUTDOWN_COUPLER
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0014 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x14,0xfffb
0016 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x16,0xfffa
0018 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x18,0xfff9
001a 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x1a,0xfff8
001b e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
001d 00bf | | Action Accept_Activation
001e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001e,0x0126,0x8000,0x0000,0x0036,0xc034,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x1e,0xffff
001f e20d | | Load 0x1,0xd ; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 0007 | | Action Break_Optional
0021 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x21,0xfffc
0022 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x22,0xfffb
0023 4801 |H | Short_Literal 0x1
0024 e20e | | Load 0x1,0xe
0025 020e | | Execute Module,Augment_Imports
0026 e20e | | Load 0x1,0xe
0027 020d | | Execute Module,Elaborate
0028 0007 | | Action Break_Optional
0029 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call ; Debug Table 0x1.0x4 = 0x29,0xfffa
002b 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call ; Debug Table 0x1.0x5 = 0x2b,0xfff9
002d 6072 |`r | Indirect_Literal Discrete,0xa0,{0x00000000, 0x0036c034} ; Debug Table 0x1.0x6 = 0x2d,0xfff8
002e 4894 |H | Short_Literal 0x94
002f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0031 e20e | | Load 0x1,0xe
0032 0387 | | Declare_Variable Package
0033 00d8 | | Load_Top At_Offset_0
0034 020f | | Execute Module,Activate
0035 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x7 = 0x35,0xfff7
0036 00c7 | | Action Elaborate_Subprogram
0037 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x8 = 0x37,0xfff6
0038 00c7 | | Action Elaborate_Subprogram
0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x9 = 0x39,0xfff5
003a 00c7 | | Action Elaborate_Subprogram
003b BODY_0008:
003b 00bc | | Action Signal_Activated
003c 00bb | | Action Signal_Completion
003d 0000 0000 | | .XXX[0x3]
003f 0000 | |
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 e216 | | Load 0x1,0x16 ; Debug Table 0x2 = .DEBUG 0x0043,0x013c,0x0002,0x0000,0x0036,0xbe64,0x0000,0x0032
; Debug Table 0x2.0x0 = 0x43,0x1
0044 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0045 e213 | | Load 0x1,0x13
0046 027e | ~ | Execute Discrete,Not_Equal
0047 00ca | | Action Exit_Nullary_Function
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b e213 | | Load 0x1,0x13 ; Debug Table 0x3 = .DEBUG 0x004b,0x0140,0x0001,0x0000,0x0036,0xbe64,0x0000,0x0037
; Debug Table 0x3.0x0 = 0x4b,0x1
004c e002 | | Load 0x0,0x2
004d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
004e 00d8 | | Load_Top At_Offset_0
004f e002 | | Load 0x0,0x2
0050 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0051 7003 |p | Jump_Nonzero 0x55
0052 e001 | | Load 0x0,0x1
0053 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0054 0257 | W | Execute Discrete,Raise
0055 180f | | Execute Package,Field_Execute,Field_Number 0xf
0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e213 | | Load 0x1,0x13 ; Debug Table 0x4 = .DEBUG 0x005b,0x0144,0x0001,0x0000,0x0036,0xbe64,0x0000,0x003b
; Debug Table 0x4.0x0 = 0x5b,0x1
005c e002 | | Load 0x0,0x2
005d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
005e 00d8 | | Load_Top At_Offset_0
005f e002 | | Load 0x0,0x2
0060 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0061 7003 |p | Jump_Nonzero 0x65
0062 e001 | | Load 0x0,0x1
0063 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0064 0257 | W | Execute Discrete,Raise
0065 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0066 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0072 | r | .CONST 0x0072 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b e003 | | Load 0x0,0x3 ; Debug Table 0x5 = .DEBUG 0x006b,0x0148,0x0001,0x0000,0x0036,0xc034,0x0000,0x0044
; Debug Table 0x5.0x0 = 0x6b,0xffff
006c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006d e004 | | Load 0x0,0x4 ; Debug Table 0x5.0x1 = 0x6d,0xfffe
006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006f 02c7 | | Declare_Variable Any
0070 00d8 | | Load_Top At_Offset_0
0071 1c00 | | Execute_Immediate Run_Utility,0x0
0072 BODY_0068:
0072 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x2 = 0x72,0x1
0073 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0074 180d | | Execute Package,Field_Execute,Field_Number 0xd
0075 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0x75,0x2
0076 0120 | | Execute Any,Is_Value
0077 6803 |h | Jump_Zero 0x7b
0078 e004 | | Load 0x0,0x4
0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007a 7801 |x | Jump 0x7c
007b 00d8 | | Load_Top At_Offset_0
007c e003 | | Load 0x0,0x3
007d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007e 4800 |H | Short_Literal 0x0
007f 4800 |H | Short_Literal 0x0
0080 e006 | | Load 0x0,0x6
0081 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0082 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0083 005b | [ | Store_Top Discrete,At_Offset_3
0084 c403 | | Store 0x2,0x3
0085 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x4 = 0x85,0x3
0086 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0087 180e | | Execute Package,Field_Execute,Field_Number 0xe
0088 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0089 0000 0000 | | .BLANK 0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095 | | .CONST 0x0095 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6 = .DEBUG 0x0093,0x0154,0x0001,0x0000,0x0036,0xc034,0x0000,0x0079
; Debug Table 0x6.0x0 = 0x93,0xffff
0094 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0095 BODY_0090:
0095 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x1 = 0x95,0x1
0096 e005 | | Load 0x0,0x5
0097 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0098 180f | | Execute Package,Field_Execute,Field_Number 0xf
0099 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x2 = 0x99,0x2
009a e006 | | Load 0x0,0x6
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c 180f | | Execute Package,Field_Execute,Field_Number 0xf
009d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009e 0000 0000 | | .XXX[0x2]
00a0 0000 0000 | | .LITERAL {0x00000000, 0x0036c034}
00a4 000c 1c13 | | .LITERAL {0x000c1c13, 0x00000ab0}
00a8 00ae 0004 | | .XXX[0x3]
00aa 0011 | |
00ab 029c 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible ; Debug Table 0x7 = .DEBUG 0x00ab,0x015c,0x4000,0x0000,0x0036,0xbe64,0x0000,0x0019
; Debug Table 0x7.0x0 = 0xab,0xffff
00ad 00bf | | Action Accept_Activation ; Debug Table 0x7.0x1 = 0xad,0xfffe
00ae 8211 | | Call 0x1,0x11 ; Debug Table 0x8 = .DEBUG 0x00ae,0x0162,0x4000,0x0000,0x0036,0xc034,0x0000,0x0039
; Debug Table 0x8.0x0 = 0xae,0x1
00af c001 | | Store 0x0,0x1
00b0 00bc | | Action Signal_Activated
00b1 00bb | | Action Signal_Completion
00b2 0000 0000 | | .BLANK 0000[0x6]
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 00b6 | | Action Make_Scope ; Debug Table 0x9 = .DEBUG 0x00bb,0x0166,0x1002,0x0000,0x0036,0xbe64,0x0000,0x0025
00bc 020a | | Execute Module,Get_Name
00bd 00ca | | Action Exit_Nullary_Function
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0003 000a | | .CONST 0x0003,0x000a
00c2 000b 0112 | | .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0036,0xbe64,0x0000,0x0007
00ca 001e 0126 | &| .DEBUG 0x001e,0x0126,0x8000,0x0000,0x0036,0xc034,0x0000,0x000b
00d2 0043 013c | C <| .DEBUG 0x0043,0x013c,0x0002,0x0000,0x0036,0xbe64,0x0000,0x0032
00da 004b 0140 | K @| .DEBUG 0x004b,0x0140,0x0001,0x0000,0x0036,0xbe64,0x0000,0x0037
00e2 005b 0144 | [ D| .DEBUG 0x005b,0x0144,0x0001,0x0000,0x0036,0xbe64,0x0000,0x003b
00ea 006b 0148 | k H| .DEBUG 0x006b,0x0148,0x0001,0x0000,0x0036,0xc034,0x0000,0x0044
00f2 0093 0154 | T| .DEBUG 0x0093,0x0154,0x0001,0x0000,0x0036,0xc034,0x0000,0x0079
00fa 00ab 015c | \| .DEBUG 0x00ab,0x015c,0x4000,0x0000,0x0036,0xbe64,0x0000,0x0019
0102 00ae 0162 | b| .DEBUG 0x00ae,0x0162,0x4000,0x0000,0x0036,0xc034,0x0000,0x0039
010a 00bb 0166 | f| .DEBUG 0x00bb,0x0166,0x1002,0x0000,0x0036,0xbe64,0x0000,0x0025
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x0
0112 ; --------------------------------------------------------------------------------------
0112 0009 0000 | | .DBG3TAB 0x0009,0x0000
0114 000b ffff | | .CONST 0x000b,0xffff
0116 000c fffe | | .CONST 0x000c,0xfffe
0118 000d fffd | | .CONST 0x000d,0xfffd
011a 0010 fffc | | .CONST 0x0010,0xfffc
011c 0014 fffb | | .CONST 0x0014,0xfffb
011e 0016 fffa | | .CONST 0x0016,0xfffa
0120 0018 fff9 | | .CONST 0x0018,0xfff9
0122 001a fff8 | | .CONST 0x001a,0xfff8
0124 001b fff7 | | .CONST 0x001b,0xfff7
0126 ; --------------------------------------------------------------------------------------
0126 ; Debug3 Subtable 0x1
0126 ; --------------------------------------------------------------------------------------
0126 000a 0000 | | .DBG3TAB 0x000a,0x0000
0128 001e ffff | | .CONST 0x001e,0xffff
012a 001f fffe | | .CONST 0x001f,0xfffe
012c 0021 fffc | ! | .CONST 0x0021,0xfffc
012e 0022 fffb | " | .CONST 0x0022,0xfffb
0130 0029 fffa | ) | .CONST 0x0029,0xfffa
0132 002b fff9 | + | .CONST 0x002b,0xfff9
0134 002d fff8 | - | .CONST 0x002d,0xfff8
0136 0035 fff7 | 5 | .CONST 0x0035,0xfff7
0138 0037 fff6 | 7 | .CONST 0x0037,0xfff6
013a 0039 fff5 | 9 | .CONST 0x0039,0xfff5
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x2
013c ; --------------------------------------------------------------------------------------
013c 0000 0001 | | .DBG3TAB 0x0000,0x0001
013e 0043 0001 | C | .CONST 0x0043,0x0001
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug3 Subtable 0x3
0140 ; --------------------------------------------------------------------------------------
0140 0000 0001 | | .DBG3TAB 0x0000,0x0001
0142 004b 0001 | K | .CONST 0x004b,0x0001
0144 ; --------------------------------------------------------------------------------------
0144 ; Debug3 Subtable 0x4
0144 ; --------------------------------------------------------------------------------------
0144 0000 0001 | | .DBG3TAB 0x0000,0x0001
0146 005b 0001 | [ | .CONST 0x005b,0x0001
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug3 Subtable 0x5
0148 ; --------------------------------------------------------------------------------------
0148 0002 0003 | | .DBG3TAB 0x0002,0x0003
014a 006b ffff | k | .CONST 0x006b,0xffff
014c 006d fffe | m | .CONST 0x006d,0xfffe
014e 0072 0001 | r | .CONST 0x0072,0x0001
0150 0075 0002 | u | .CONST 0x0075,0x0002
0152 0085 0003 | | .CONST 0x0085,0x0003
0154 ; --------------------------------------------------------------------------------------
0154 ; Debug3 Subtable 0x6
0154 ; --------------------------------------------------------------------------------------
0154 0001 0002 | | .DBG3TAB 0x0001,0x0002
0156 0093 ffff | | .CONST 0x0093,0xffff
0158 0095 0001 | | .CONST 0x0095,0x0001
015a 0099 0002 | | .CONST 0x0099,0x0002
015c ; --------------------------------------------------------------------------------------
015c ; Debug3 Subtable 0x7
015c ; --------------------------------------------------------------------------------------
015c 0002 0000 | | .DBG3TAB 0x0002,0x0000
015e 00ab ffff | | .CONST 0x00ab,0xffff
0160 00ad fffe | | .CONST 0x00ad,0xfffe
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x8
0162 ; --------------------------------------------------------------------------------------
0162 0000 0001 | | .DBG3TAB 0x0000,0x0001
0164 00ae 0001 | | .CONST 0x00ae,0x0001
0166 ; --------------------------------------------------------------------------------------
0166 ; Debug3 Subtable 0x9
0166 ; --------------------------------------------------------------------------------------
0166 0000 0000 | | .DBG3TAB 0x0000,0x0000
0168 0000 0000 | | .BLANK 0000[0x98]