|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦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 0280 | | .CONST 0x0280 ; 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 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 0021 | ! | .CONST 0x0021 ; Address of begin 0019 0072 | r | .CONST 0x0072 ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b 0092 00e0 | | Action Push_String_Extended,0xe0 ; "!machine.sims" 001d 0092 00e1 | | Action Push_String_Extended,0xe1 ; " (Running this program from other than the default path is unsupported.)" 001f 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0021 BODY_0018: 0021 e001 | | Load 0x0,0x1 0022 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0023 00cf | | Action Mark_Auxiliary 0024 0007 | | Action Break_Optional 0025 0092 00e2 | | Action Push_String_Extended,0xe2 ; "!users." 0027 0092 00e3 | | Action Push_String_Extended,0xe3 ; ".detail." 0029 0092 00e4 | | Action Push_String_Extended,0xe4 ; ".database." 002b 0092 00e5 | | Action Push_String_Extended,0xe5 ; ".to_rational.receiving" 002d 0092 00e6 | | Action Push_String_Extended,0xe6 ; ".to_rational.internal_spr" 002f 0092 00e7 | | Action Push_String_Extended,0xe7 ; ".to_rational.spr." 0031 0092 00e8 | | Action Push_String_Extended,0xe8 ; ".master." 0033 e5fe | | Load 0x2,-0x2 0034 e002 | | Load 0x0,0x2 0035 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0036 4800 |H | Short_Literal 0x0 0037 4801 |H | Short_Literal 0x1 0038 0092 00e9 | | Action Push_String_Extended,0xe9 ; "SIMS - Rational Customer Support Information Management System" 003a e001 | | Load 0x0,0x1 003b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 003c 4800 |H | Short_Literal 0x0 003d 4801 |H | Short_Literal 0x1 003e 0092 00ea | | Action Push_String_Extended,0xea ; "==============================================================" 0040 e001 | | Load 0x0,0x1 0041 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0042 e003 | | Load 0x0,0x3 0043 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0044 e003 | | Load 0x0,0x3 0045 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0046 e003 | | Load 0x0,0x3 0047 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0048 8404 | | Call 0x2,0x4 0049 49d4 |I | Short_Literal 0x1d4 004a 49d2 |I | Short_Literal 0x1d2 004b 49c8 |I | Short_Literal 0x1c8 004c 49ce |I | Short_Literal 0x1ce 004d 49cd |I | Short_Literal 0x1cd 004e 49cc |I | Short_Literal 0x1cc 004f 49cb |I | Short_Literal 0x1cb 0050 e002 | | Load 0x0,0x2 0051 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0052 49cf |I | Short_Literal 0x1cf 0053 49ca |I | Short_Literal 0x1ca 0054 49c9 |I | Short_Literal 0x1c9 0055 4801 |H | Short_Literal 0x1 0056 49d6 |I | Short_Literal 0x1d6 0057 49c3 |I | Short_Literal 0x1c3 0058 e002 | | Load 0x0,0x2 0059 181a | | Execute Package,Field_Execute,Field_Number 0x1a 005a 0092 00eb | | Action Push_String_Extended,0xeb ; "sims_options" 005c e5ff | | Load 0x2,-0x1 005d e002 | | Load 0x0,0x2 005e 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 005f 4805 |H | Short_Literal 0x5 0060 e003 | | Load 0x0,0x3 0061 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0062 01d7 | | Execute Vector,Field_Read 0063 00d8 | | Load_Top At_Offset_0 0064 4801 |H | Short_Literal 0x1 0065 4805 |H | Short_Literal 0x5 0066 e003 | | Load 0x0,0x3 0067 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0068 00d2 | | Pop_Control Pop_Count_2 0069 7800 |x | Jump 0x6a 006a 00ce | | Action Pop_Auxiliary 006b 4800 |H | Short_Literal 0x0 006c 4803 |H | Short_Literal 0x3 006d 0092 00ec | | Action Push_String_Extended,0xec ; "Thanks. All Done." 006f e001 | | Load 0x0,0x1 0070 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0071 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0072 TRAP_0018: 0072 010e | | Execute Exception,Is_Constraint_Error 0073 6805 |h | Jump_Zero 0x79 0074 0092 00ed | | Action Push_String_Extended,0xed ; "Constraint error in ap_remote_top." 0076 e001 | | Load 0x0,0x1 0077 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0078 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0079 010d | | Execute Exception,Is_Numeric_Error 007a 6805 |h | Jump_Zero 0x80 007b 0092 00ee | | Action Push_String_Extended,0xee ; "Numeric error in ap_remote_top." 007d e001 | | Load 0x0,0x1 007e 181d | | Execute Package,Field_Execute,Field_Number 0x1d 007f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0080 010c | | Execute Exception,Is_Program_Error 0081 6805 |h | Jump_Zero 0x87 0082 0092 00ef | | Action Push_String_Extended,0xef ; "Program error in ap_remote_top." 0084 e001 | | Load 0x0,0x1 0085 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0086 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0087 010b | | Execute Exception,Is_Storage_Error 0088 6805 |h | Jump_Zero 0x8e 0089 0092 00f0 | | Action Push_String_Extended,0xf0 ; "Storage error in ap_remote_top." 008b e001 | | Load 0x0,0x1 008c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 008d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 008e 010a | | Execute Exception,Is_Tasking_Error 008f 6805 |h | Jump_Zero 0x95 0090 0092 00f1 | | Action Push_String_Extended,0xf1 ; "Tasking error in ap_remote_top." 0092 e001 | | Load 0x0,0x1 0093 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0094 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0095 0092 00f2 | | Action Push_String_Extended,0xf2 ; "Other Program error in ap_remote_top. " 0097 e001 | | Load 0x0,0x1 0098 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0099 0092 00f3 | | Action Push_String_Extended,0xf3 ; "Exception occurred in ap_remote_top." 009b e001 | | Load 0x0,0x1 009c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 009d e001 | | Load 0x0,0x1 009e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 009f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 00b1 | | .CONST 0x00b1 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4801 |H | Short_Literal 0x1 00a4 4801 |H | Short_Literal 0x1 00a5 e004 | | Load 0x0,0x4 00a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00a7 e004 | | Load 0x0,0x4 00a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a9 01cf | | Execute Vector,Slice_Read 00aa 0092 00f4 | | Action Push_String_Extended,0xf4 ; "remote_params_master" 00ac 01cc | | Execute Vector,Catenate 00ad 4801 |H | Short_Literal 0x1 00ae e002 | | Load 0x0,0x2 00af 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 00b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b1 TRAP_00a0: 00b1 0007 | | Action Break_Optional 00b2 e001 | | Load 0x0,0x1 00b3 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00b4 0092 00f5 | | Action Push_String_Extended,0xf5 ; " Please run this program with the standard sims default path," 00b6 e001 | | Load 0x0,0x1 00b7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b8 e001 | | Load 0x0,0x1 00b9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ba 0092 00f6 | | Action Push_String_Extended,0xf6 ; " or contact your Rational response center for assistance in" 00bc e001 | | Load 0x0,0x1 00bd 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00be e001 | | Load 0x0,0x1 00bf 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00c0 0092 00f7 | | Action Push_String_Extended,0xf7 ; " determining if your SIMS site initialization has been completed." 00c2 e001 | | Load 0x0,0x1 00c3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00c4 e001 | | Load 0x0,0x1 00c5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00c6 e5fe | | Load 0x2,-0x2 00c7 01db | | Execute Vector,Length 00c8 0e0d | | Execute_Immediate Not_Equal,0xd 00c9 6805 |h | Jump_Zero 0xcf 00ca e403 | | Load 0x2,0x3 00cb e001 | | Load 0x0,0x1 00cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00cd e001 | | Load 0x0,0x1 00ce 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00cf e5fe | | Load 0x2,-0x2 00d0 01db | | Execute Vector,Length 00d1 0f0d | | Execute_Immediate Equal,0xd 00d2 6809 |h | Jump_Zero 0xdc 00d3 e5fe | | Load 0x2,-0x2 00d4 e402 | | Load 0x2,0x2 00d5 01de | | Execute Vector,Not_Equal 00d6 6805 |h | Jump_Zero 0xdc 00d7 e403 | | Load 0x2,0x3 00d8 e001 | | Load 0x0,0x1 00d9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00da e001 | | Load 0x0,0x1 00db 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00dc e001 | | Load 0x0,0x1 00dd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00de 00cc | | Action Pop_Block 00df 7f8a | | Jump 0x6a 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; STRING TABLE 00e0 ; -------------------------------------------------------------------------------------- 00e0 0032 | 2 | .STRTAB 0x0032->0x00f9 ; "!machine.sims" 00e1 003d | = | .STRTAB 0x003d->0x00ff ; " (Running this program from other than the default path is unsupported.)" 00e2 0084 | | .STRTAB 0x0084->0x0124 ; "!users." 00e3 0089 | | .STRTAB 0x0089->0x0127 ; ".detail." 00e4 008f | | .STRTAB 0x008f->0x012b ; ".database." 00e5 0097 | | .STRTAB 0x0097->0x0130 ; ".to_rational.receiving" 00e6 00ab | | .STRTAB 0x00ab->0x013b ; ".to_rational.internal_spr" 00e7 00c2 | | .STRTAB 0x00c2->0x0148 ; ".to_rational.spr." 00e8 00d1 | | .STRTAB 0x00d1->0x0150 ; ".master." 00e9 00d7 | | .STRTAB 0x00d7->0x0154 ; "SIMS - Rational Customer Support Information Management System" 00ea 0113 | | .STRTAB 0x0113->0x0173 ; "==============================================================" 00eb 014f | O | .STRTAB 0x014f->0x0192 ; "sims_options" 00ec 0159 | Y | .STRTAB 0x0159->0x0198 ; "Thanks. All Done." 00ed 016a | j | .STRTAB 0x016a->0x01a2 ; "Constraint error in ap_remote_top." 00ee 018a | | .STRTAB 0x018a->0x01b3 ; "Numeric error in ap_remote_top." 00ef 01a7 | | .STRTAB 0x01a7->0x01c2 ; "Program error in ap_remote_top." 00f0 01c4 | | .STRTAB 0x01c4->0x01d2 ; "Storage error in ap_remote_top." 00f1 01e1 | | .STRTAB 0x01e1->0x01e1 ; "Tasking error in ap_remote_top." 00f2 01fe | | .STRTAB 0x01fe->0x01f1 ; "Other Program error in ap_remote_top. " 00f3 0224 | $ | .STRTAB 0x0224->0x0205 ; "Exception occurred in ap_remote_top." 00f4 0246 | F | .STRTAB 0x0246->0x0217 ; "remote_params_master" 00f5 0258 | X | .STRTAB 0x0258->0x0221 ; " Please run this program with the standard sims default path," 00f6 0294 | | .STRTAB 0x0294->0x0240 ; " or contact your Rational response center for assistance in" 00f7 02ce | | .STRTAB 0x02ce->0x025e ; " determining if your SIMS site initialization has been completed." 00f8 030e | | .STREND 0x030e->0x027f 00f9 216d 6163 |!mac| .STRTAB_STRINGS 027f 0000 | | .XXX[0x1] 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 0000 | | .DEBUG4 0x0004,0x0000,0x120b,0x0000,0x0001,0x0000 0286 4c80 8008 |L | .XXX[0x17] 0288 0000 4000 | @ | 028a 0000 2b54 | +T| 028c 0000 1000 | | 028e 0000 1801 | | 0290 4000 0000 |@ | 0292 4000 0010 |@ | 0294 0000 0088 | | 0296 0000 0000 | | 0298 4000 0002 |@ | 029a 9000 0080 | | 029c 1e52 | R | 029d 0000 0000 | | .BLANK 0000[0x1b] 02b8 00c0 0002 | | .XXX[0x22] 02ba 7ad0 1800 |z | 02bc c4e0 0000 | | 02be 0156 8e30 | V 0| 02c0 1001 0000 | | 02c2 0800 0000 | | 02c4 056a 8000 | j | 02c6 0400 0000 | | 02c8 0500 2800 | ( | 02ca 0000 0800 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5200 | R | 02d4 0020 03ca | | 02d6 4a00 0020 |J | 02d8 03ca 5000 | P | 02da 0000 0000 | | .BLANK 0000[0x17] 02f1 0018 0000 | | .XXX[0x3] 02f3 4f58 |OX | 02f4 0000 0000 | | .BLANK 0000[0xd] 0301 0020 0500 | | .XXX[0xc] 0303 0000 0000 | | 0305 0000 4000 | @ | 0307 0002 2000 | | 0309 0000 0100 | | 030b 0000 0a00 | | 030d 0000 0000 | | .BLANK 0000[0x2d] 033a 0004 00a0 | | .XXX[0xc] 033c 0000 0000 | | 033e 0000 0800 | | 0340 0000 4400 | D | 0342 0000 0020 | | 0344 0000 0140 | @| 0346 0000 0000 | | .BLANK 0000[0x2e] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]