|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1ee28c5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0180 | | .CONST 0x0180 ; 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 003b | ; | .CONST 0x003b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0009 | | .CONST 0x0009 ; Number of locals 001b INIT_0018: 001b 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 001d 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 001f a002 | | Store_Unchecked 0x0,0x2 0020 00c6 | | Action Check_Subprogram_Elaborated 0021 4803 |H | Short_Literal 0x3 0022 4802 |H | Short_Literal 0x2 0023 0099 | | Action Reference_Dynamic 0024 0093 0000 | | push_full_address 0x0 0026 6039 |`9 | Indirect_Literal Discrete,0x60,{0x80000000, 0x00020000} 0027 0273 | s | Execute Discrete,Plus 0028 e003 | | Load 0x0,0x3 0029 0273 | s | Execute Discrete,Plus 002a e004 | | Load 0x0,0x4 002b 0273 | s | Execute Discrete,Plus 002c 4806 |H | Short_Literal 0x6 002d 0007 | | Action Break_Optional 002e a005 | | Store_Unchecked 0x0,0x5 002f 00c6 | | Action Check_Subprogram_Elaborated 0030 a006 | | Store_Unchecked 0x0,0x6 0031 0093 0000 | | push_full_address 0x0 0033 6028 |`( | Indirect_Literal Discrete,0x5c,{0x80000000, 0x00010000} 0034 0273 | s | Execute Discrete,Plus 0035 e003 | | Load 0x0,0x3 0036 0273 | s | Execute Discrete,Plus 0037 e007 | | Load 0x0,0x7 0038 0273 | s | Execute Discrete,Plus 0039 4809 |H | Short_Literal 0x9 003a 0007 | | Action Break_Optional 003b BODY_0018: 003b 8402 | | Call 0x2,0x2 003c 8008 | | Call 0x0,0x8 003d 4807 |H | Short_Literal 0x7 003e 4802 |H | Short_Literal 0x2 003f 0099 | | Action Reference_Dynamic 0040 4808 |H | Short_Literal 0x8 0041 4802 |H | Short_Literal 0x2 0042 0099 | | Action Reference_Dynamic 0043 8005 | | Call 0x0,0x5 0044 4801 |H | Short_Literal 0x1 0045 8008 | | Call 0x0,0x8 0046 8009 | | Call 0x0,0x9 0047 00cf | | Action Mark_Auxiliary 0048 800a | | Call 0x0,0xa 0049 4801 |H | Short_Literal 0x1 004a 0263 | c | Execute Discrete,Above_Bound 004b 7005 |p | Jump_Nonzero 0x51 004c 8008 | | Call 0x0,0x8 004d 00d9 | | Load_Top At_Offset_1 004e 800b | | Call 0x0,0xb 004f 00c8 | | Action Pop_Auxiliary_Range 0050 3ffb |? | Loop_Increasing 0x4c 0051 00ce | | Action Pop_Auxiliary 0052 4804 |H | Short_Literal 0x4 0053 4802 |H | Short_Literal 0x2 0054 0099 | | Action Reference_Dynamic 0055 4805 |H | Short_Literal 0x5 0056 4802 |H | Short_Literal 0x2 0057 0099 | | Action Reference_Dynamic 0058 8002 | | Call 0x0,0x2 0059 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005a 0000 0000 | | .XXX[0x2] 005c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0060 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0064 0000 0000 | | .BLANK 0000[0x4] 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 e00c | | Load 0x0,0xc 006c 0337 | 7 | Declare_Variable Array 006d e00d | | Load 0x0,0xd 006e 4800 |H | Short_Literal 0x0 006f 00da | | Load_Top At_Offset_2 0070 01d6 | | Execute Vector,Field_Write 0071 e00e | | Load 0x0,0xe 0072 4801 |H | Short_Literal 0x1 0073 00da | | Load_Top At_Offset_2 0074 01d6 | | Execute Vector,Field_Write 0075 0092 016c | l| Action Push_String_Extended,0x16c ; "Greta" 0077 800f | | Call 0x0,0xf 0078 4802 |H | Short_Literal 0x2 0079 00da | | Load_Top At_Offset_2 007a 01d6 | | Execute Vector,Field_Write 007b e00c | | Load 0x0,0xc 007c 01c3 | | Execute Vector,Check_In_Type 007d 8010 | | Call 0x0,0x10 007e e00c | | Load 0x0,0xc 007f 0337 | 7 | Declare_Variable Array 0080 e011 | | Load 0x0,0x11 0081 4800 |H | Short_Literal 0x0 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 e012 | | Load 0x0,0x12 0085 4801 |H | Short_Literal 0x1 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 0092 016d | m| Action Push_String_Extended,0x16d ; "Garbo" 008a 800f | | Call 0x0,0xf 008b 4802 |H | Short_Literal 0x2 008c 00da | | Load_Top At_Offset_2 008d 01d6 | | Execute Vector,Field_Write 008e e00c | | Load 0x0,0xc 008f 01c3 | | Execute Vector,Check_In_Type 0090 8010 | | Call 0x0,0x10 0091 e00c | | Load 0x0,0xc 0092 0337 | 7 | Declare_Variable Array 0093 e011 | | Load 0x0,0x11 0094 4800 |H | Short_Literal 0x0 0095 00da | | Load_Top At_Offset_2 0096 01d6 | | Execute Vector,Field_Write 0097 e00e | | Load 0x0,0xe 0098 4801 |H | Short_Literal 0x1 0099 00da | | Load_Top At_Offset_2 009a 01d6 | | Execute Vector,Field_Write 009b 0092 016c | l| Action Push_String_Extended,0x16c ; "Greta" 009d 800f | | Call 0x0,0xf 009e 4802 |H | Short_Literal 0x2 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 e00c | | Load 0x0,0xc 00a2 01c3 | | Execute Vector,Check_In_Type 00a3 8010 | | Call 0x0,0x10 00a4 e00c | | Load 0x0,0xc 00a5 0337 | 7 | Declare_Variable Array 00a6 e013 | | Load 0x0,0x13 00a7 4800 |H | Short_Literal 0x0 00a8 00da | | Load_Top At_Offset_2 00a9 01d6 | | Execute Vector,Field_Write 00aa e00e | | Load 0x0,0xe 00ab 4801 |H | Short_Literal 0x1 00ac 00da | | Load_Top At_Offset_2 00ad 01d6 | | Execute Vector,Field_Write 00ae 0092 016e | n| Action Push_String_Extended,0x16e ; "Shrdlu" 00b0 800f | | Call 0x0,0xf 00b1 4802 |H | Short_Literal 0x2 00b2 00da | | Load_Top At_Offset_2 00b3 01d6 | | Execute Vector,Field_Write 00b4 e00c | | Load 0x0,0xc 00b5 01c3 | | Execute Vector,Check_In_Type 00b6 8010 | | Call 0x0,0x10 00b7 e00c | | Load 0x0,0xc 00b8 0337 | 7 | Declare_Variable Array 00b9 e013 | | Load 0x0,0x13 00ba 4800 |H | Short_Literal 0x0 00bb 00da | | Load_Top At_Offset_2 00bc 01d6 | | Execute Vector,Field_Write 00bd e012 | | Load 0x0,0x12 00be 4801 |H | Short_Literal 0x1 00bf 00da | | Load_Top At_Offset_2 00c0 01d6 | | Execute Vector,Field_Write 00c1 0092 016c | l| Action Push_String_Extended,0x16c ; "Greta" 00c3 800f | | Call 0x0,0xf 00c4 4802 |H | Short_Literal 0x2 00c5 00da | | Load_Top At_Offset_2 00c6 01d6 | | Execute Vector,Field_Write 00c7 e00c | | Load 0x0,0xc 00c8 01c3 | | Execute Vector,Check_In_Type 00c9 8010 | | Call 0x0,0x10 00ca e00c | | Load 0x0,0xc 00cb 0337 | 7 | Declare_Variable Array 00cc e00d | | Load 0x0,0xd 00cd 4800 |H | Short_Literal 0x0 00ce 00da | | Load_Top At_Offset_2 00cf 01d6 | | Execute Vector,Field_Write 00d0 e012 | | Load 0x0,0x12 00d1 4801 |H | Short_Literal 0x1 00d2 00da | | Load_Top At_Offset_2 00d3 01d6 | | Execute Vector,Field_Write 00d4 0092 016f | o| Action Push_String_Extended,0x16f ; "Marylin" 00d6 800f | | Call 0x0,0xf 00d7 4802 |H | Short_Literal 0x2 00d8 00da | | Load_Top At_Offset_2 00d9 01d6 | | Execute Vector,Field_Write 00da e00c | | Load 0x0,0xc 00db 01c3 | | Execute Vector,Check_In_Type 00dc 8010 | | Call 0x0,0x10 00dd e014 | | Load 0x0,0x14 00de 0337 | 7 | Declare_Variable Array 00df 4832 |H2 | Short_Literal 0x32 00e0 8015 | | Call 0x0,0x15 00e1 4801 |H | Short_Literal 0x1 00e2 00da | | Load_Top At_Offset_2 00e3 01d6 | | Execute Vector,Field_Write 00e4 e013 | | Load 0x0,0x13 00e5 4800 |H | Short_Literal 0x0 00e6 00da | | Load_Top At_Offset_2 00e7 01d6 | | Execute Vector,Field_Write 00e8 e016 | | Load 0x0,0x16 00e9 4802 |H | Short_Literal 0x2 00ea 00da | | Load_Top At_Offset_2 00eb 01d6 | | Execute Vector,Field_Write 00ec e014 | | Load 0x0,0x14 00ed 01c3 | | Execute Vector,Check_In_Type 00ee 8017 | | Call 0x0,0x17 00ef e014 | | Load 0x0,0x14 00f0 0337 | 7 | Declare_Variable Array 00f1 484b |HK | Short_Literal 0x4b 00f2 8015 | | Call 0x0,0x15 00f3 4801 |H | Short_Literal 0x1 00f4 00da | | Load_Top At_Offset_2 00f5 01d6 | | Execute Vector,Field_Write 00f6 e00d | | Load 0x0,0xd 00f7 4800 |H | Short_Literal 0x0 00f8 00da | | Load_Top At_Offset_2 00f9 01d6 | | Execute Vector,Field_Write 00fa e016 | | Load 0x0,0x16 00fb 4802 |H | Short_Literal 0x2 00fc 00da | | Load_Top At_Offset_2 00fd 01d6 | | Execute Vector,Field_Write 00fe e014 | | Load 0x0,0x14 00ff 01c3 | | Execute Vector,Check_In_Type 0100 8017 | | Call 0x0,0x17 0101 e014 | | Load 0x0,0x14 0102 0337 | 7 | Declare_Variable Array 0103 485f |H_ | Short_Literal 0x5f 0104 8015 | | Call 0x0,0x15 0105 4801 |H | Short_Literal 0x1 0106 00da | | Load_Top At_Offset_2 0107 01d6 | | Execute Vector,Field_Write 0108 e011 | | Load 0x0,0x11 0109 4800 |H | Short_Literal 0x0 010a 00da | | Load_Top At_Offset_2 010b 01d6 | | Execute Vector,Field_Write 010c e016 | | Load 0x0,0x16 010d 4802 |H | Short_Literal 0x2 010e 00da | | Load_Top At_Offset_2 010f 01d6 | | Execute Vector,Field_Write 0110 e014 | | Load 0x0,0x14 0111 01c3 | | Execute Vector,Check_In_Type 0112 8017 | | Call 0x0,0x17 0113 e014 | | Load 0x0,0x14 0114 0337 | 7 | Declare_Variable Array 0115 4864 |Hd | Short_Literal 0x64 0116 8015 | | Call 0x0,0x15 0117 4801 |H | Short_Literal 0x1 0118 00da | | Load_Top At_Offset_2 0119 01d6 | | Execute Vector,Field_Write 011a e013 | | Load 0x0,0x13 011b 4800 |H | Short_Literal 0x0 011c 00da | | Load_Top At_Offset_2 011d 01d6 | | Execute Vector,Field_Write 011e e016 | | Load 0x0,0x16 011f 4802 |H | Short_Literal 0x2 0120 00da | | Load_Top At_Offset_2 0121 01d6 | | Execute Vector,Field_Write 0122 e014 | | Load 0x0,0x14 0123 01c3 | | Execute Vector,Check_In_Type 0124 8017 | | Call 0x0,0x17 0125 e018 | | Load 0x0,0x18 0126 0337 | 7 | Declare_Variable Array 0127 4aee |J | Short_Literal 0x2ee 0128 8015 | | Call 0x0,0x15 0129 4801 |H | Short_Literal 0x1 012a 00da | | Load_Top At_Offset_2 012b 01d6 | | Execute Vector,Field_Write 012c e011 | | Load 0x0,0x11 012d 4800 |H | Short_Literal 0x0 012e 00da | | Load_Top At_Offset_2 012f 01d6 | | Execute Vector,Field_Write 0130 e00e | | Load 0x0,0xe 0131 4802 |H | Short_Literal 0x2 0132 00da | | Load_Top At_Offset_2 0133 01d6 | | Execute Vector,Field_Write 0134 e018 | | Load 0x0,0x18 0135 01c3 | | Execute Vector,Check_In_Type 0136 8019 | | Call 0x0,0x19 0137 e018 | | Load 0x0,0x18 0138 0337 | 7 | Declare_Variable Array 0139 6022 |`" | Indirect_Literal Discrete,0x15c,{0x00000000, 0x00002710} 013a 8015 | | Call 0x0,0x15 013b 4801 |H | Short_Literal 0x1 013c 00da | | Load_Top At_Offset_2 013d 01d6 | | Execute Vector,Field_Write 013e e00d | | Load 0x0,0xd 013f 4800 |H | Short_Literal 0x0 0140 00da | | Load_Top At_Offset_2 0141 01d6 | | Execute Vector,Field_Write 0142 e00e | | Load 0x0,0xe 0143 4802 |H | Short_Literal 0x2 0144 00da | | Load_Top At_Offset_2 0145 01d6 | | Execute Vector,Field_Write 0146 e018 | | Load 0x0,0x18 0147 01c3 | | Execute Vector,Check_In_Type 0148 8019 | | Call 0x0,0x19 0149 e018 | | Load 0x0,0x18 014a 0337 | 7 | Declare_Variable Array 014b 4896 |H | Short_Literal 0x96 014c 8015 | | Call 0x0,0x15 014d 4801 |H | Short_Literal 0x1 014e 00da | | Load_Top At_Offset_2 014f 01d6 | | Execute Vector,Field_Write 0150 e011 | | Load 0x0,0x11 0151 4800 |H | Short_Literal 0x0 0152 00da | | Load_Top At_Offset_2 0153 01d6 | | Execute Vector,Field_Write 0154 e012 | | Load 0x0,0x12 0155 4802 |H | Short_Literal 0x2 0156 00da | | Load_Top At_Offset_2 0157 01d6 | | Execute Vector,Field_Write 0158 e018 | | Load 0x0,0x18 0159 01c3 | | Execute Vector,Check_In_Type 015a 8019 | | Call 0x0,0x19 015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015c 0000 0000 | | .LITERAL {0x00000000, 0x00002710} 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00db | | Load_Top At_Offset_3 0164 00db | | Load_Top At_Offset_3 0165 00d8 | | Load_Top At_Offset_0 0166 00e3 | | Load_Encached Natural_Cache 0167 0260 | ` | Execute Discrete,In_Type 0168 7001 |p | Jump_Nonzero 0x16a 0169 0801 | | Execute_Immediate Raise,0x1 016a 801a | | Call 0x0,0x1a 016b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016c ; -------------------------------------------------------------------------------------- 016c ; STRING TABLE 016c ; -------------------------------------------------------------------------------------- 016c 000a | | .STRTAB 0x000a->0x0171 ; "Greta" 016d 000d | | .STRTAB 0x000d->0x0173 ; "Garbo" 016e 0010 | | .STRTAB 0x0010->0x0176 ; "Shrdlu" 016f 0014 | | .STRTAB 0x0014->0x0179 ; "Marylin" 0170 0019 | | .STREND 0x0019->0x017c 0171 4772 6574 |Gret| .STRTAB_STRINGS 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug Table 0180 ; -------------------------------------------------------------------------------------- 0180 0004 0004 | | .DEBUG4 0x0004,0x0004,0x9bcd,0x0000,0x0001,0x0004 0186 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 018a 001b 0196 | | .DBG4T 0x001b,0x0196,0x8001,0x0000 018e 006b 01a1 | k | .DBG4T 0x006b,0x01a1,0x0001,0x0000 0192 0163 0000 | c | .DBG4T 0x0163,0x0000,0x000b,0x0000 0196 ; -------------------------------------------------------------------------------------- 0196 ; Debug chain 0196 ; -------------------------------------------------------------------------------------- 0196 0003 0006 | | .DBGLEN 0x0003,0x0006 0198 001b 001d | | .DBGLNO 0x001b,0x001d,0x002e,0x003b,0x003c,0x0044,0x0048,0x004c,0x0052 01a1 ; -------------------------------------------------------------------------------------- 01a1 ; Debug chain 01a1 ; -------------------------------------------------------------------------------------- 01a1 0000 000d | | .DBGLEN 0x0000,0x000d 01a3 006b 007e | k ~| .DBGLNO 0x006b,0x007e,0x0091,0x00a4,0x00b7,0x00ca,0x00dd,0x00ef,0x0101,0x0113,0x0125,0x0137,0x0149 01b0 0000 0000 | | .BLANK 0000[0x50]