|
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 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001c | | .CONST 0x001c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0057,0x4085,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xe,0xfffc
0010 00bf | | Action Accept_Activation
0011 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0011,0x0104,0x8000,0x0000,0x0057,0x4095,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x11,0xffff
0012 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x12,0xfffe
0013 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x13,0xfffd
0014 60bb |` | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00006000} ; Debug Table 0x1.0x3 = 0x14,0xfffc
0015 60b6 |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x000067ff}
0016 e001 | | Load 0x0,0x1
0017 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0018 03f8 | | Declare_Type Discrete,Constrained
0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x19,0xfffb
001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x5 = 0x1a,0xfffa
001b 00c7 | | Action Elaborate_Subprogram
001c BODY_0008:
001c 00bc | | Action Signal_Activated
001d 00bb | | Action Signal_Completion
001e 0000 0000 | | .XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0030 | 0 | .CONST 0x0030 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0008 | | .CONST 0x0008 ; Number of locals
0023 INIT_0020:
0023 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0023,0x0112,0x2801,0x0002,0x0057,0x4085,0x0000,0x001d
; Debug Table 0x2.0x0 = 0x23,0xffff
0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0025 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x1 = 0x25,0xfffe
0026 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0027 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x27,0xfffd
0028 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0029 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x3 = 0x29,0xfffc
002a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002b e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x4 = 0x2b,0xfffb
002c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
002d 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x2.0x5 = 0x2d,0xfffa
002e 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call ; Debug Table 0x2.0x6 = 0x2e,0xfff9
0030 BODY_0020:
0030 e5fa | | Load 0x2,-0x6 ; Debug Table 0x2.0x7 = 0x30,0x1
0031 6815 |h | Jump_Zero 0x47
0032 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x8 = 0x32,0x2
0033 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0034 e5f9 | | Load 0x2,-0x7
0035 4807 |H | Short_Literal 0x7
0036 85fc | | Call 0x2,-0x4
0037 c5f9 | | Store 0x2,-0x7
0038 c402 | | Store 0x2,0x2
0039 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x9 = 0x39,0x3
003a 608d |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00008000}
003b 027c | | | Execute Discrete,Less
003c 680a |h | Jump_Zero 0x47
003d e5f9 | | Load 0x2,-0x7 ; Debug Table 0x2.0xa = 0x3d,0x4
003e e402 | | Load 0x2,0x2
003f 6088 |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x00008000}
0040 0273 | s | Execute Discrete,Plus
0041 e002 | | Load 0x0,0x2
0042 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0043 025b | [ | Execute Discrete,Check_In_Type
0044 4807 |H | Short_Literal 0x7
0045 85fd | | Call 0x2,-0x3
0046 c5f9 | | Store 0x2,-0x7
0047 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0xb = 0x47,0x5
0048 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0049 e5f9 | | Load 0x2,-0x7
004a 4806 |H | Short_Literal 0x6
004b 85fc | | Call 0x2,-0x4
004c c5f9 | | Store 0x2,-0x7
004d c403 | | Store 0x2,0x3
004e e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xc = 0x4e,0x6
004f 6859 |hY | Jump_Zero 0xa9
0050 00cf | | Action Mark_Auxiliary
0051 0007 | | Action Break_Optional ; Debug Table 0x2.0xd = 0x51,0x7
0052 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xe = 0x52,0x8
0053 8408 | | Call 0x2,0x8
0054 a404 | | Store_Unchecked 0x2,0x4
0055 e404 | | Load 0x2,0x4 ; Debug Table 0x2.0xf = 0x55,0x9
0056 6851 |hQ | Jump_Zero 0xa8
0057 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x10 = 0x57,0xa
0058 0a01 | | Execute_Immediate Plus,0x1
0059 c403 | | Store 0x2,0x3
005a e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x11 = 0x5a,0xb
005b 8408 | | Call 0x2,0x8
005c a405 | | Store_Unchecked 0x2,0x5
005d e405 | | Load 0x2,0x5 ; Debug Table 0x2.0x12 = 0x5d,0xc
005e e20e | | Load 0x1,0xe
005f 0260 | ` | Execute Discrete,In_Type
0060 6809 |h | Jump_Zero 0x6a
0061 e405 | | Load 0x2,0x5 ; Debug Table 0x2.0x13 = 0x61,0xd
0062 6061 |`a | Indirect_Literal Discrete,0xc4,{0xffffffff, 0xffffa000}
0063 0273 | s | Execute Discrete,Plus
0064 e404 | | Load 0x2,0x4
0065 0273 | s | Execute Discrete,Plus
0066 0248 | H | Execute Discrete,Check_In_Integer
0067 0a01 | | Execute_Immediate Plus,0x1
0068 c406 | | Store 0x2,0x6
0069 780d |x | Jump 0x77
006a e405 | | Load 0x2,0x5 ; Debug Table 0x2.0x14 = 0x6a,0xe
006b 0fa2 | | Execute_Immediate Equal,-0x5e
006c 6808 |h | Jump_Zero 0x75
006d e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x15 = 0x6d,0xf
006e 0a01 | | Execute_Immediate Plus,0x1
006f e002 | | Load 0x0,0x2
0070 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0071 025b | [ | Execute Discrete,Check_In_Type
0072 8408 | | Call 0x2,0x8
0073 a406 | | Store_Unchecked 0x2,0x6
0074 7802 |x | Jump 0x77
0075 48e2 |H | Short_Literal 0xe2 ; Debug Table 0x2.0x16 = 0x75,0x10
0076 0257 | W | Execute Discrete,Raise
0077 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x17 = 0x77,0x11
0078 4803 |H | Short_Literal 0x3
0079 0279 | y | Execute Discrete,And
007a 6802 |h | Jump_Zero 0x7d
007b 4887 |H | Short_Literal 0x87
007c 0257 | W | Execute Discrete,Raise
007d 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x18 = 0x7d,0x12
007e 8408 | | Call 0x2,0x8
007f 0910 | | Execute_Immediate Binary_Scale,0x10
0080 0248 | H | Execute Discrete,Check_In_Integer
0081 e406 | | Load 0x2,0x6
0082 0a01 | | Execute_Immediate Plus,0x1
0083 e002 | | Load 0x0,0x2
0084 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0085 025b | [ | Execute Discrete,Check_In_Type
0086 8408 | | Call 0x2,0x8
0087 0273 | s | Execute Discrete,Plus
0088 e003 | | Load 0x0,0x3
0089 1b16 | | Execute Package,Field_Read,Field_Number 0x16
008a 025b | [ | Execute Discrete,Check_In_Type
008b 85fe | | Call 0x2,-0x2
008c 00e4 | | Load_Encached Positive_Cache
008d 025b | [ | Execute Discrete,Check_In_Type
008e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
008f e5f9 | | Load 0x2,-0x7 ; Debug Table 0x2.0x19 = 0x8f,0x13
0090 00db | | Load_Top At_Offset_3
0091 09f0 | | Execute_Immediate Binary_Scale,-0x10
0092 e002 | | Load 0x0,0x2
0093 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0094 025b | [ | Execute Discrete,Check_In_Type
0095 e406 | | Load 0x2,0x6
0096 85fd | | Call 0x2,-0x3
0097 c5f9 | | Store 0x2,-0x7
0098 e5f9 | | Load 0x2,-0x7 ; Debug Table 0x2.0x1a = 0x98,0x14
0099 00db | | Load_Top At_Offset_3
009a 6025 |`% | Indirect_Literal Discrete,0xc0,{0x00000000, 0x0000ffff}
009b 0279 | y | Execute Discrete,And
009c e002 | | Load 0x0,0x2
009d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
009e 025b | [ | Execute Discrete,Check_In_Type
009f e406 | | Load 0x2,0x6
00a0 0a01 | | Execute_Immediate Plus,0x1
00a1 e002 | | Load 0x0,0x2
00a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a3 025b | [ | Execute Discrete,Check_In_Type
00a4 85fd | | Call 0x2,-0x3
00a5 c5f9 | | Store 0x2,-0x7
00a6 00c9 | | Action Pop_Auxiliary_Loop
00a7 7faa | | Jump 0x52
00a8 00ce | | Action Pop_Auxiliary
00a9 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5 | | .CONST 0x00b5 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x00b3,0x014a,0x0802,0x0002,0x0057,0x4095,0x0000,0x0068
; Debug Table 0x3.0x0 = 0xb3,0xffff
00b4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00b5 BODY_00b0:
00b5 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x1 = 0xb5,0x1
00b6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00b7 e5f9 | | Load 0x2,-0x7
00b8 e7ff | | Load 0x3,-0x1
00b9 85fc | | Call 0x2,-0x4
00ba c5f9 | | Store 0x2,-0x7
00bb 0059 | Y | Store_Top Discrete,At_Offset_1
00bc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0xbc,0x2
00bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00be 0000 0000 | | .XXX[0x2]
00c0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00c4 ffff ffff | | .LITERAL {0xffffffff, 0xffffa000}
00c8 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
00cc 0000 0000 | | .LITERAL {0x00000000, 0x000067ff}
00d0 0000 0000 | | .LITERAL {0x00000000, 0x00006000}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 0004 | | .CONST 0x0003,0x0004
00da 000b 00fa | | .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0057,0x4085,0x0000,0x0009
00e2 0011 0104 | | .DEBUG 0x0011,0x0104,0x8000,0x0000,0x0057,0x4095,0x0000,0x0005
00ea 0023 0112 | # | .DEBUG 0x0023,0x0112,0x2801,0x0002,0x0057,0x4085,0x0000,0x001d
00f2 00b3 014a | J| .DEBUG 0x00b3,0x014a,0x0802,0x0002,0x0057,0x4095,0x0000,0x0068
00fa ; --------------------------------------------------------------------------------------
00fa ; Debug3 Subtable 0x0
00fa ; --------------------------------------------------------------------------------------
00fa 0004 0000 | | .DBG3TAB 0x0004,0x0000
00fc 000b ffff | | .CONST 0x000b,0xffff
00fe 000c fffe | | .CONST 0x000c,0xfffe
0100 000d fffd | | .CONST 0x000d,0xfffd
0102 000e fffc | | .CONST 0x000e,0xfffc
0104 ; --------------------------------------------------------------------------------------
0104 ; Debug3 Subtable 0x1
0104 ; --------------------------------------------------------------------------------------
0104 0006 0000 | | .DBG3TAB 0x0006,0x0000
0106 0011 ffff | | .CONST 0x0011,0xffff
0108 0012 fffe | | .CONST 0x0012,0xfffe
010a 0013 fffd | | .CONST 0x0013,0xfffd
010c 0014 fffc | | .CONST 0x0014,0xfffc
010e 0019 fffb | | .CONST 0x0019,0xfffb
0110 001a fffa | | .CONST 0x001a,0xfffa
0112 ; --------------------------------------------------------------------------------------
0112 ; Debug3 Subtable 0x2
0112 ; --------------------------------------------------------------------------------------
0112 0007 0014 | | .DBG3TAB 0x0007,0x0014
0114 0023 ffff | # | .CONST 0x0023,0xffff
0116 0025 fffe | % | .CONST 0x0025,0xfffe
0118 0027 fffd | ' | .CONST 0x0027,0xfffd
011a 0029 fffc | ) | .CONST 0x0029,0xfffc
011c 002b fffb | + | .CONST 0x002b,0xfffb
011e 002d fffa | - | .CONST 0x002d,0xfffa
0120 002e fff9 | . | .CONST 0x002e,0xfff9
0122 0030 0001 | 0 | .CONST 0x0030,0x0001
0124 0032 0002 | 2 | .CONST 0x0032,0x0002
0126 0039 0003 | 9 | .CONST 0x0039,0x0003
0128 003d 0004 | = | .CONST 0x003d,0x0004
012a 0047 0005 | G | .CONST 0x0047,0x0005
012c 004e 0006 | N | .CONST 0x004e,0x0006
012e 0051 0007 | Q | .CONST 0x0051,0x0007
0130 0052 0008 | R | .CONST 0x0052,0x0008
0132 0055 0009 | U | .CONST 0x0055,0x0009
0134 0057 000a | W | .CONST 0x0057,0x000a
0136 005a 000b | Z | .CONST 0x005a,0x000b
0138 005d 000c | ] | .CONST 0x005d,0x000c
013a 0061 000d | a | .CONST 0x0061,0x000d
013c 006a 000e | j | .CONST 0x006a,0x000e
013e 006d 000f | m | .CONST 0x006d,0x000f
0140 0075 0010 | u | .CONST 0x0075,0x0010
0142 0077 0011 | w | .CONST 0x0077,0x0011
0144 007d 0012 | } | .CONST 0x007d,0x0012
0146 008f 0013 | | .CONST 0x008f,0x0013
0148 0098 0014 | | .CONST 0x0098,0x0014
014a ; --------------------------------------------------------------------------------------
014a ; Debug3 Subtable 0x3
014a ; --------------------------------------------------------------------------------------
014a 0001 0002 | | .DBG3TAB 0x0001,0x0002
014c 00b3 ffff | | .CONST 0x00b3,0xffff
014e 00b5 0001 | | .CONST 0x00b5,0x0001
0150 00bc 0002 | | .CONST 0x00bc,0x0002
0152 0000 0000 | | .BLANK 0000[0xae]