|
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]