|
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_6060f0
└─⟦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 0178 | x | .CONST 0x0178 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0013 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0015 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0017 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0019 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
001b 4800 |H | Short_Literal 0x0
001c 0129 | ) | Execute Any,Make_Visible
001d c20e | | Store 0x1,0xe
001e 6045 |`E | Indirect_Literal Discrete,0x64,{0x7fffffff, 0xffffffff}
001f 0129 | ) | Execute Any,Make_Visible
0020 c20f | | Store 0x1,0xf
0021 00bf | | Action Accept_Activation
0022 e20d | | Load 0x1,0xd
0023 0007 | | Action Break_Optional
0024 00e7 | | Load_Encached Duration_Cache
0025 e001 | | Load 0x0,0x1
0026 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0027 0007 | | Action Break_Optional
0028 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call
002a 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call
002c 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call
002e 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call
0030 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call
0032 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
0034 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0035 00c7 | | Action Elaborate_Subprogram
0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0037 00c7 | | Action Elaborate_Subprogram
0038 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0039 00c7 | | Action Elaborate_Subprogram
003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003b 00c7 | | Action Elaborate_Subprogram
003c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003d 00c7 | | Action Elaborate_Subprogram
003e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003f 00c7 | | Action Elaborate_Subprogram
0040 BODY_0008:
0040 8219 | | Call 0x1,0x19
0041 a216 | | Store_Unchecked 0x1,0x16
0042 e216 | | Load 0x1,0x16
0043 090f | | Execute_Immediate Binary_Scale,0xf
0044 00e7 | | Load_Encached Duration_Cache
0045 025e | ^ | Execute Discrete,Convert
0046 a217 | | Store_Unchecked 0x1,0x17
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 600b |` | Indirect_Literal Discrete,0x60,{0x00007fff, 0xffffffff}
0055 027f | | Execute Discrete,Equal
0056 6802 |h | Jump_Zero 0x59
0057 600c |` | Indirect_Literal Discrete,0x64,{0x7fffffff, 0xffffffff}
0058 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0059 821a | | Call 0x1,0x1a
005a 00db | | Load_Top At_Offset_3
005b 821e | | Call 0x1,0x1e
005c 0273 | s | Execute Discrete,Plus
005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005e 0000 0000 | | .XXX[0x2]
0060 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0064 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff}
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 821a | | Call 0x1,0x1a
006c 00ca | | Action Exit_Nullary_Function
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
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 00da | | Load_Top At_Offset_2
0074 600f |` | Indirect_Literal Discrete,0x84,{0x7fffffff, 0xffffffff}
0075 027f | | Execute Discrete,Equal
0076 6802 |h | Jump_Zero 0x79
0077 6008 |` | Indirect_Literal Discrete,0x80,{0x00007fff, 0xffffffff}
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 00da | | Load_Top At_Offset_2
007a 821a | | Call 0x1,0x1a
007b 0272 | r | Execute Discrete,Minus
007c 821b | | Call 0x1,0x1b
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
0084 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff}
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 67f7 |g | Indirect_Literal Discrete,0x84,{0x7fffffff, 0xffffffff}
008d 027f | | Execute Discrete,Equal
008e 6802 |h | Jump_Zero 0x91
008f 4800 |H | Short_Literal 0x0
0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0091 00da | | Load_Top At_Offset_2
0092 821a | | Call 0x1,0x1a
0093 027a | z | Execute Discrete,Less_Equal
0094 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e5fe | | Load 0x2,-0x2
009d 027c | | | Execute Discrete,Less
009e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009f 0000 | | .XXX[0x1]
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 4800 |H | Short_Literal 0x0
00a4 4800 |H | Short_Literal 0x0
00a5 4800 |H | Short_Literal 0x0
00a6 e5ff | | Load 0x2,-0x1
00a7 8212 | | Call 0x1,0x12
00a8 e001 | | Load 0x0,0x1
00a9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00aa 8218 | | Call 0x1,0x18
00ab e002 | | Load 0x0,0x2
00ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ad e002 | | Load 0x0,0x2
00ae 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b5 | | .CONST 0x00b5 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0003 | | .CONST 0x0003 ; Number of locals
00b3 INIT_00b0:
00b3 00e5 | | Load_Encached Long_Integer_Cache
00b4 00e5 | | Load_Encached Long_Integer_Cache
00b5 BODY_00b0:
00b5 e003 | | Load 0x0,0x3
00b6 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00b7 e003 | | Load 0x0,0x3
00b8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b9 e003 | | Load 0x0,0x3
00ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00bb e003 | | Load 0x0,0x3
00bc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00bd 005b | [ | Store_Top Discrete,At_Offset_3
00be 005a | Z | Store_Top Discrete,At_Offset_2
00bf 005a | Z | Store_Top Discrete,At_Offset_2
00c0 00d9 | | Load_Top At_Offset_1
00c1 00ca | | Action Exit_Nullary_Function
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb 00e5 | | Load_Encached Long_Integer_Cache
00cc 00e5 | | Load_Encached Long_Integer_Cache
00cd BODY_00c8:
00cd e003 | | Load 0x0,0x3
00ce 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00cf e003 | | Load 0x0,0x3
00d0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d1 e003 | | Load 0x0,0x3
00d2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d3 e003 | | Load 0x0,0x3
00d4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00d5 005b | [ | Store_Top Discrete,At_Offset_3
00d6 005b | [ | Store_Top Discrete,At_Offset_3
00d7 0059 | Y | Store_Top Discrete,At_Offset_1
00d8 00d9 | | Load_Top At_Offset_1
00d9 00ca | | Action Exit_Nullary_Function
00da 0000 0000 | | .BLANK 0000[0x6]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 e216 | | Load 0x1,0x16
00e5 0270 | p | Execute Discrete,Divide
00e6 090f | | Execute_Immediate Binary_Scale,0xf
00e7 00e7 | | Load_Encached Duration_Cache
00e8 025e | ^ | Execute Discrete,Convert
00e9 480f |H | Short_Literal 0xf
00ea e5ff | | Load 0x2,-0x1
00eb e216 | | Load 0x1,0x16
00ec 026f | o | Execute Discrete,Remainder
00ed 090f | | Execute_Immediate Binary_Scale,0xf
00ee 00e7 | | Load_Encached Duration_Cache
00ef 025e | ^ | Execute Discrete,Convert
00f0 e217 | | Load 0x1,0x17
00f1 0140 | @ | Execute Discrete,Divide_And_Scale
00f2 00d8 | | Load_Top At_Offset_0
00f3 00e7 | | Load_Encached Duration_Cache
00f4 0260 | ` | Execute Discrete,In_Type
00f5 7001 |p | Jump_Nonzero 0xf7
00f6 0801 | | Execute_Immediate Raise,0x1
00f7 0273 | s | Execute Discrete,Plus
00f8 00d8 | | Load_Top At_Offset_0
00f9 00e7 | | Load_Encached Duration_Cache
00fa 0260 | ` | Execute Discrete,In_Type
00fb 7001 |p | Jump_Nonzero 0xfd
00fc 0801 | | Execute_Immediate Raise,0x1
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 480f |H | Short_Literal 0xf
0104 600b |` | Indirect_Literal Discrete,0x110,{0xffff8000, 0x00000000}
0105 e217 | | Load 0x1,0x17
0106 0140 | @ | Execute Discrete,Divide_And_Scale
0107 00d8 | | Load_Top At_Offset_0
0108 00e7 | | Load_Encached Duration_Cache
0109 0260 | ` | Execute Discrete,In_Type
010a 7001 |p | Jump_Nonzero 0x10c
010b 0801 | | Execute_Immediate Raise,0x1
010c 00ca | | Action Exit_Nullary_Function
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ffff 8000 | | .LITERAL {0xffff8000, 0x00000000}
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 480f |H | Short_Literal 0xf
011c 600b |` | Indirect_Literal Discrete,0x128,{0x00007fff, 0xffffffff}
011d e217 | | Load 0x1,0x17
011e 0140 | @ | Execute Discrete,Divide_And_Scale
011f 00d8 | | Load_Top At_Offset_0
0120 00e7 | | Load_Encached Duration_Cache
0121 0260 | ` | Execute Discrete,In_Type
0122 7001 |p | Jump_Nonzero 0x124
0123 0801 | | Execute_Immediate Raise,0x1
0124 00ca | | Action Exit_Nullary_Function
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff}
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0139 | 9 | .CONST 0x0139 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 821c | | Call 0x1,0x1c
0134 821d | | Call 0x1,0x1d
0135 00e7 | | Load_Encached Duration_Cache
0136 03f8 | | Declare_Type Discrete,Constrained
0137 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
0139 BODY_0130:
0139 e5ff | | Load 0x2,-0x1
013a 00da | | Load_Top At_Offset_2
013b 0260 | ` | Execute Discrete,In_Type
013c 680a |h | Jump_Zero 0x147
013d 4fe2 |O | Short_Literal -0x1e
013e e5ff | | Load 0x2,-0x1
013f e217 | | Load 0x1,0x17
0140 0141 | A | Execute Discrete,Multiply_And_Scale
0141 00d8 | | Load_Top At_Offset_0
0142 e20d | | Load 0x1,0xd
0143 0260 | ` | Execute Discrete,In_Type
0144 7001 |p | Jump_Nonzero 0x146
0145 0801 | | Execute_Immediate Raise,0x1
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 8403 | | Call 0x2,0x3
0148 0831 | 1 | Execute_Immediate Raise,0x31
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 00e7 | | Load_Encached Duration_Cache
0154 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0155 BODY_0150:
0155 e5ff | | Load 0x2,-0x1
0156 e402 | | Load 0x2,0x2
0157 0269 | i | Execute Discrete,Last
0158 027d | } | Execute Discrete,Greater
0159 6804 |h | Jump_Zero 0x15e
015a e402 | | Load 0x2,0x2
015b 0269 | i | Execute Discrete,Last
015c 0059 | Y | Store_Top Discrete,At_Offset_1
015d 7808 |x | Jump 0x166
015e e5ff | | Load 0x2,-0x1
015f e402 | | Load 0x2,0x2
0160 026a | j | Execute Discrete,First
0161 027c | | | Execute Discrete,Less
0162 6803 |h | Jump_Zero 0x166
0163 e402 | | Load 0x2,0x2
0164 026a | j | Execute Discrete,First
0165 0059 | Y | Store_Top Discrete,At_Offset_1
0166 4fe2 |O | Short_Literal -0x1e
0167 00d9 | | Load_Top At_Offset_1
0168 e217 | | Load 0x1,0x17
0169 0141 | A | Execute Discrete,Multiply_And_Scale
016a 00d8 | | Load_Top At_Offset_0
016b e20d | | Load 0x1,0xd
016c 0260 | ` | Execute Discrete,In_Type
016d 7001 |p | Jump_Nonzero 0x16f
016e 0801 | | Execute_Immediate Raise,0x1
016f 00cb | | Action Pop_Block_With_Result
0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0004 000e | | .DEBUG4 0x0004,0x000e,0xf461,0x0000,0x0001,0x0000
017e 0028 | ( | .XXX[0x1]
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]