|
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_1884fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0128 | ( | .CONST 0x0128 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0007 | | .CONST 0x0007 ; Number of locals 000b INIT_0008: 000b e5f7 | | Load 0x2,-0x9 000c 0092 0120 | | Action Push_String_Extended,0x120 ; ")))))))\x5c" 000e 01cc | | Execute Vector,Catenate 000f 0007 | | Action Break_Optional 0010 00d8 | | Load_Top At_Offset_0 0011 01dd | | Execute Vector,First 0012 00e2 | | Load_Encached Integer_Cache 0013 03f1 | | Declare_Variable Discrete,With_Value 0014 029e 002b | +| Declare_Subprogram INIT_0028,For_Call,Unelaborated 0016 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0018 029f 009b | | Declare_Subprogram INIT_0098,For_Call 001a 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 001c 4804 |H | Short_Literal 0x4 001d 4802 |H | Short_Literal 0x2 001e 0099 | | Action Reference_Dynamic 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 8404 | | Call 0x2,0x4 0021 e5f8 | | Load 0x2,-0x8 0022 0119 | | Execute Any,Check_In_Formal_Type 0023 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9 0024 0000 0000 | | .BLANK 0000[0x4] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002f | / | .CONST 0x002f ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0002 | | .CONST 0x0002 ; Number of locals 002b INIT_0028: 002b e5f8 | | Load 0x2,-0x8 002c 02c7 | | Declare_Variable Any 002d e5f9 | | Load 0x2,-0x7 002e c602 | | Store 0x3,0x2 002f BODY_0028: 002f 8405 | | Call 0x2,0x5 0030 e403 | | Load 0x2,0x3 0031 e402 | | Load 0x2,0x2 0032 01d7 | | Execute Vector,Field_Read 0033 0b2b | + | Execute_Immediate Case_Compare,0x2b 0034 7005 |p | Jump_Nonzero 0x3a 0035 0f2d | - | Execute_Immediate Equal,0x2d 0036 700a |p | Jump_Nonzero 0x41 0037 8407 | | Call 0x2,0x7 0038 c602 | | Store 0x3,0x2 0039 7812 |x | Jump 0x4c 003a 00d1 | | Pop_Control Pop_Count_1 003b e403 | | Load 0x2,0x3 003c 0a01 | | Execute_Immediate Plus,0x1 003d c403 | | Store 0x2,0x3 003e 8407 | | Call 0x2,0x7 003f c602 | | Store 0x3,0x2 0040 780b |x | Jump 0x4c 0041 e403 | | Load 0x2,0x3 0042 0a01 | | Execute_Immediate Plus,0x1 0043 c403 | | Store 0x2,0x3 0044 8407 | | Call 0x2,0x7 0045 e5f8 | | Load 0x2,-0x8 0046 0119 | | Execute Any,Check_In_Formal_Type 0047 e5f9 | | Load 0x2,-0x7 0048 e5f8 | | Load 0x2,-0x8 0049 0119 | | Execute Any,Check_In_Formal_Type 004a 85fc | | Call 0x2,-0x4 004b c602 | | Store 0x3,0x2 004c 00cf | | Action Mark_Auxiliary 004d 8405 | | Call 0x2,0x5 004e e403 | | Load 0x2,0x3 004f e402 | | Load 0x2,0x2 0050 01d7 | | Execute Vector,Field_Read 0051 00d8 | | Load_Top At_Offset_0 0052 482b |H+ | Short_Literal 0x2b 0053 482c |H, | Short_Literal 0x2c 0054 0262 | b | Execute Discrete,In_Range 0055 700a |p | Jump_Nonzero 0x60 0056 0b2d | - | Execute_Immediate Case_Compare,0x2d 0057 7015 |p | Jump_Nonzero 0x6d 0058 4830 |H0 | Short_Literal 0x30 0059 4839 |H9 | Short_Literal 0x39 005a 0262 | b | Execute Discrete,In_Range 005b 701e |p | Jump_Nonzero 0x7a 005c 00d9 | | Load_Top At_Offset_1 005d e5f8 | | Load 0x2,-0x8 005e 0119 | | Execute Any,Check_In_Formal_Type 005f 00ca | | Action Exit_Nullary_Function 0060 00d1 | | Pop_Control Pop_Count_1 0061 e403 | | Load 0x2,0x3 0062 0a01 | | Execute_Immediate Plus,0x1 0063 c403 | | Store 0x2,0x3 0064 8407 | | Call 0x2,0x7 0065 e5f8 | | Load 0x2,-0x8 0066 0119 | | Execute Any,Check_In_Formal_Type 0067 00da | | Load_Top At_Offset_2 0068 e5f8 | | Load 0x2,-0x8 0069 0119 | | Execute Any,Check_In_Formal_Type 006a 85fb | | Call 0x2,-0x5 006b c602 | | Store 0x3,0x2 006c 7815 |x | Jump 0x82 006d 00d1 | | Pop_Control Pop_Count_1 006e e403 | | Load 0x2,0x3 006f 0a01 | | Execute_Immediate Plus,0x1 0070 c403 | | Store 0x2,0x3 0071 8407 | | Call 0x2,0x7 0072 e5f8 | | Load 0x2,-0x8 0073 0119 | | Execute Any,Check_In_Formal_Type 0074 00da | | Load_Top At_Offset_2 0075 e5f8 | | Load 0x2,-0x8 0076 0119 | | Execute Any,Check_In_Formal_Type 0077 85fc | | Call 0x2,-0x4 0078 c602 | | Store 0x3,0x2 0079 7808 |x | Jump 0x82 007a 8407 | | Call 0x2,0x7 007b e5f8 | | Load 0x2,-0x8 007c 0119 | | Execute Any,Check_In_Formal_Type 007d 00da | | Load_Top At_Offset_2 007e e5f8 | | Load 0x2,-0x8 007f 0119 | | Execute Any,Check_In_Formal_Type 0080 85fb | | Call 0x2,-0x5 0081 c602 | | Store 0x3,0x2 0082 00c9 | | Action Pop_Auxiliary_Loop 0083 7fc9 | | Jump 0x4d 0084 0000 0000 | | .BLANK 0000[0x4] 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 00cf | | Action Mark_Auxiliary 008c 7804 |x | Jump 0x91 008d e403 | | Load 0x2,0x3 008e 0a01 | | Execute_Immediate Plus,0x1 008f c403 | | Store 0x2,0x3 0090 00c9 | | Action Pop_Auxiliary_Loop 0091 e403 | | Load 0x2,0x3 0092 e402 | | Load 0x2,0x2 0093 01d7 | | Execute Vector,Field_Read 0094 0f20 | | Execute_Immediate Equal,0x20 0095 77f7 |w | Jump_Nonzero 0x8d 0096 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009f | | .CONST 0x009f ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b e5f8 | | Load 0x2,-0x8 009c 02c7 | | Declare_Variable Any 009d 00d8 | | Load_Top At_Offset_0 009e 1c00 | | Execute_Immediate Run_Utility,0x0 009f BODY_0098: 009f 8405 | | Call 0x2,0x5 00a0 e403 | | Load 0x2,0x3 00a1 e402 | | Load 0x2,0x2 00a2 01d7 | | Execute Vector,Field_Read 00a3 0b28 | ( | Execute_Immediate Case_Compare,0x28 00a4 7010 |p | Jump_Nonzero 0xb5 00a5 00d8 | | Load_Top At_Offset_0 00a6 4830 |H0 | Short_Literal 0x30 00a7 4839 |H9 | Short_Literal 0x39 00a8 0262 | b | Execute Discrete,In_Range 00a9 701e |p | Jump_Nonzero 0xc8 00aa 0f29 | ) | Execute_Immediate Equal,0x29 00ab 7035 |p5 | Jump_Nonzero 0xe1 00ac e5f9 | | Load 0x2,-0x7 00ad 00d8 | | Load_Top At_Offset_0 00ae 0120 | | Execute Any,Is_Value 00af 7002 |p | Jump_Nonzero 0xb2 00b0 00d8 | | Load_Top At_Offset_0 00b1 011e | | Execute Any,Convert 00b2 e5f8 | | Load 0x2,-0x8 00b3 0119 | | Execute Any,Check_In_Formal_Type 00b4 00ca | | Action Exit_Nullary_Function 00b5 00d1 | | Pop_Control Pop_Count_1 00b6 e403 | | Load 0x2,0x3 00b7 0a01 | | Execute_Immediate Plus,0x1 00b8 c403 | | Store 0x2,0x3 00b9 8404 | | Call 0x2,0x4 00ba c602 | | Store 0x3,0x2 00bb 8405 | | Call 0x2,0x5 00bc e403 | | Load 0x2,0x3 00bd e402 | | Load 0x2,0x2 00be 01d7 | | Execute Vector,Field_Read 00bf 0f29 | ) | Execute_Immediate Equal,0x29 00c0 6803 |h | Jump_Zero 0xc4 00c1 e403 | | Load 0x2,0x3 00c2 0a01 | | Execute_Immediate Plus,0x1 00c3 c403 | | Store 0x2,0x3 00c4 00d8 | | Load_Top At_Offset_0 00c5 e5f8 | | Load 0x2,-0x8 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 00ca | | Action Exit_Nullary_Function 00c8 00d1 | | Pop_Control Pop_Count_1 00c9 00e2 | | Load_Encached Integer_Cache 00ca 00d9 | | Load_Top At_Offset_1 00cb 0120 | | Execute Any,Is_Value 00cc 6802 |h | Jump_Zero 0xcf 00cd e5f8 | | Load 0x2,-0x8 00ce 7803 |x | Jump 0xd2 00cf 00d9 | | Load_Top At_Offset_1 00d0 e5f8 | | Load 0x2,-0x8 00d1 0119 | | Execute Any,Check_In_Formal_Type 00d2 e403 | | Load 0x2,0x3 00d3 e402 | | Load 0x2,0x2 00d4 01dc | | Execute Vector,Last 00d5 e402 | | Load 0x2,0x2 00d6 01cf | | Execute Vector,Slice_Read 00d7 85fa | | Call 0x2,-0x6 00d8 c602 | | Store 0x3,0x2 00d9 c403 | | Store 0x2,0x3 00da e403 | | Load 0x2,0x3 00db 0a01 | | Execute_Immediate Plus,0x1 00dc c403 | | Store 0x2,0x3 00dd 00d8 | | Load_Top At_Offset_0 00de e5f8 | | Load 0x2,-0x8 00df 0119 | | Execute Any,Check_In_Formal_Type 00e0 00ca | | Action Exit_Nullary_Function 00e1 e5f9 | | Load 0x2,-0x7 00e2 00d8 | | Load_Top At_Offset_0 00e3 0120 | | Execute Any,Is_Value 00e4 7002 |p | Jump_Nonzero 0xe7 00e5 00d8 | | Load_Top At_Offset_0 00e6 011e | | Execute Any,Convert 00e7 e5f8 | | Load 0x2,-0x8 00e8 0119 | | Execute Any,Check_In_Formal_Type 00e9 00ca | | Action Exit_Nullary_Function 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f7 | | .CONST 0x00f7 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e5f8 | | Load 0x2,-0x8 00f4 02c7 | | Declare_Variable Any 00f5 00d8 | | Load_Top At_Offset_0 00f6 1c00 | | Execute_Immediate Run_Utility,0x0 00f7 BODY_00f0: 00f7 8406 | | Call 0x2,0x6 00f8 c602 | | Store 0x3,0x2 00f9 00cf | | Action Mark_Auxiliary 00fa 8405 | | Call 0x2,0x5 00fb e403 | | Load 0x2,0x3 00fc e402 | | Load 0x2,0x2 00fd 01d7 | | Execute Vector,Field_Read 00fe 0b2a | * | Execute_Immediate Case_Compare,0x2a 00ff 7006 |p | Jump_Nonzero 0x106 0100 0f2f | / | Execute_Immediate Equal,0x2f 0101 7011 |p | Jump_Nonzero 0x113 0102 00d9 | | Load_Top At_Offset_1 0103 e5f8 | | Load 0x2,-0x8 0104 0119 | | Execute Any,Check_In_Formal_Type 0105 00ca | | Action Exit_Nullary_Function 0106 00d1 | | Pop_Control Pop_Count_1 0107 e403 | | Load 0x2,0x3 0108 0a01 | | Execute_Immediate Plus,0x1 0109 c403 | | Store 0x2,0x3 010a 8406 | | Call 0x2,0x6 010b e5f8 | | Load 0x2,-0x8 010c 0119 | | Execute Any,Check_In_Formal_Type 010d 00da | | Load_Top At_Offset_2 010e e5f8 | | Load 0x2,-0x8 010f 0119 | | Execute Any,Check_In_Formal_Type 0110 85fd | | Call 0x2,-0x3 0111 c602 | | Store 0x3,0x2 0112 780b |x | Jump 0x11e 0113 e403 | | Load 0x2,0x3 0114 0a01 | | Execute_Immediate Plus,0x1 0115 c403 | | Store 0x2,0x3 0116 8406 | | Call 0x2,0x6 0117 e5f8 | | Load 0x2,-0x8 0118 0119 | | Execute Any,Check_In_Formal_Type 0119 00da | | Load_Top At_Offset_2 011a e5f8 | | Load 0x2,-0x8 011b 0119 | | Execute Any,Check_In_Formal_Type 011c 85fe | | Call 0x2,-0x2 011d c602 | | Store 0x3,0x2 011e 00c9 | | Action Pop_Auxiliary_Loop 011f 7fda | | Jump 0xfa 0120 ; -------------------------------------------------------------------------------------- 0120 ; STRING TABLE 0120 ; -------------------------------------------------------------------------------------- 0120 0004 | | .STRTAB 0x0004->0x0122 ; ")))))))\x5c" 0121 000a | | .STREND 0x000a->0x0126 0122 2929 2929 |))))| .STRTAB_STRINGS 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; Debug Table 0128 ; -------------------------------------------------------------------------------------- 0128 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7169,0x0000,0x0001,0x0005 012e 000b 0142 | B| .DBG4T 0x000b,0x0142,0x2802,0x0002 0132 002b 014c | + L| .DBG4T 0x002b,0x014c,0x0802,0x4002 0136 008b 016d | m| .DBG4T 0x008b,0x016d,0x0801,0x4002 013a 009b 0173 | s| .DBG4T 0x009b,0x0173,0x0802,0x4002 013e 00f3 0190 | | .DBG4T 0x00f3,0x0190,0x0802,0x4002 0142 ; -------------------------------------------------------------------------------------- 0142 ; Debug chain 0142 ; -------------------------------------------------------------------------------------- 0142 0007 0001 | | .DBGLEN 0x0007,0x0001 0144 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0014,0x0016,0x0018,0x001a,0x001c,0x0020 014c ; -------------------------------------------------------------------------------------- 014c ; Debug chain 014c ; -------------------------------------------------------------------------------------- 014c 0001 000f | | .DBGLEN 0x0001,0x000f 014e 002b 002f | + /| .DBGLNO 0x002b,0x002f,0x0030,0x0037,0x003b,0x003e,0x0041,0x0044,0x004d,0x004e,0x005c,0x0061,0x0064,0x006e,0x0071,0x007a 015e 0001 0002 | | .XXX[0xf] 0160 0007 0003 | | 0162 0004 0005 | | 0164 0006 0009 | | 0166 000a 0010 | | 0168 000b 000c | | 016a 000d 000e | | 016c 000f | | 016d ; -------------------------------------------------------------------------------------- 016d ; Debug chain 016d ; -------------------------------------------------------------------------------------- 016d 0000 0002 | | .DBGLEN 0x0000,0x0002 016f 008d 0091 | | .DBGLNO 0x008d,0x0091 0171 0002 0001 | | .XXX[0x2] 0173 ; -------------------------------------------------------------------------------------- 0173 ; Debug chain 0173 ; -------------------------------------------------------------------------------------- 0173 0001 000d | | .DBGLEN 0x0001,0x000d 0175 009b 009f | | .DBGLNO 0x009b,0x009f,0x00a0,0x00ac,0x00b6,0x00b9,0x00bb,0x00bc,0x00c1,0x00c4,0x00c9,0x00da,0x00dd,0x00e1 0183 0001 0002 | | .XXX[0xd] 0185 000d 0003 | | 0187 0004 0005 | | 0189 0006 0007 | | 018b 0008 0009 | | 018d 000a 000b | | 018f 000c | | 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug chain 0190 ; -------------------------------------------------------------------------------------- 0190 0001 0008 | | .DBGLEN 0x0001,0x0008 0192 00f3 00f7 | | .DBGLNO 0x00f3,0x00f7,0x00fa,0x00fb,0x0102,0x0107,0x010a,0x0113,0x0116 019b 0001 0003 | | .XXX[0x8] 019d 0004 0009 | | 019f 0005 0006 | | 01a1 0007 0008 | | 01a3 0000 0000 | | .BLANK 0000[0x5d]