|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0043 | C | .CONST 0x0043 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0056,0xef75,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0xe,0xfffb
000f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x15,0xfff8
0016 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0017 0129 | ) | Execute Any,Make_Visible
0018 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x8 = 0x18,0xfff7
0019 191a | | Execute Package,Field_Reference,Field_Number 0x1a
001a 0129 | ) | Execute Any,Make_Visible
001b e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x1b,0xfff6
001c 191b | | Execute Package,Field_Reference,Field_Number 0x1b
001d 0129 | ) | Execute Any,Make_Visible
001e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x1e,0xfff5
001f 191c | | Execute Package,Field_Reference,Field_Number 0x1c
0020 0129 | ) | Execute Any,Make_Visible
0021 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xb = 0x21,0xfff4
0022 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0023 0129 | ) | Execute Any,Make_Visible
0024 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xc = 0x24,0xfff3
0025 191f | | Execute Package,Field_Reference,Field_Number 0x1f
0026 0129 | ) | Execute Any,Make_Visible
0027 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xd = 0x27,0xfff2
0028 1920 | | Execute Package,Field_Reference,Field_Number 0x20
0029 0129 | ) | Execute Any,Make_Visible
002a e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xe = 0x2a,0xfff1
002b 1925 | % | Execute Package,Field_Reference,Field_Number 0x25
002c 0129 | ) | Execute Any,Make_Visible
002d 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xf = 0x2d,0xfff0
002e 6051 |`Q | Indirect_Literal Discrete,0x80,{0x00495c0e, 0x000008b0}
002f 02a0 | | Declare_Subprogram Null_Subprogram
0030 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0031 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x10 = 0x31,0xffef
0032 1926 | & | Execute Package,Field_Reference,Field_Number 0x26
0033 0129 | ) | Execute Any,Make_Visible
0034 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x34,0xffee
0036 00bf | | Action Accept_Activation ; Debug Table 0x0.0x12 = 0x36,0xffed
; Debug Table 0x0.0x13 = 0x36,0xffec
; Debug Table 0x0.0x14 = 0x36,0xffeb
; Debug Table 0x0.0x15 = 0x36,0xffea
; Debug Table 0x0.0x16 = 0x36,0xffe9
; Debug Table 0x0.0x17 = 0x36,0xffe8
; Debug Table 0x0.0x18 = 0x36,0xffe7
0037 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1 = .DEBUG 0x0037,0x0146,0x8000,0x0000,0x0056,0xf1b5,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x37,0xffff
0038 00c7 | | Action Elaborate_Subprogram
0039 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x1 = 0x39,0xfffe
003a 00c7 | | Action Elaborate_Subprogram
003b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x2 = 0x3b,0xfffd
003c 00c7 | | Action Elaborate_Subprogram
003d e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x3d,0xfffc
003e 4801 |H | Short_Literal 0x1
003f e219 | | Load 0x1,0x19
0040 020e | | Execute Module,Augment_Imports
0041 00da | | Load_Top At_Offset_2
0042 020d | | Execute Module,Elaborate
0043 BODY_0008:
0043 00bc | | Action Signal_Activated
0044 00bb | | Action Signal_Completion
0045 0000 0000 | | .XXX[0x3]
0047 0000 | |
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 e5fc | | Load 0x2,-0x4 ; Debug Table 0x2 = .DEBUG 0x004b,0x0150,0x0001,0x0000,0x0056,0xef75,0x0000,0x0027
; Debug Table 0x2.0x0 = 0x4b,0x1
004c e002 | | Load 0x0,0x2
004d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004e e003 | | Load 0x0,0x3
004f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0050 e003 | | Load 0x0,0x3
0051 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0052 e5fd | | Load 0x2,-0x3
0053 e5fe | | Load 0x2,-0x2
0054 e5ff | | Load 0x2,-0x1
0055 e001 | | Load 0x0,0x1
0056 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0057 c5fc | | Store 0x2,-0x4
0058 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0059 0000 0000 | | .BLANK 0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3 = .DEBUG 0x0063,0x0154,0x0001,0x0000,0x0056,0xef75,0x0000,0x0040
; Debug Table 0x3.0x0 = 0x63,0x1
0064 e002 | | Load 0x0,0x2
0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0066 e003 | | Load 0x0,0x3
0067 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0068 e5fd | | Load 0x2,-0x3
0069 e5fe | | Load 0x2,-0x2
006a e5ff | | Load 0x2,-0x1
006b e001 | | Load 0x0,0x1
006c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006d c5fc | | Store 0x2,-0x4
006e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
006f 0000 | | .XXX[0x1]
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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4 = .DEBUG 0x0073,0x0158,0x0001,0x0000,0x0056,0xef75,0x0000,0x00ec
; Debug Table 0x4.0x0 = 0x73,0x1
0074 e002 | | Load 0x0,0x2
0075 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0076 e003 | | Load 0x0,0x3
0077 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0078 e5fe | | Load 0x2,-0x2
0079 e5ff | | Load 0x2,-0x1
007a e001 | | Load 0x0,0x1
007b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007c c5fd | | Store 0x2,-0x3
007d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
007e 0000 0000 | | .XXX[0x2]
0080 0049 5c0e | I\ | .LITERAL {0x00495c0e, 0x000008b0}
0084 0000 0000 | | .BLANK 0000[0x4]
0088 009c 0004 | | .XXX[0x3]
008a 0012 | |
008b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5 = .DEBUG 0x008b,0x015c,0x4000,0x0000,0x0056,0xef75,0x0000,0x00bd
; Debug Table 0x5.0x0 = 0x8b,0xffff
008d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x1 = 0x8d,0xfffe
008f 00bf | | Action Accept_Activation
0090 6033 |`3 | Indirect_Literal Discrete,0xc4,{0x00000000, 0x0056f1b5} ; Debug Table 0x6 = .DEBUG 0x0090,0x0162,0x4000,0x0000,0x0056,0xf1b5,0x0000,0x006f
; Debug Table 0x6.0x0 = 0x90,0xffff
0091 4870 |Hp | Short_Literal 0x70
0092 e20f | | Load 0x1,0xf
0093 e001 | | Load 0x0,0x1
0094 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0095 0387 | | Declare_Variable Package
0096 00d8 | | Load_Top At_Offset_0
0097 020f | | Execute Module,Activate
0098 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x6.0x1 = 0x98,0xfffe
0099 00c7 | | Action Elaborate_Subprogram
009a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x6.0x2 = 0x9a,0xfffd
009b 00c7 | | Action Elaborate_Subprogram
009c 00bc | | Action Signal_Activated
009d 00bb | | Action Signal_Completion
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x00a3,0x016a,0x1001,0x0000,0x0056,0xef75,0x0000,0x00c3
; Debug Table 0x7.0x0 = 0xa3,0x1
00a4 0120 | | Execute Any,Is_Value
00a5 6803 |h | Jump_Zero 0xa9
00a6 e212 | | Load 0x1,0x12
00a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a8 7803 |x | Jump 0xac
00a9 00db | | Load_Top At_Offset_3
00aa e20f | | Load 0x1,0xf
00ab 0119 | | Execute Any,Check_In_Formal_Type
00ac 00db | | Load_Top At_Offset_3
00ad e212 | | Load 0x1,0x12
00ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00af c5fe | | Store 0x2,-0x2
00b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b1 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x00bb,0x016e,0x1001,0x0000,0x0056,0xef75,0x0000,0x00cf
; Debug Table 0x8.0x0 = 0xbb,0x1
00bc e20f | | Load 0x1,0xf
00bd 0119 | | Execute Any,Check_In_Formal_Type
00be 00db | | Load_Top At_Offset_3
00bf e212 | | Load 0x1,0x12
00c0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c2 0000 0000 | | .XXX[0x2]
00c4 0000 0000 | | .LITERAL {0x00000000, 0x0056f1b5}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug Table
00c8 ; --------------------------------------------------------------------------------------
00c8 0003 0009 | | .CONST 0x0003,0x0009
00ca 000b 0112 | | .DEBUG 0x000b,0x0112,0x8000,0x0000,0x0056,0xef75,0x0000,0x0009
00d2 0037 0146 | 7 F| .DEBUG 0x0037,0x0146,0x8000,0x0000,0x0056,0xf1b5,0x0000,0x0009
00da 004b 0150 | K P| .DEBUG 0x004b,0x0150,0x0001,0x0000,0x0056,0xef75,0x0000,0x0027
00e2 0063 0154 | c T| .DEBUG 0x0063,0x0154,0x0001,0x0000,0x0056,0xef75,0x0000,0x0040
00ea 0073 0158 | s X| .DEBUG 0x0073,0x0158,0x0001,0x0000,0x0056,0xef75,0x0000,0x00ec
00f2 008b 015c | \| .DEBUG 0x008b,0x015c,0x4000,0x0000,0x0056,0xef75,0x0000,0x00bd
00fa 0090 0162 | b| .DEBUG 0x0090,0x0162,0x4000,0x0000,0x0056,0xf1b5,0x0000,0x006f
0102 00a3 016a | j| .DEBUG 0x00a3,0x016a,0x1001,0x0000,0x0056,0xef75,0x0000,0x00c3
010a 00bb 016e | n| .DEBUG 0x00bb,0x016e,0x1001,0x0000,0x0056,0xef75,0x0000,0x00cf
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x0
0112 ; --------------------------------------------------------------------------------------
0112 0019 0000 | | .DBG3TAB 0x0019,0x0000
0114 000b ffff | | .CONST 0x000b,0xffff
0116 000b fffe | | .CONST 0x000b,0xfffe
0118 000b fffd | | .CONST 0x000b,0xfffd
011a 000b fffc | | .CONST 0x000b,0xfffc
011c 000e fffb | | .CONST 0x000e,0xfffb
011e 0011 fffa | | .CONST 0x0011,0xfffa
0120 0013 fff9 | | .CONST 0x0013,0xfff9
0122 0015 fff8 | | .CONST 0x0015,0xfff8
0124 0018 fff7 | | .CONST 0x0018,0xfff7
0126 001b fff6 | | .CONST 0x001b,0xfff6
0128 001e fff5 | | .CONST 0x001e,0xfff5
012a 0021 fff4 | ! | .CONST 0x0021,0xfff4
012c 0024 fff3 | $ | .CONST 0x0024,0xfff3
012e 0027 fff2 | ' | .CONST 0x0027,0xfff2
0130 002a fff1 | * | .CONST 0x002a,0xfff1
0132 002d fff0 | - | .CONST 0x002d,0xfff0
0134 0031 ffef | 1 | .CONST 0x0031,0xffef
0136 0034 ffee | 4 | .CONST 0x0034,0xffee
0138 0036 ffed | 6 | .CONST 0x0036,0xffed
013a 0036 ffec | 6 | .CONST 0x0036,0xffec
013c 0036 ffeb | 6 | .CONST 0x0036,0xffeb
013e 0036 ffea | 6 | .CONST 0x0036,0xffea
0140 0036 ffe9 | 6 | .CONST 0x0036,0xffe9
0142 0036 ffe8 | 6 | .CONST 0x0036,0xffe8
0144 0036 ffe7 | 6 | .CONST 0x0036,0xffe7
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug3 Subtable 0x1
0146 ; --------------------------------------------------------------------------------------
0146 0004 0000 | | .DBG3TAB 0x0004,0x0000
0148 0037 ffff | 7 | .CONST 0x0037,0xffff
014a 0039 fffe | 9 | .CONST 0x0039,0xfffe
014c 003b fffd | ; | .CONST 0x003b,0xfffd
014e 003d fffc | = | .CONST 0x003d,0xfffc
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug3 Subtable 0x2
0150 ; --------------------------------------------------------------------------------------
0150 0000 0001 | | .DBG3TAB 0x0000,0x0001
0152 004b 0001 | K | .CONST 0x004b,0x0001
0154 ; --------------------------------------------------------------------------------------
0154 ; Debug3 Subtable 0x3
0154 ; --------------------------------------------------------------------------------------
0154 0000 0001 | | .DBG3TAB 0x0000,0x0001
0156 0063 0001 | c | .CONST 0x0063,0x0001
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug3 Subtable 0x4
0158 ; --------------------------------------------------------------------------------------
0158 0000 0001 | | .DBG3TAB 0x0000,0x0001
015a 0073 0001 | s | .CONST 0x0073,0x0001
015c ; --------------------------------------------------------------------------------------
015c ; Debug3 Subtable 0x5
015c ; --------------------------------------------------------------------------------------
015c 0002 0000 | | .DBG3TAB 0x0002,0x0000
015e 008b ffff | | .CONST 0x008b,0xffff
0160 008d fffe | | .CONST 0x008d,0xfffe
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x6
0162 ; --------------------------------------------------------------------------------------
0162 0003 0000 | | .DBG3TAB 0x0003,0x0000
0164 0090 ffff | | .CONST 0x0090,0xffff
0166 0098 fffe | | .CONST 0x0098,0xfffe
0168 009a fffd | | .CONST 0x009a,0xfffd
016a ; --------------------------------------------------------------------------------------
016a ; Debug3 Subtable 0x7
016a ; --------------------------------------------------------------------------------------
016a 0000 0001 | | .DBG3TAB 0x0000,0x0001
016c 00a3 0001 | | .CONST 0x00a3,0x0001
016e ; --------------------------------------------------------------------------------------
016e ; Debug3 Subtable 0x8
016e ; --------------------------------------------------------------------------------------
016e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0170 00bb 0001 | | .CONST 0x00bb,0x0001
0172 0000 0000 | | .BLANK 0000[0x8e]