|
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_779ce4
└─⟦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 0150 | P | .CONST 0x0150 ; 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 8000 | | .CONST 0x8000 ; 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 0002 | | .CONST 0x0002 ; Number of locals 000b INIT_0008: 000b e012 | | Load 0x0,0x12 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 BODY_0008: 0010 00d8 | | Load_Top At_Offset_0 0011 00ea | | Load_Encached Null_String_Cache 0012 e7ff | | Load 0x3,-0x1 0013 4801 |H | Short_Literal 0x1 0014 e012 | | Load 0x0,0x12 0015 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0016 c602 | | Store 0x3,0x2 0017 0092 0072 | r| Action Push_String_Extended,0x72 ; "Script_Construction_Control_C => (" 0019 00d9 | | Load_Top At_Offset_1 001a e012 | | Load 0x0,0x12 001b 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 001c 0092 0073 | s| Action Push_String_Extended,0x73 ; " halt_conditions => (" 001e 00d9 | | Load_Top At_Offset_1 001f e012 | | Load 0x0,0x12 0020 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0021 0092 0074 | t| Action Push_String_Extended,0x74 ; " elapsed_time => false," 0023 00d9 | | Load_Top At_Offset_1 0024 e012 | | Load 0x0,0x12 0025 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0026 0092 0075 | u| Action Push_String_Extended,0x75 ; " cpu_time => false," 0028 00d9 | | Load_Top At_Offset_1 0029 e012 | | Load 0x0,0x12 002a 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 002b 0092 0076 | v| Action Push_String_Extended,0x76 ; " number_of_failures => false)," 002d 00d9 | | Load_Top At_Offset_1 002e e012 | | Load 0x0,0x12 002f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0030 0092 0077 | w| Action Push_String_Extended,0x77 ; " failure_status_set => (" 0032 00d9 | | Load_Top At_Offset_1 0033 e012 | | Load 0x0,0x12 0034 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0035 0092 0078 | x| Action Push_String_Extended,0x78 ; " fail => true," 0037 00d9 | | Load_Top At_Offset_1 0038 e012 | | Load 0x0,0x12 0039 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 003a 0092 0079 | y| Action Push_String_Extended,0x79 ; " fail_with_exception => true," 003c 00d9 | | Load_Top At_Offset_1 003d e012 | | Load 0x0,0x12 003e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 003f 0092 007a | z| Action Push_String_Extended,0x7a ; " timeout => false," 0041 00d9 | | Load_Top At_Offset_1 0042 e012 | | Load 0x0,0x12 0043 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0044 0092 007b | {| Action Push_String_Extended,0x7b ; " unknown => false)," 0046 00d9 | | Load_Top At_Offset_1 0047 e012 | | Load 0x0,0x12 0048 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0049 0092 007c | || Action Push_String_Extended,0x7c ; " termination_control => (" 004b 00d9 | | Load_Top At_Offset_1 004c e012 | | Load 0x0,0x12 004d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 004e 0092 007d | }| Action Push_String_Extended,0x7d ; " Control => duration_limit," 0050 00d9 | | Load_Top At_Offset_1 0051 e012 | | Load 0x0,0x12 0052 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0053 0092 007e | ~| Action Push_String_Extended,0x7e ; " time_control => max_cpu," 0055 00d9 | | Load_Top At_Offset_1 0056 e012 | | Load 0x0,0x12 0057 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0058 0092 007f | | Action Push_String_Extended,0x7f ; " max_cpu_limit => 5.0)," 005a 00d9 | | Load_Top At_Offset_1 005b e012 | | Load 0x0,0x12 005c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 005d 0092 0080 | | Action Push_String_Extended,0x80 ; " rci_test_script => false)" 005f 00d9 | | Load_Top At_Offset_1 0060 e012 | | Load 0x0,0x12 0061 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0062 00d8 | | Load_Top At_Offset_0 0063 e012 | | Load 0x0,0x12 0064 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0065 c602 | | Store 0x3,0x2 0066 e004 | | Load 0x0,0x4 0067 180e | | Execute Package,Field_Execute,Field_Number 0xe 0068 4803 |H | Short_Literal 0x3 0069 e7ff | | Load 0x3,-0x1 006a e005 | | Load 0x0,0x5 006b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 006c 0092 0081 | | Action Push_String_Extended,0x81 ; " created." 006e 01cc | | Execute Vector,Catenate 006f e006 | | Load 0x0,0x6 0070 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0071 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0072 ; -------------------------------------------------------------------------------------- 0072 ; STRING TABLE 0072 ; -------------------------------------------------------------------------------------- 0072 0022 | " | .STRTAB 0x0022->0x0083 ; "Script_Construction_Control_C => (" 0073 0042 | B | .STRTAB 0x0042->0x0094 ; " halt_conditions => (" 0074 0056 | V | .STRTAB 0x0056->0x009f ; " elapsed_time => false," 0075 006e | n | .STRTAB 0x006e->0x00ac ; " cpu_time => false," 0076 0082 | | .STRTAB 0x0082->0x00b7 ; " number_of_failures => false)," 0077 00a1 | | .STRTAB 0x00a1->0x00c7 ; " failure_status_set => (" 0078 00b8 | | .STRTAB 0x00b8->0x00d4 ; " fail => true," 0079 00c7 | | .STRTAB 0x00c7->0x00dc ; " fail_with_exception => true," 007a 00e5 | | .STRTAB 0x00e5->0x00ec ; " timeout => false," 007b 00f8 | | .STRTAB 0x00f8->0x00f7 ; " unknown => false)," 007c 010c | | .STRTAB 0x010c->0x0102 ; " termination_control => (" 007d 0124 | $ | .STRTAB 0x0124->0x010f ; " Control => duration_limit," 007e 0140 | @ | .STRTAB 0x0140->0x011e ; " time_control => max_cpu," 007f 015a | Z | .STRTAB 0x015a->0x012c ; " max_cpu_limit => 5.0)," 0080 0172 | r | .STRTAB 0x0172->0x0139 ; " rci_test_script => false)" 0081 018b | | .STRTAB 0x018b->0x0146 ; " created." 0082 0192 | | .STREND 0x0192->0x014b 0083 5363 7269 |Scri| .STRTAB_STRINGS 014b 0000 0000 | | .BLANK 0000[0x5] 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug Table 0150 ; -------------------------------------------------------------------------------------- 0150 0004 000a | | .DEBUG4 0x0004,0x000a,0x8fee,0x0000,0x0001,0x0000 0156 0000 0000 | | .BLANK 0000[0xaa]