|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0170 | p | .CONST 0x0170 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0042 | B | .CONST 0x0042 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 0007 | | Action Break_Optional
001d e003 | | Load 0x0,0x3
001e 0322 | " | Declare_Variable Record
001f 00d8 | | Load_Top At_Offset_0
0020 1c00 | | Execute_Immediate Run_Utility,0x0
0021 e004 | | Load 0x0,0x4
0022 0322 | " | Declare_Variable Record
0023 e005 | | Load 0x0,0x5
0024 00d9 | | Load_Top At_Offset_1
0025 017d | } | Execute Record,Structure_Write
0026 e006 | | Load 0x0,0x6
0027 0322 | " | Declare_Variable Record
0028 e007 | | Load 0x0,0x7
0029 00d9 | | Load_Top At_Offset_1
002a 017d | } | Execute Record,Structure_Write
002b e008 | | Load 0x0,0x8
002c 0007 | | Action Break_Optional
002d e009 | | Load 0x0,0x9
002e 0322 | " | Declare_Variable Record
002f e00a | | Load 0x0,0xa
0030 0322 | " | Declare_Variable Record
0031 00d8 | | Load_Top At_Offset_0
0032 1c00 | | Execute_Immediate Run_Utility,0x0
0033 e00b | | Load 0x0,0xb
0034 0337 | 7 | Declare_Variable Array
0035 e00c | | Load 0x0,0xc
0036 00d9 | | Load_Top At_Offset_1
0037 01d4 | | Execute Vector,Structure_Write
0038 e00d | | Load 0x0,0xd
0039 0322 | " | Declare_Variable Record
003a 00d8 | | Load_Top At_Offset_0
003b 1c00 | | Execute_Immediate Run_Utility,0x0
003c e00e | | Load 0x0,0xe
003d 0007 | | Action Break_Optional
003e e00f | | Load 0x0,0xf
003f 02ff | | Declare_Variable Variant_Record
0040 00d8 | | Load_Top At_Offset_0
0041 1c00 | | Execute_Immediate Run_Utility,0x0
0042 BODY_0018:
0042 00da | | Load_Top At_Offset_2
0043 e002 | | Load 0x0,0x2
0044 e5ff | | Load 0x2,-0x1
0045 8010 | | Call 0x0,0x10
0046 8011 | | Call 0x0,0x11
0047 8012 | | Call 0x0,0x12
0048 c402 | | Store 0x2,0x2
0049 00d1 | | Pop_Control Pop_Count_1
004a e402 | | Load 0x2,0x2
004b 7006 |p | Jump_Nonzero 0x52
004c 00da | | Load_Top At_Offset_2
004d 8013 | | Call 0x0,0x13
004e 8014 | | Call 0x0,0x14
004f e015 | | Load 0x0,0x15
0050 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0051 08e2 | | Execute_Immediate Raise,0xe2
0052 4801 |H | Short_Literal 0x1
0053 481f |H | Short_Literal 0x1f
0054 e403 | | Load 0x2,0x3
0055 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0056 01d6 | | Execute Vector,Field_Write
0057 4801 |H | Short_Literal 0x1
0058 481e |H | Short_Literal 0x1e
0059 e403 | | Load 0x2,0x3
005a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
005b 01d6 | | Execute Vector,Field_Write
005c 492c |I, | Short_Literal 0x12c
005d e403 | | Load 0x2,0x3
005e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
005f 492c |I, | Short_Literal 0x12c
0060 e403 | | Load 0x2,0x3
0061 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0062 492c |I, | Short_Literal 0x12c
0063 e403 | | Load 0x2,0x3
0064 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0065 492c |I, | Short_Literal 0x12c
0066 e403 | | Load 0x2,0x3
0067 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0068 e402 | | Load 0x2,0x2
0069 8016 | | Call 0x0,0x16
006a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
006b 00d9 | | Load_Top At_Offset_1
006c e402 | | Load 0x2,0x2
006d 8017 | | Call 0x0,0x17
006e e408 | | Load 0x2,0x8
006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0070 4801 |H | Short_Literal 0x1
0071 481e |H | Short_Literal 0x1e
0072 e409 | | Load 0x2,0x9
0073 01d6 | | Execute Vector,Field_Write
0074 00d9 | | Load_Top At_Offset_1
0075 e402 | | Load 0x2,0x2
0076 8018 | | Call 0x0,0x18
0077 e408 | | Load 0x2,0x8
0078 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0079 4801 |H | Short_Literal 0x1
007a 481c |H | Short_Literal 0x1c
007b e409 | | Load 0x2,0x9
007c 01d6 | | Execute Vector,Field_Write
007d e019 | | Load 0x0,0x19
007e 0337 | 7 | Declare_Variable Array
007f 4801 |H | Short_Literal 0x1
0080 481d |H | Short_Literal 0x1d
0081 00da | | Load_Top At_Offset_2
0082 01d6 | | Execute Vector,Field_Write
0083 4801 |H | Short_Literal 0x1
0084 4810 |H | Short_Literal 0x10
0085 00da | | Load_Top At_Offset_2
0086 01d6 | | Execute Vector,Field_Write
0087 4801 |H | Short_Literal 0x1
0088 480f |H | Short_Literal 0xf
0089 00da | | Load_Top At_Offset_2
008a 01d6 | | Execute Vector,Field_Write
008b 480e |H | Short_Literal 0xe
008c 4800 |H | Short_Literal 0x0
008d 4800 |H | Short_Literal 0x0
008e 00d9 | | Load_Top At_Offset_1
008f e40d | | Load 0x2,0xd
0090 01d6 | | Execute Vector,Field_Write
0091 3ffb |? | Loop_Increasing 0x8d
0092 481c |H | Short_Literal 0x1c
0093 4811 |H | Short_Literal 0x11
0094 4800 |H | Short_Literal 0x0
0095 00d9 | | Load_Top At_Offset_1
0096 e40d | | Load 0x2,0xd
0097 01d6 | | Execute Vector,Field_Write
0098 3ffb |? | Loop_Increasing 0x94
0099 4800 |H | Short_Literal 0x0
009a 481e |H | Short_Literal 0x1e
009b 00da | | Load_Top At_Offset_2
009c 01d6 | | Execute Vector,Field_Write
009d 4800 |H | Short_Literal 0x0
009e 481f |H | Short_Literal 0x1f
009f 00da | | Load_Top At_Offset_2
00a0 01d6 | | Execute Vector,Field_Write
00a1 e019 | | Load 0x0,0x19
00a2 01c3 | | Execute Vector,Check_In_Type
00a3 e408 | | Load 0x2,0x8
00a4 380b |8 | Execute Record,Field_Write,Field_Number 0xb
00a5 4801 |H | Short_Literal 0x1
00a6 4814 |H | Short_Literal 0x14
00a7 e409 | | Load 0x2,0x9
00a8 01d6 | | Execute Vector,Field_Write
00a9 e408 | | Load 0x2,0x8
00aa e409 | | Load 0x2,0x9
00ab e01a | | Load 0x0,0x1a
00ac 4801 |H | Short_Literal 0x1
00ad 4800 |H | Short_Literal 0x0
00ae 4804 |H | Short_Literal 0x4
00af e403 | | Load 0x2,0x3
00b0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00b1 00d8 | | Load_Top At_Offset_0
00b2 e01b | | Load 0x0,0x1b
00b3 0260 | ` | Execute Discrete,In_Type
00b4 7001 |p | Jump_Nonzero 0xb6
00b5 0801 | | Execute_Immediate Raise,0x1
00b6 00d8 | | Load_Top At_Offset_0
00b7 e01c | | Load 0x0,0x1c
00b8 0260 | ` | Execute Discrete,In_Type
00b9 7001 |p | Jump_Nonzero 0xbb
00ba 0801 | | Execute_Immediate Raise,0x1
00bb e403 | | Load 0x2,0x3
00bc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00bd 00d8 | | Load_Top At_Offset_0
00be e01b | | Load 0x0,0x1b
00bf 0260 | ` | Execute Discrete,In_Type
00c0 7001 |p | Jump_Nonzero 0xc2
00c1 0801 | | Execute_Immediate Raise,0x1
00c2 00d8 | | Load_Top At_Offset_0
00c3 e01c | | Load 0x0,0x1c
00c4 0260 | ` | Execute Discrete,In_Type
00c5 7001 |p | Jump_Nonzero 0xc7
00c6 0801 | | Execute_Immediate Raise,0x1
00c7 e403 | | Load 0x2,0x3
00c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c9 00d8 | | Load_Top At_Offset_0
00ca e01d | | Load 0x0,0x1d
00cb 0260 | ` | Execute Discrete,In_Type
00cc 7001 |p | Jump_Nonzero 0xce
00cd 0801 | | Execute_Immediate Raise,0x1
00ce e403 | | Load 0x2,0x3
00cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d0 00d8 | | Load_Top At_Offset_0
00d1 e01d | | Load 0x0,0x1d
00d2 0260 | ` | Execute Discrete,In_Type
00d3 7001 |p | Jump_Nonzero 0xd5
00d4 0801 | | Execute_Immediate Raise,0x1
00d5 e40b | | Load 0x2,0xb
00d6 e402 | | Load 0x2,0x2
00d7 801e | | Call 0x0,0x1e
00d8 e402 | | Load 0x2,0x2
00d9 801f | | Call 0x0,0x1f
00da e407 | | Load 0x2,0x7
00db 017d | } | Execute Record,Structure_Write
00dc e008 | | Load 0x0,0x8
00dd e405 | | Load 0x2,0x5
00de e404 | | Load 0x2,0x4
00df e403 | | Load 0x2,0x3
00e0 4801 |H | Short_Literal 0x1
00e1 4800 |H | Short_Literal 0x0
00e2 e020 | | Load 0x0,0x20
00e3 0334 | 4 | Declare_Variable Array,With_Constraint
00e4 4800 |H | Short_Literal 0x0
00e5 00e5 | | Load_Encached Long_Integer_Cache
00e6 00d9 | | Load_Top At_Offset_1
00e7 0267 | g | Execute Discrete,Predecessor
00e8 e021 | ! | Load 0x0,0x21
00e9 0334 | 4 | Declare_Variable Array,With_Constraint
00ea 4800 |H | Short_Literal 0x0
00eb 4809 |H | Short_Literal 0x9
00ec e021 | ! | Load 0x0,0x21
00ed 0334 | 4 | Declare_Variable Array,With_Constraint
00ee 5079 |Py | Indirect_Literal Any,0x168,{0x51756963, 0x6b205465}
00ef e407 | | Load 0x2,0x7
00f0 e402 | | Load 0x2,0x2
00f1 8022 | " | Call 0x0,0x22
00f2 c406 | | Store 0x2,0x6
00f3 e407 | | Load 0x2,0x7
00f4 e402 | | Load 0x2,0x2
00f5 8023 | # | Call 0x0,0x23
00f6 00cf | | Action Mark_Auxiliary
00f7 0007 | | Action Break_Optional
00f8 00d9 | | Load_Top At_Offset_1
00f9 e402 | | Load 0x2,0x2
00fa 8024 | $ | Call 0x0,0x24
00fb 00d1 | | Pop_Control Pop_Count_1
00fc 00d9 | | Load_Top At_Offset_1
00fd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00fe 00d8 | | Load_Top At_Offset_0
00ff 0c10 | | Execute_Immediate Greater_Equal,0x10
0100 7060 |p` | Jump_Nonzero 0x161
0101 460f |F | Jump_Case 0x10
0102 785f |x_ | Jump 0x162 ; case 0x0
0103 785e |x^ | Jump 0x162 ; case 0x1
0104 785d |x] | Jump 0x162 ; case 0x2
0105 785c |x\ | Jump 0x162 ; case 0x3
0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x4
0107 785a |xZ | Jump 0x162 ; case 0x5
0108 7859 |xY | Jump 0x162 ; case 0x6
0109 7858 |xX | Jump 0x162 ; case 0x7
010a 7857 |xW | Jump 0x162 ; case 0x8
010b 7856 |xV | Jump 0x162 ; case 0x9
010c 7855 |xU | Jump 0x162 ; case 0xa
010d 7854 |xT | Jump 0x162 ; case 0xb
010e 7803 |x | Jump 0x112 ; case 0xc
010f 7852 |xR | Jump 0x162 ; case 0xd
0110 7851 |xQ | Jump 0x162 ; case 0xe
0111 7800 |x | Jump 0x112 ; case 0xf
0112 4801 |H | Short_Literal 0x1
0113 4801 |H | Short_Literal 0x1
0114 4806 |H | Short_Literal 0x6
0115 e025 | % | Load 0x0,0x25
0116 0334 | 4 | Declare_Variable Array,With_Constraint
0117 e026 | & | Load 0x0,0x26
0118 0322 | " | Declare_Variable Record
0119 4864 |Hd | Short_Literal 0x64
011a 00d9 | | Load_Top At_Offset_1
011b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011c 4864 |Hd | Short_Literal 0x64
011d 00d9 | | Load_Top At_Offset_1
011e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
011f 4801 |H | Short_Literal 0x1
0120 00da | | Load_Top At_Offset_2
0121 01d6 | | Execute Vector,Field_Write
0122 e026 | & | Load 0x0,0x26
0123 0322 | " | Declare_Variable Record
0124 4864 |Hd | Short_Literal 0x64
0125 00d9 | | Load_Top At_Offset_1
0126 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0127 4864 |Hd | Short_Literal 0x64
0128 00d9 | | Load_Top At_Offset_1
0129 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
012a 4802 |H | Short_Literal 0x2
012b 00da | | Load_Top At_Offset_2
012c 01d6 | | Execute Vector,Field_Write
012d e026 | & | Load 0x0,0x26
012e 0322 | " | Declare_Variable Record
012f 4800 |H | Short_Literal 0x0
0130 00d9 | | Load_Top At_Offset_1
0131 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0132 4f9c |O | Short_Literal -0x64
0133 00d9 | | Load_Top At_Offset_1
0134 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0135 4803 |H | Short_Literal 0x3
0136 00da | | Load_Top At_Offset_2
0137 01d6 | | Execute Vector,Field_Write
0138 e026 | & | Load 0x0,0x26
0139 0322 | " | Declare_Variable Record
013a 4f9c |O | Short_Literal -0x64
013b 00d9 | | Load_Top At_Offset_1
013c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
013d 4864 |Hd | Short_Literal 0x64
013e 00d9 | | Load_Top At_Offset_1
013f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0140 4804 |H | Short_Literal 0x4
0141 00da | | Load_Top At_Offset_2
0142 01d6 | | Execute Vector,Field_Write
0143 e026 | & | Load 0x0,0x26
0144 0322 | " | Declare_Variable Record
0145 4896 |H | Short_Literal 0x96
0146 00d9 | | Load_Top At_Offset_1
0147 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0148 4fce |O | Short_Literal -0x32
0149 00d9 | | Load_Top At_Offset_1
014a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014b 4805 |H | Short_Literal 0x5
014c 00da | | Load_Top At_Offset_2
014d 01d6 | | Execute Vector,Field_Write
014e e026 | & | Load 0x0,0x26
014f 0322 | " | Declare_Variable Record
0150 4f6a |Oj | Short_Literal -0x96
0151 00d9 | | Load_Top At_Offset_1
0152 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0153 4fce |O | Short_Literal -0x32
0154 00d9 | | Load_Top At_Offset_1
0155 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0156 4806 |H | Short_Literal 0x6
0157 00da | | Load_Top At_Offset_2
0158 01d6 | | Execute Vector,Field_Write
0159 e40b | | Load 0x2,0xb
015a e402 | | Load 0x2,0x2
015b 8027 | ' | Call 0x0,0x27
015c e407 | | Load 0x2,0x7
015d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015e e402 | | Load 0x2,0x2
015f 8028 | ( | Call 0x0,0x28
0160 7803 |x | Jump 0x164
0161 00d1 | | Pop_Control Pop_Count_1
0162 0008 | | Action Idle
0163 7800 |x | Jump 0x164
0164 00c9 | | Action Pop_Auxiliary_Loop
0165 7f92 | | Jump 0xf8
0166 0000 0000 | | .XXX[0x2]
0168 5175 6963 |Quic| .LITERAL {0x51756963, 0x6b205465}
016c 7374 0000 |st | .XXX[0x4]
016e 0000 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug Table
0170 ; --------------------------------------------------------------------------------------
0170 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6923,0x0000,0x0001,0x0002
0176 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
017a 001b 017e | ~| .DBG4T 0x001b,0x017e,0x8001,0x4000
017e ; --------------------------------------------------------------------------------------
017e ; Debug chain
017e ; --------------------------------------------------------------------------------------
017e 000b 0019 | | .DBGLEN 0x000b,0x0019
0180 001b 001d | | .DBGLNO 0x001b,0x001d,0x0021,0x0026,0x002b,0x002d,0x002f,0x0033,0x0038,0x003c,0x003e,0x0042,0x004a,0x004c,0x0051,0x0052,0x0057,0x005c,0x005f,0x0062,0x0065,0x0068,0x006b,0x0070,0x0074,0x0079,0x007d,0x00a5,0x00a9,0x00dc,0x00f3,0x00f7,0x00f8,0x00fc,0x0112,0x0162
01a4 0001 0002 | | .XXX[0x19]
01a6 0003 0004 | |
01a8 0005 0006 | |
01aa 0007 0008 | |
01ac 0009 000a | |
01ae 000b 000c | |
01b0 000d 000e | |
01b2 000f 0010 | |
01b4 0011 0012 | |
01b6 0013 0014 | |
01b8 0015 0016 | |
01ba 0017 0019 | |
01bc 001a | |
01bd 0000 0000 | | .BLANK 0000[0x43]