|
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 002b | + | .CONST 0x002b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; 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,0x0000,0x0000,0x0056,0xba95,0x0000,0x0c6b
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 00bf | | Action Accept_Activation
000e 0092 00cc | | Action Push_String_Extended,0xcc ; "Diana_Heap"
; Debug Table 0x1 = .DEBUG 0x000e,0x00fe,0x0000,0x0000,0x0056,0xbaa5,0x0000,0x0024
; Debug Table 0x1.0x0 = 0xe,0xffff
; Debug Table 0x1.0x1 = 0xe,0xfffe
; Debug Table 0x1.0x2 = 0xe,0xfffd
0010 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x3 = 0x10,0xfffc
0011 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x4 = 0x11,0xfffb
0012 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0013 02ff | | Declare_Variable Variant_Record
0014 00d8 | | Load_Top At_Offset_0
0015 1c00 | | Execute_Immediate Run_Utility,0x0
0016 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x5 = 0x16,0xfffa
0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0018 02c7 | | Declare_Variable Any
0019 e003 | | Load 0x0,0x3
001a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
001b e002 | | Load 0x0,0x2
001c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
001d c211 | | Store 0x1,0x11
001e e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x6 = 0x1e,0xfff9
001f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0021 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x7 = 0x21,0xfff8
0022 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x8 = 0x24,0xfff7
0025 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x9 = 0x27,0xfff6
; Debug Table 0x1.0xa = 0x27,0xfff5
0028 00c7 | | Action Elaborate_Subprogram
0029 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call ; Debug Table 0x1.0xb = 0x29,0xfff4
002b BODY_0008:
002b e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xc = 0x2b,0x1
002c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
002d 8215 | | Call 0x1,0x15 ; Debug Table 0x1.0xd = 0x2d,0x2
002e 00bc | | Action Signal_Activated
002f 00bb | | Action Signal_Completion
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0035 | 5 | .CONST 0x0035 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0002 | | .CONST 0x0002 ; Number of locals
0033 INIT_0030:
0033 e004 | | Load 0x0,0x4 ; Debug Table 0x2 = .DEBUG 0x0033,0x011c,0x0001,0x0000,0x0056,0xba95,0x0000,0x0c6c
; Debug Table 0x2.0x0 = 0x33,0xffff
0034 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0035 BODY_0030:
0035 e20f | | Load 0x1,0xf ; Debug Table 0x2.0x1 = 0x35,0xfffe
; Debug Table 0x2.0x2 = 0x35,0x1
0036 7013 |p | Jump_Nonzero 0x4a
0037 e210 | | Load 0x1,0x10 ; Debug Table 0x2.0x3 = 0x37,0x2
0038 e20e | | Load 0x1,0xe
0039 e005 | | Load 0x0,0x5
003a 180e | | Execute Package,Field_Execute,Field_Number 0xe
003b e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x4 = 0x3b,0x3
003c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
003d 4800 |H | Short_Literal 0x0
003e 4801 |H | Short_Literal 0x1
003f e211 | | Load 0x1,0x11
0040 e210 | | Load 0x1,0x10
0041 e001 | | Load 0x0,0x1
0042 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0043 0059 | Y | Store_Top Discrete,At_Offset_1
0044 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x5 = 0x44,0x4
0045 0b00 | | Execute_Immediate Case_Compare,0x0
0046 7002 |p | Jump_Nonzero 0x49
0047 6080 |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x56baa501} ; Debug Table 0x2.0x6 = 0x47,0x6
0048 0257 | W | Execute Discrete,Raise
0049 00d1 | | Pop_Control Pop_Count_1
004a e211 | | Load 0x1,0x11 ; Debug Table 0x2.0x7 = 0x4a,0x7
004b 4801 |H | Short_Literal 0x1
004c 4801 |H | Short_Literal 0x1
004d e002 | | Load 0x0,0x2
004e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
004f c211 | | Store 0x1,0x11
0050 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x8 = 0x50,0x8
0051 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0052 e006 | | Load 0x0,0x6
0053 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0054 e213 | | Load 0x1,0x13
0055 e001 | | Load 0x0,0x1
0056 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0057 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0058 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x9 = 0x58,0x9
0059 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005a 4800 |H | Short_Literal 0x0
005b e001 | | Load 0x0,0x1
005c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
005e a214 | | Store_Unchecked 0x1,0x14
005f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0067 | g | .CONST 0x0067 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 e004 | | Load 0x0,0x4 ; Debug Table 0x3 = .DEBUG 0x0063,0x0132,0x0001,0x0000,0x0056,0xbaa5,0x0000,0x00bd
; Debug Table 0x3.0x0 = 0x63,0xffff
0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0065 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x1 = 0x65,0xfffe
0066 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0067 BODY_0060:
0067 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x2 = 0x67,0x1
0068 e210 | | Load 0x1,0x10
0069 e007 | | Load 0x0,0x7
006a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006b 0162 | b | Execute Variant_Record,Check_In_Type
006c e20e | | Load 0x1,0xe
006d e005 | | Load 0x0,0x5
006e 180d | | Execute Package,Field_Execute,Field_Number 0xd
006f 00d1 | | Pop_Control Pop_Count_1
0070 c20f | | Store 0x1,0xf
0071 e20f | | Load 0x1,0xf ; Debug Table 0x3.0x3 = 0x71,0x2
0072 681a |h | Jump_Zero 0x8d
0073 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x4 = 0x73,0x3
0074 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0075 e001 | | Load 0x0,0x1
0076 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0078 e211 | | Load 0x1,0x11
0079 4800 |H | Short_Literal 0x0
007a 4801 |H | Short_Literal 0x1
007b e210 | | Load 0x1,0x10
007c e001 | | Load 0x0,0x1
007d 181a | | Execute Package,Field_Execute,Field_Number 0x1a
007e c212 | | Store 0x1,0x12
007f 0059 | Y | Store_Top Discrete,At_Offset_1
0080 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x80,0x4
0081 0b00 | | Execute_Immediate Case_Compare,0x0
0082 7002 |p | Jump_Nonzero 0x85
0083 6044 |`D | Indirect_Literal Discrete,0xc8,{0x00000000, 0x56baa501} ; Debug Table 0x3.0x6 = 0x83,0x6
0084 0257 | W | Execute Discrete,Raise
0085 00d1 | | Pop_Control Pop_Count_1
0086 e211 | | Load 0x1,0x11 ; Debug Table 0x3.0x7 = 0x86,0x7
0087 4801 |H | Short_Literal 0x1
0088 4800 |H | Short_Literal 0x0
0089 e002 | | Load 0x0,0x2
008a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008b c211 | | Store 0x1,0x11
008c 782a |x* | Jump 0xb7
008d e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x8 = 0x8d,0x8
008e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008f e210 | | Load 0x1,0x10
0090 4800 |H | Short_Literal 0x0
0091 4800 |H | Short_Literal 0x0
0092 e007 | | Load 0x0,0x7
0093 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0094 e002 | | Load 0x0,0x2
0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0096 4800 |H | Short_Literal 0x0
0097 e008 | | Load 0x0,0x8
0098 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0099 4800 |H | Short_Literal 0x0
009a e001 | | Load 0x0,0x1
009b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009c 00d1 | | Pop_Control Pop_Count_1
009d 005a | Z | Store_Top Discrete,At_Offset_2
009e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x9 = 0x9e,0x9
009f 0b00 | | Execute_Immediate Case_Compare,0x0
00a0 7002 |p | Jump_Nonzero 0xa3
00a1 6026 |`& | Indirect_Literal Discrete,0xc8,{0x00000000, 0x56baa501} ; Debug Table 0x3.0xa = 0xa1,0xb
00a2 0257 | W | Execute Discrete,Raise
00a3 00d1 | | Pop_Control Pop_Count_1
00a4 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0xb = 0xa4,0xc
00a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a6 e001 | | Load 0x0,0x1
00a7 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a9 e211 | | Load 0x1,0x11
00aa 4800 |H | Short_Literal 0x0
00ab 4802 |H | Short_Literal 0x2
00ac e210 | | Load 0x1,0x10
00ad e001 | | Load 0x0,0x1
00ae 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00af c212 | | Store 0x1,0x12
00b0 0059 | Y | Store_Top Discrete,At_Offset_1
00b1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xc = 0xb1,0xd
00b2 0b00 | | Execute_Immediate Case_Compare,0x0
00b3 7002 |p | Jump_Nonzero 0xb6
00b4 6013 |` | Indirect_Literal Discrete,0xc8,{0x00000000, 0x56baa501} ; Debug Table 0x3.0xd = 0xb4,0xf
00b5 0257 | W | Execute Discrete,Raise
00b6 00d1 | | Pop_Control Pop_Count_1
00b7 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0xe = 0xb7,0x10
00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b9 4800 |H | Short_Literal 0x0
00ba e001 | | Load 0x0,0x1
00bb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00bc 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00bd a213 | | Store_Unchecked 0x1,0x13
00be e003 | | Load 0x0,0x3 ; Debug Table 0x3.0xf = 0xbe,0x11
00bf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c0 e006 | | Load 0x0,0x6
00c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c2 e212 | | Load 0x1,0x12
00c3 e001 | | Load 0x0,0x1
00c4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00c5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c7 0000 | | .XXX[0x1]
00c8 0000 0000 | | .LITERAL {0x00000000, 0x56baa501}
00cc ; --------------------------------------------------------------------------------------
00cc ; STRING TABLE
00cc ; --------------------------------------------------------------------------------------
00cc 0004 | | .STRTAB 0x0004->0x00ce ; "Diana_Heap"
00cd 000c | | .STREND 0x000c->0x00d3
00ce 4469 616e |Dian| .STRTAB_STRINGS
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0003 0004 | | .CONST 0x0003,0x0004
00da 000b 00fa | | .DEBUG 0x000b,0x00fa,0x0000,0x0000,0x0056,0xba95,0x0000,0x0c6b
00e2 000e 00fe | | .DEBUG 0x000e,0x00fe,0x0000,0x0000,0x0056,0xbaa5,0x0000,0x0024
00ea 0033 011c | 3 | .DEBUG 0x0033,0x011c,0x0001,0x0000,0x0056,0xba95,0x0000,0x0c6c
00f2 0063 0132 | c 2| .DEBUG 0x0063,0x0132,0x0001,0x0000,0x0056,0xbaa5,0x0000,0x00bd
00fa ; --------------------------------------------------------------------------------------
00fa ; Debug3 Subtable 0x0
00fa ; --------------------------------------------------------------------------------------
00fa 0001 0000 | | .DBG3TAB 0x0001,0x0000
00fc 000b ffff | | .CONST 0x000b,0xffff
00fe ; --------------------------------------------------------------------------------------
00fe ; Debug3 Subtable 0x1
00fe ; --------------------------------------------------------------------------------------
00fe 000c 0002 | | .DBG3TAB 0x000c,0x0002
0100 000e ffff | | .CONST 0x000e,0xffff
0102 000e fffe | | .CONST 0x000e,0xfffe
0104 000e fffd | | .CONST 0x000e,0xfffd
0106 0010 fffc | | .CONST 0x0010,0xfffc
0108 0011 fffb | | .CONST 0x0011,0xfffb
010a 0016 fffa | | .CONST 0x0016,0xfffa
010c 001e fff9 | | .CONST 0x001e,0xfff9
010e 0021 fff8 | ! | .CONST 0x0021,0xfff8
0110 0024 fff7 | $ | .CONST 0x0024,0xfff7
0112 0027 fff6 | ' | .CONST 0x0027,0xfff6
0114 0027 fff5 | ' | .CONST 0x0027,0xfff5
0116 0029 fff4 | ) | .CONST 0x0029,0xfff4
0118 002b 0001 | + | .CONST 0x002b,0x0001
011a 002d 0002 | - | .CONST 0x002d,0x0002
011c ; --------------------------------------------------------------------------------------
011c ; Debug3 Subtable 0x2
011c ; --------------------------------------------------------------------------------------
011c 0002 0008 | | .DBG3TAB 0x0002,0x0008
011e 0033 ffff | 3 | .CONST 0x0033,0xffff
0120 0035 fffe | 5 | .CONST 0x0035,0xfffe
0122 0035 0001 | 5 | .CONST 0x0035,0x0001
0124 0037 0002 | 7 | .CONST 0x0037,0x0002
0126 003b 0003 | ; | .CONST 0x003b,0x0003
0128 0044 0004 | D | .CONST 0x0044,0x0004
012a 0047 0006 | G | .CONST 0x0047,0x0006
012c 004a 0007 | J | .CONST 0x004a,0x0007
012e 0050 0008 | P | .CONST 0x0050,0x0008
0130 0058 0009 | X | .CONST 0x0058,0x0009
0132 ; --------------------------------------------------------------------------------------
0132 ; Debug3 Subtable 0x3
0132 ; --------------------------------------------------------------------------------------
0132 0002 000e | | .DBG3TAB 0x0002,0x000e
0134 0063 ffff | c | .CONST 0x0063,0xffff
0136 0065 fffe | e | .CONST 0x0065,0xfffe
0138 0067 0001 | g | .CONST 0x0067,0x0001
013a 0071 0002 | q | .CONST 0x0071,0x0002
013c 0073 0003 | s | .CONST 0x0073,0x0003
013e 0080 0004 | | .CONST 0x0080,0x0004
0140 0083 0006 | | .CONST 0x0083,0x0006
0142 0086 0007 | | .CONST 0x0086,0x0007
0144 008d 0008 | | .CONST 0x008d,0x0008
0146 009e 0009 | | .CONST 0x009e,0x0009
0148 00a1 000b | | .CONST 0x00a1,0x000b
014a 00a4 000c | | .CONST 0x00a4,0x000c
014c 00b1 000d | | .CONST 0x00b1,0x000d
014e 00b4 000f | | .CONST 0x00b4,0x000f
0150 00b7 0010 | | .CONST 0x00b7,0x0010
0152 00be 0011 | | .CONST 0x00be,0x0011
0154 0000 0000 | | .BLANK 0000[0xac]