|
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 0168 | h | .CONST 0x0168 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0009 | | .CONST 0x0009 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 0007 | | Action Break_Optional 001d 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 001f 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0021 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0023 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0025 a003 | | Store_Unchecked 0x0,0x3 0026 00c6 | | Action Check_Subprogram_Elaborated 0027 4806 |H | Short_Literal 0x6 0028 4802 |H | Short_Literal 0x2 0029 0099 | | Action Reference_Dynamic 002a 0093 0000 | | push_full_address 0x0 002c 600f |` | Indirect_Literal Discrete,0x3c,{0x80000000, 0x00010000} 002d 0273 | s | Execute Discrete,Plus 002e e004 | | Load 0x0,0x4 002f 0273 | s | Execute Discrete,Plus 0030 e005 | | Load 0x0,0x5 0031 0273 | s | Execute Discrete,Plus 0032 4809 |H | Short_Literal 0x9 0033 0007 | | Action Break_Optional 0034 BODY_0018: 0034 4807 |H | Short_Literal 0x7 0035 4802 |H | Short_Literal 0x2 0036 0099 | | Action Reference_Dynamic 0037 4808 |H | Short_Literal 0x8 0038 4802 |H | Short_Literal 0x2 0039 0099 | | Action Reference_Dynamic 003a 8003 | | Call 0x0,0x3 003b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 004c | L | .CONST 0x004c ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0004 | | .CONST 0x0004 ; Number of locals 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 0227 | ' | Execute Access,All_Reference 0045 3c2e |<. | Execute Record,Field_Read,Field_Number 0x2e 0046 e006 | | Load 0x0,0x6 0047 03f1 | | Declare_Variable Discrete,With_Value 0048 e007 | | Load 0x0,0x7 0049 0007 | | Action Break_Optional 004a e007 | | Load 0x0,0x7 004b 0007 | | Action Break_Optional 004c BODY_0040: 004c 4801 |H | Short_Literal 0x1 004d 00db | | Load_Top At_Offset_3 004e e002 | | Load 0x0,0x2 004f 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0050 a402 | | Store_Unchecked 0x2,0x2 0051 604e |`N | Indirect_Literal Discrete,0xa0,{0x00000000, 0x00000b40} 0052 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0053 6048 |`H | Indirect_Literal Discrete,0x9c,{0x00000000, 0x000021c0} 0054 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0055 00cf | | Action Mark_Auxiliary 0056 00db | | Load_Top At_Offset_3 0057 4801 |H | Short_Literal 0x1 0058 0263 | c | Execute Discrete,Above_Bound 0059 703c |p< | Jump_Nonzero 0x96 005a e7fe | | Load 0x3,-0x2 005b 8008 | | Call 0x0,0x8 005c 00d9 | | Load_Top At_Offset_1 005d e402 | | Load 0x2,0x2 005e 0227 | ' | Execute Access,All_Reference 005f 01d5 | | Execute Vector,Field_Reference 0060 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0061 e7fd | | Load 0x3,-0x3 0062 0af1 | | Execute_Immediate Plus,-0xf 0063 00d8 | | Load_Top At_Offset_0 0064 e007 | | Load 0x0,0x7 0065 0260 | ` | Execute Discrete,In_Type 0066 7001 |p | Jump_Nonzero 0x68 0067 0801 | | Execute_Immediate Raise,0x1 0068 8009 | | Call 0x0,0x9 0069 0a0f | | Execute_Immediate Plus,0xf 006a 00d9 | | Load_Top At_Offset_1 006b e402 | | Load 0x2,0x2 006c 0227 | ' | Execute Access,All_Reference 006d 01d5 | | Execute Vector,Field_Reference 006e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006f 4864 |Hd | Short_Literal 0x64 0070 800a | | Call 0x0,0xa 0071 00d9 | | Load_Top At_Offset_1 0072 e402 | | Load 0x2,0x2 0073 0227 | ' | Execute Access,All_Reference 0074 01d5 | | Execute Vector,Field_Reference 0075 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0076 4864 |Hd | Short_Literal 0x64 0077 800b | | Call 0x0,0xb 0078 00d9 | | Load_Top At_Offset_1 0079 e402 | | Load 0x2,0x2 007a 0227 | ' | Execute Access,All_Reference 007b 01d5 | | Execute Vector,Field_Reference 007c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 007d e603 | | Load 0x3,0x3 007e 00d9 | | Load_Top At_Offset_1 007f e402 | | Load 0x2,0x2 0080 0227 | ' | Execute Access,All_Reference 0081 01d5 | | Execute Vector,Field_Reference 0082 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0083 00db | | Load_Top At_Offset_3 0084 00d9 | | Load_Top At_Offset_1 0085 e402 | | Load 0x2,0x2 0086 0227 | ' | Execute Access,All_Reference 0087 01d5 | | Execute Vector,Field_Reference 0088 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0089 e603 | | Load 0x3,0x3 008a 0a40 | @ | Execute_Immediate Plus,0x40 008b 600c |` | Indirect_Literal Discrete,0x98,{0x00000000, 0x00005a00} 008c 026f | o | Execute Discrete,Remainder 008d c603 | | Store 0x3,0x3 008e 00db | | Load_Top At_Offset_3 008f 4880 |H | Short_Literal 0x80 0090 0273 | s | Execute Discrete,Plus 0091 6006 |` | Indirect_Literal Discrete,0x98,{0x00000000, 0x00005a00} 0092 026f | o | Execute Discrete,Remainder 0093 c604 | | Store 0x3,0x4 0094 00c8 | | Action Pop_Auxiliary_Range 0095 3fc4 |? | Loop_Increasing 0x5a 0096 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0097 0000 | | .XXX[0x1] 0098 0000 0000 | | .LITERAL {0x00000000, 0x00005a00} 009c 0000 0000 | | .LITERAL {0x00000000, 0x000021c0} 00a0 0000 0000 | | .LITERAL {0x00000000, 0x00000b40} 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ad | | .CONST 0x00ad ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e00c | | Load 0x0,0xc 00ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ad BODY_00a8: 00ad 00cf | | Action Mark_Auxiliary 00ae e402 | | Load 0x2,0x2 00af 0227 | ' | Execute Access,All_Reference 00b0 01d9 | | Execute Vector,Reverse_Bounds 00b1 0263 | c | Execute Discrete,Above_Bound 00b2 7030 |p0 | Jump_Nonzero 0xe3 00b3 00d8 | | Load_Top At_Offset_0 00b4 e402 | | Load 0x2,0x2 00b5 0227 | ' | Execute Access,All_Reference 00b6 01d5 | | Execute Vector,Field_Reference 00b7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00b8 00d9 | | Load_Top At_Offset_1 00b9 e402 | | Load 0x2,0x2 00ba 0227 | ' | Execute Access,All_Reference 00bb 01d5 | | Execute Vector,Field_Reference 00bc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00bd 00da | | Load_Top At_Offset_2 00be e402 | | Load 0x2,0x2 00bf 0227 | ' | Execute Access,All_Reference 00c0 01d5 | | Execute Vector,Field_Reference 00c1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00c2 00db | | Load_Top At_Offset_3 00c3 e402 | | Load 0x2,0x2 00c4 0227 | ' | Execute Access,All_Reference 00c5 01d5 | | Execute Vector,Field_Reference 00c6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c7 e605 | | Load 0x3,0x5 00c8 e402 | | Load 0x2,0x2 00c9 0227 | ' | Execute Access,All_Reference 00ca 01d5 | | Execute Vector,Field_Reference 00cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00cc e605 | | Load 0x3,0x5 00cd e402 | | Load 0x2,0x2 00ce 0227 | ' | Execute Access,All_Reference 00cf 01d5 | | Execute Vector,Field_Reference 00d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d1 e7fd | | Load 0x3,-0x3 00d2 e7fe | | Load 0x3,-0x2 00d3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 00d4 e7ff | | Load 0x3,-0x1 00d5 800d | | Call 0x0,0xd 00d6 00db | | Load_Top At_Offset_3 00d7 0a01 | | Execute_Immediate Plus,0x1 00d8 c602 | | Store 0x3,0x2 00d9 00db | | Load_Top At_Offset_3 00da e7f9 | | Load 0x3,-0x7 00db 027b | { | Execute Discrete,Greater_Equal 00dc 6804 |h | Jump_Zero 0xe1 00dd e7ff | | Load 0x3,-0x1 00de 800e | | Call 0x0,0xe 00df 4800 |H | Short_Literal 0x0 00e0 a602 | | Store_Unchecked 0x3,0x2 00e1 00c8 | | Action Pop_Auxiliary_Range 00e2 3fd0 |? | Loop_Increasing 0xb3 00e3 4508 |E | Exit_Suprogram New_Top_Offset 0x8 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e402 | | Load 0x2,0x2 00ec e002 | | Load 0x0,0x2 00ed 022f | / | Execute Access,Equal 00ee 6804 |h | Jump_Zero 0xf3 00ef e7fa | | Load 0x3,-0x6 00f0 e7fb | | Load 0x3,-0x5 00f1 e7ff | | Load 0x3,-0x1 00f2 8403 | | Call 0x2,0x3 00f3 e7f9 | | Load 0x3,-0x7 00f4 00d8 | | Load_Top At_Offset_0 00f5 0c06 | | Execute_Immediate Greater_Equal,0x6 00f6 7010 |p | Jump_Nonzero 0x107 00f7 4605 |F | Jump_Case 0x6 00f8 780f |x | Jump 0x108 ; case 0x0 00f9 7817 |x | Jump 0x111 ; case 0x1 00fa 782b |x+ | Jump 0x126 ; case 0x2 00fb 7832 |x2 | Jump 0x12e ; case 0x3 00fc 783a |x: | Jump 0x137 ; case 0x4 00fd 7800 |x | Jump 0xfe ; case 0x5 00fe 6041 |`A | Indirect_Literal Discrete,0x140,{0x00000000, 0x7fffffff} 00ff e7fa | | Load 0x3,-0x6 0100 e7fb | | Load 0x3,-0x5 0101 e7fc | | Load 0x3,-0x4 0102 e7fd | | Load 0x3,-0x3 0103 e7fe | | Load 0x3,-0x2 0104 e7ff | | Load 0x3,-0x1 0105 8404 | | Call 0x2,0x4 0106 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0107 00d1 | | Pop_Control Pop_Count_1 0108 e402 | | Load 0x2,0x2 0109 e00f | | Load 0x0,0xf 010a e010 | | Load 0x0,0x10 010b a011 | | Store_Unchecked 0x0,0x11 010c 8012 | | Call 0x0,0x12 010d c402 | | Store 0x2,0x2 010e 4800 |H | Short_Literal 0x0 010f a7f9 | | Store_Unchecked 0x3,-0x7 0110 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0111 e402 | | Load 0x2,0x2 0112 0227 | ' | Execute Access,All_Reference 0113 01dd | | Execute Vector,First 0114 e402 | | Load 0x2,0x2 0115 0227 | ' | Execute Access,All_Reference 0116 01dd | | Execute Vector,First 0117 e402 | | Load 0x2,0x2 0118 0227 | ' | Execute Access,All_Reference 0119 01db | | Execute Vector,Length 011a 09ff | | Execute_Immediate Binary_Scale,-0x1 011b 0273 | s | Execute Discrete,Plus 011c 0aff | | Execute_Immediate Plus,-0x1 011d e402 | | Load 0x2,0x2 011e 0227 | ' | Execute Access,All_Reference 011f 01cf | | Execute Vector,Slice_Read 0120 e7fd | | Load 0x3,-0x3 0121 e7fe | | Load 0x3,-0x2 0122 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0123 e7ff | | Load 0x3,-0x1 0124 8013 | | Call 0x0,0x13 0125 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0126 e402 | | Load 0x2,0x2 0127 0227 | ' | Execute Access,All_Reference 0128 e7fd | | Load 0x3,-0x3 0129 e7fe | | Load 0x3,-0x2 012a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012b e7ff | | Load 0x3,-0x1 012c 8013 | | Call 0x0,0x13 012d 4507 |E | Exit_Suprogram New_Top_Offset 0x7 012e 4801 |H | Short_Literal 0x1 012f e7fa | | Load 0x3,-0x6 0130 e7fb | | Load 0x3,-0x5 0131 e7fc | | Load 0x3,-0x4 0132 e7fd | | Load 0x3,-0x3 0133 e7fe | | Load 0x3,-0x2 0134 e7ff | | Load 0x3,-0x1 0135 8404 | | Call 0x2,0x4 0136 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0137 4805 |H | Short_Literal 0x5 0138 e7fa | | Load 0x3,-0x6 0139 e7fb | | Load 0x3,-0x5 013a e7fc | | Load 0x3,-0x4 013b e7fd | | Load 0x3,-0x3 013c e7fe | | Load 0x3,-0x2 013d e7ff | | Load 0x3,-0x1 013e 8404 | | Call 0x2,0x4 013f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0140 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 0144 0000 0000 | | .BLANK 0000[0x4] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e7f9 | | Load 0x3,-0x7 014c 00e3 | | Load_Encached Natural_Cache 014d 025e | ^ | Execute Discrete,Convert 014e e7fa | | Load 0x3,-0x6 014f 00d8 | | Load_Top At_Offset_0 0150 e007 | | Load 0x0,0x7 0151 0260 | ` | Execute Discrete,In_Type 0152 7001 |p | Jump_Nonzero 0x154 0153 0801 | | Execute_Immediate Raise,0x1 0154 e7fb | | Load 0x3,-0x5 0155 00d8 | | Load_Top At_Offset_0 0156 e007 | | Load 0x0,0x7 0157 0260 | ` | Execute Discrete,In_Type 0158 7001 |p | Jump_Nonzero 0x15a 0159 0801 | | Execute_Immediate Raise,0x1 015a e7fc | | Load 0x3,-0x4 015b e7fd | | Load 0x3,-0x3 015c e7fe | | Load 0x3,-0x2 015d e7ff | | Load 0x3,-0x1 015e 8405 | | Call 0x2,0x5 015f c7f9 | | Store 0x3,-0x7 0160 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0004 0000 | | .DEBUG4 0x0004,0x0000,0x692b,0x0000,0x0001,0x0006 016e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0172 001b 0186 | | .DBG4T 0x001b,0x0186,0x8001,0x0000 0176 0043 018e | C | .DBG4T 0x0043,0x018e,0x0001,0x0000 017a 00ab 019f | | .DBG4T 0x00ab,0x019f,0x0001,0x0000 017e 00eb 01a8 | | .DBG4T 0x00eb,0x01a8,0x0001,0x4000 0182 014b 0000 | K | .DBG4T 0x014b,0x0000,0x000b,0x0000 0186 ; -------------------------------------------------------------------------------------- 0186 ; Debug chain 0186 ; -------------------------------------------------------------------------------------- 0186 0005 0001 | | .DBGLEN 0x0005,0x0001 0188 001b 001d | | .DBGLNO 0x001b,0x001d,0x001f,0x0021,0x0023,0x0034 018e ; -------------------------------------------------------------------------------------- 018e ; Debug chain 018e ; -------------------------------------------------------------------------------------- 018e 0003 000c | | .DBGLEN 0x0003,0x000c 0190 0043 0048 | C H| .DBGLNO 0x0043,0x0048,0x004a,0x004c,0x0051,0x0053,0x0056,0x005a,0x0061,0x006f,0x0076,0x007d,0x0083,0x0089,0x008e 019f ; -------------------------------------------------------------------------------------- 019f ; Debug chain 019f ; -------------------------------------------------------------------------------------- 019f 0001 0006 | | .DBGLEN 0x0001,0x0006 01a1 00ab 00ae | | .DBGLNO 0x00ab,0x00ae,0x00b3,0x00d6,0x00d9,0x00dd,0x00df 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug chain 01a8 ; -------------------------------------------------------------------------------------- 01a8 0000 000a | | .DBGLEN 0x0000,0x000a 01aa 00eb 00ef | | .DBGLNO 0x00eb,0x00ef,0x00f3,0x00fe,0x0108,0x010e,0x0111,0x0126,0x012e,0x0137 01b4 0001 0002 | | .XXX[0xa] 01b6 0003 0008 | | 01b8 0009 000a | | 01ba 0004 0005 | | 01bc 0006 0007 | | 01be 0000 0000 | | .BLANK 0000[0x42]