|
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 02b8 | | .CONST 0x02b8 ; 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 0096 | | .CONST 0x0096 ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b 0092 0108 | | Action Push_String_Extended,0x108 ; "!machine.sims" 001d 0092 0109 | | Action Push_String_Extended,0x109 ; " (Running this program from other than the default path is unsupported.)" 001f 029f 00cb | | Declare_Subprogram INIT_00c8,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 010a | | Action Push_String_Extended,0x10a ; "!users." 0027 0092 010b | | Action Push_String_Extended,0x10b ; ".detail." 0029 0092 010c | | Action Push_String_Extended,0x10c ; ".database." 002b 0092 010d | | Action Push_String_Extended,0x10d ; ".to_rational.receiving" 002d 0092 010e | | Action Push_String_Extended,0x10e ; ".to_rational.internal_spr" 002f 0092 010f | | Action Push_String_Extended,0x10f ; ".to_rational.spr." 0031 0092 0110 | | Action Push_String_Extended,0x110 ; ".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 0111 | | Action Push_String_Extended,0x111 ; "SIMS - Rational Customer Support Request/Problem Reporting." 003a e001 | | Load 0x0,0x1 003b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 003c 4800 |H | Short_Literal 0x0 003d 4802 |H | Short_Literal 0x2 003e 0092 0112 | | Action Push_String_Extended,0x112 ; "===========================================================" 0040 e001 | | Load 0x0,0x1 0041 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0042 e003 | | Load 0x0,0x3 0043 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0044 8404 | | Call 0x2,0x4 0045 49d4 |I | Short_Literal 0x1d4 0046 49d2 |I | Short_Literal 0x1d2 0047 49c8 |I | Short_Literal 0x1c8 0048 49ce |I | Short_Literal 0x1ce 0049 49cd |I | Short_Literal 0x1cd 004a 49cc |I | Short_Literal 0x1cc 004b 49cb |I | Short_Literal 0x1cb 004c e002 | | Load 0x0,0x2 004d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 004e 49cf |I | Short_Literal 0x1cf 004f 49ca |I | Short_Literal 0x1ca 0050 49c9 |I | Short_Literal 0x1c9 0051 4801 |H | Short_Literal 0x1 0052 49d6 |I | Short_Literal 0x1d6 0053 49c3 |I | Short_Literal 0x1c3 0054 e002 | | Load 0x0,0x2 0055 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0056 0092 0113 | | Action Push_String_Extended,0x113 ; "sims_options" 0058 e5ff | | Load 0x2,-0x1 0059 e002 | | Load 0x0,0x2 005a 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 005b 4801 |H | Short_Literal 0x1 005c 4801 |H | Short_Literal 0x1 005d 4801 |H | Short_Literal 0x1 005e 0092 0114 | | Action Push_String_Extended,0x114 ; "Quit" 0060 0092 0114 | | Action Push_String_Extended,0x114 ; "Quit" 0062 0092 0115 | | Action Push_String_Extended,0x115 ; "Are you sure?, " 0064 0092 0116 | | Action Push_String_Extended,0x116 ; "u" 0066 49d3 |I | Short_Literal 0x1d3 0067 e002 | | Load 0x0,0x2 0068 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0069 0337 | 7 | Declare_Variable Array 006a 49ce |I | Short_Literal 0x1ce 006b 4801 |H | Short_Literal 0x1 006c e40e | | Load 0x2,0xe 006d 01d6 | | Execute Vector,Field_Write 006e 49d3 |I | Short_Literal 0x1d3 006f 4802 |H | Short_Literal 0x2 0070 e40e | | Load 0x2,0xe 0071 01d6 | | Execute Vector,Field_Write 0072 49d5 |I | Short_Literal 0x1d5 0073 4803 |H | Short_Literal 0x3 0074 e40e | | Load 0x2,0xe 0075 01d6 | | Execute Vector,Field_Write 0076 4864 |Hd | Short_Literal 0x64 0077 4804 |H | Short_Literal 0x4 0078 4800 |H | Short_Literal 0x0 0079 e410 | | Load 0x2,0x10 007a e40e | | Load 0x2,0xe 007b 01d6 | | Execute Vector,Field_Write 007c 3ffb |? | Loop_Increasing 0x78 007d e002 | | Load 0x0,0x2 007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007f 01c3 | | Execute Vector,Check_In_Type 0080 4801 |H | Short_Literal 0x1 0081 49cc |I | Short_Literal 0x1cc 0082 49ce |I | Short_Literal 0x1ce 0083 49d4 |I | Short_Literal 0x1d4 0084 49c8 |I | Short_Literal 0x1c8 0085 49c7 |I | Short_Literal 0x1c7 0086 4800 |H | Short_Literal 0x0 0087 4800 |H | Short_Literal 0x0 0088 4801 |H | Short_Literal 0x1 0089 49d6 |I | Short_Literal 0x1d6 008a 49c3 |I | Short_Literal 0x1c3 008b e002 | | Load 0x0,0x2 008c 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 008d 7800 |x | Jump 0x8e 008e 00ce | | Action Pop_Auxiliary 008f 4800 |H | Short_Literal 0x0 0090 4803 |H | Short_Literal 0x3 0091 0092 0117 | | Action Push_String_Extended,0x117 ; "Thanks. All Done. " 0093 e001 | | Load 0x0,0x1 0094 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0095 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0096 TRAP_0018: 0096 010e | | Execute Exception,Is_Constraint_Error 0097 6805 |h | Jump_Zero 0x9d 0098 0092 0118 | | Action Push_String_Extended,0x118 ; "Constraint error in ap_remote_topx." 009a e001 | | Load 0x0,0x1 009b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 009c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 009d 010d | | Execute Exception,Is_Numeric_Error 009e 6805 |h | Jump_Zero 0xa4 009f 0092 0119 | | Action Push_String_Extended,0x119 ; "Numeric error in ap_remote_topx." 00a1 e001 | | Load 0x0,0x1 00a2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a4 010c | | Execute Exception,Is_Program_Error 00a5 6805 |h | Jump_Zero 0xab 00a6 0092 011a | | Action Push_String_Extended,0x11a ; "Program error in ap_remote_topx." 00a8 e001 | | Load 0x0,0x1 00a9 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ab 010b | | Execute Exception,Is_Storage_Error 00ac 6805 |h | Jump_Zero 0xb2 00ad 0092 011b | | Action Push_String_Extended,0x11b ; "Storage error in ap_remote_topx." 00af e001 | | Load 0x0,0x1 00b0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b2 010a | | Execute Exception,Is_Tasking_Error 00b3 6805 |h | Jump_Zero 0xb9 00b4 0092 011c | | Action Push_String_Extended,0x11c ; "Tasking error in ap_remote_topx." 00b6 e001 | | Load 0x0,0x1 00b7 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b9 0092 011d | | Action Push_String_Extended,0x11d ; "Other Program error in ap_remote_topx. " 00bb e001 | | Load 0x0,0x1 00bc 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00bd 0092 011e | | Action Push_String_Extended,0x11e ; "Exception occurred in ap_remote_topx." 00bf e001 | | Load 0x0,0x1 00c0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00c1 e001 | | Load 0x0,0x1 00c2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 00d9 | | .CONST 0x00d9 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 4801 |H | Short_Literal 0x1 00cc 4801 |H | Short_Literal 0x1 00cd e004 | | Load 0x0,0x4 00ce 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00cf e004 | | Load 0x0,0x4 00d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d1 01cf | | Execute Vector,Slice_Read 00d2 0092 011f | | Action Push_String_Extended,0x11f ; "remote_params_master" 00d4 01cc | | Execute Vector,Catenate 00d5 4801 |H | Short_Literal 0x1 00d6 e002 | | Load 0x0,0x2 00d7 1867 | g | Execute Package,Field_Execute,Field_Number 0x67 00d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d9 TRAP_00c8: 00d9 0007 | | Action Break_Optional 00da e001 | | Load 0x0,0x1 00db 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00dc 0092 0120 | | Action Push_String_Extended,0x120 ; " Please run this program with the standard sims default path," 00de e001 | | Load 0x0,0x1 00df 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00e0 e001 | | Load 0x0,0x1 00e1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00e2 0092 0121 | !| Action Push_String_Extended,0x121 ; " or contact your Rational response center for assistance in" 00e4 e001 | | Load 0x0,0x1 00e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00e6 e001 | | Load 0x0,0x1 00e7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00e8 0092 0122 | "| Action Push_String_Extended,0x122 ; " determining if your SIMS site initialization has been completed." 00ea e001 | | Load 0x0,0x1 00eb 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ec e001 | | Load 0x0,0x1 00ed 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ee e5fe | | Load 0x2,-0x2 00ef 01db | | Execute Vector,Length 00f0 0e0d | | Execute_Immediate Not_Equal,0xd 00f1 6805 |h | Jump_Zero 0xf7 00f2 e403 | | Load 0x2,0x3 00f3 e001 | | Load 0x0,0x1 00f4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00f5 e001 | | Load 0x0,0x1 00f6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f7 e5fe | | Load 0x2,-0x2 00f8 01db | | Execute Vector,Length 00f9 0f0d | | Execute_Immediate Equal,0xd 00fa 6809 |h | Jump_Zero 0x104 00fb e5fe | | Load 0x2,-0x2 00fc e402 | | Load 0x2,0x2 00fd 01de | | Execute Vector,Not_Equal 00fe 6805 |h | Jump_Zero 0x104 00ff e403 | | Load 0x2,0x3 0100 e001 | | Load 0x0,0x1 0101 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0102 e001 | | Load 0x0,0x1 0103 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0104 e001 | | Load 0x0,0x1 0105 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0106 00cc | | Action Pop_Block 0107 7f86 | | Jump 0x8e 0108 ; -------------------------------------------------------------------------------------- 0108 ; STRING TABLE 0108 ; -------------------------------------------------------------------------------------- 0108 0038 | 8 | .STRTAB 0x0038->0x0124 ; "!machine.sims" 0109 0043 | C | .STRTAB 0x0043->0x012a ; " (Running this program from other than the default path is unsupported.)" 010a 008a | | .STRTAB 0x008a->0x014f ; "!users." 010b 008f | | .STRTAB 0x008f->0x0152 ; ".detail." 010c 0095 | | .STRTAB 0x0095->0x0156 ; ".database." 010d 009d | | .STRTAB 0x009d->0x015b ; ".to_rational.receiving" 010e 00b1 | | .STRTAB 0x00b1->0x0166 ; ".to_rational.internal_spr" 010f 00c8 | | .STRTAB 0x00c8->0x0173 ; ".to_rational.spr." 0110 00d7 | | .STRTAB 0x00d7->0x017b ; ".master." 0111 00dd | | .STRTAB 0x00dd->0x017f ; "SIMS - Rational Customer Support Request/Problem Reporting." 0112 0116 | | .STRTAB 0x0116->0x019d ; "===========================================================" 0113 014f | O | .STRTAB 0x014f->0x01ba ; "sims_options" 0114 0159 | Y | .STRTAB 0x0159->0x01c0 ; "Quit" 0115 015b | [ | .STRTAB 0x015b->0x01c2 ; "Are you sure?, " 0116 0168 | h | .STRTAB 0x0168->0x01ca ; "u" 0117 0167 | g | .STRTAB 0x0167->0x01ca ; "Thanks. All Done. " 0118 0178 | x | .STRTAB 0x0178->0x01d4 ; "Constraint error in ap_remote_topx." 0119 0199 | | .STRTAB 0x0199->0x01e5 ; "Numeric error in ap_remote_topx." 011a 01b7 | | .STRTAB 0x01b7->0x01f5 ; "Program error in ap_remote_topx." 011b 01d5 | | .STRTAB 0x01d5->0x0205 ; "Storage error in ap_remote_topx." 011c 01f3 | | .STRTAB 0x01f3->0x0215 ; "Tasking error in ap_remote_topx." 011d 0211 | | .STRTAB 0x0211->0x0225 ; "Other Program error in ap_remote_topx. " 011e 0238 | 8 | .STRTAB 0x0238->0x023a ; "Exception occurred in ap_remote_topx." 011f 025b | [ | .STRTAB 0x025b->0x024c ; "remote_params_master" 0120 026d | m | .STRTAB 0x026d->0x0256 ; " Please run this program with the standard sims default path," 0121 02a9 | | .STRTAB 0x02a9->0x0275 ; " or contact your Rational response center for assistance in" 0122 02e3 | | .STRTAB 0x02e3->0x0293 ; " determining if your SIMS site initialization has been completed." 0123 0323 | # | .STREND 0x0323->0x02b4 0124 216d 6163 |!mac| .STRTAB_STRINGS 02b5 0000 0000 | | .XXX[0x3] 02b7 0000 | | 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug Table 02b8 ; -------------------------------------------------------------------------------------- 02b8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x120c,0x0000,0x0001,0x0000 02be 0000 0000 | | .BLANK 0000[0x142]