|
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_e2acbc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0190 | | .CONST 0x0190 ; 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 0043 | C | .CONST 0x0043 ; Address of begin 0009 00a2 | | .CONST 0x00a2 ; Address of exception handler 000a 000c | | .CONST 0x000c ; Number of locals 000b INIT_0008: 000b e013 | | Load 0x0,0x13 000c 180e | | Execute Package,Field_Execute,Field_Number 0xe 000d 00db | | Load_Top At_Offset_3 000e e01b | | Load 0x0,0x1b 000f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0010 e013 | | Load 0x0,0x13 0011 180e | | Execute Package,Field_Execute,Field_Number 0xe 0012 e5ff | | Load 0x2,-0x1 0013 e01b | | Load 0x0,0x1b 0014 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0015 e013 | | Load 0x0,0x13 0016 180e | | Execute Package,Field_Execute,Field_Number 0xe 0017 e5ff | | Load 0x2,-0x1 0018 e01b | | Load 0x0,0x1b 0019 1815 | | Execute Package,Field_Execute,Field_Number 0x15 001a 4801 |H | Short_Literal 0x1 001b 00db | | Load_Top At_Offset_3 001c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 001d e402 | | Load 0x2,0x2 001e 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 001f 01cf | | Execute Vector,Slice_Read 0020 0007 | | Action Break_Optional 0021 4801 |H | Short_Literal 0x1 0022 00db | | Load_Top At_Offset_3 0023 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0024 e403 | | Load 0x2,0x3 0025 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0026 01cf | | Execute Vector,Slice_Read 0027 0007 | | Action Break_Optional 0028 4801 |H | Short_Literal 0x1 0029 00db | | Load_Top At_Offset_3 002a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 002b e404 | | Load 0x2,0x4 002c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 002d 01cf | | Execute Vector,Slice_Read 002e 0007 | | Action Break_Optional 002f e010 | | Load 0x0,0x10 0030 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0031 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0032 02c7 | | Declare_Variable Any 0033 00d8 | | Load_Top At_Offset_0 0034 1c00 | | Execute_Immediate Run_Utility,0x0 0035 00e1 | | Load_Encached Boolean_Cache 0036 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0037 e010 | | Load 0x0,0x10 0038 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0039 02c7 | | Declare_Variable Any 003a e5ff | | Load 0x2,-0x1 003b e011 | | Load 0x0,0x11 003c 180e | | Execute Package,Field_Execute,Field_Number 0xe 003d a40a | | Store_Unchecked 0x2,0xa 003e 00d8 | | Load_Top At_Offset_0 003f e012 | | Load 0x0,0x12 0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0041 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0043 BODY_0008: 0043 e5ff | | Load 0x2,-0x1 0044 8231 | 1 | Call 0x1,0x31 0045 e012 | | Load 0x0,0x12 0046 180f | | Execute Package,Field_Execute,Field_Number 0xf 0047 6811 |h | Jump_Zero 0x59 0048 e013 | | Load 0x0,0x13 0049 180e | | Execute Package,Field_Execute,Field_Number 0xe 004a 4802 |H | Short_Literal 0x2 004b 0092 00c8 | | Action Push_String_Extended,0xc8 ; "Not executing Destroy_View_Preprocess. " 004d e5ff | | Load 0x2,-0x1 004e 01cc | | Execute Vector,Catenate 004f 0092 00c9 | | Action Push_String_Extended,0xc9 ; " is a Host_Only View. " 0051 01cc | | Execute Vector,Catenate 0052 e014 | | Load 0x0,0x14 0053 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0054 e5fe | | Load 0x2,-0x2 0055 e00f | | Load 0x0,0xf 0056 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0057 c5fe | | Store 0x2,-0x2 0058 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0059 e013 | | Load 0x0,0x13 005a 180e | | Execute Package,Field_Execute,Field_Number 0xe 005b 4802 |H | Short_Literal 0x2 005c 0092 00ca | | Action Push_String_Extended,0xca ; "Executing Destroy_View_Preprocess" 005e e014 | | Load 0x0,0x14 005f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0060 e5fe | | Load 0x2,-0x2 0061 e408 | | Load 0x2,0x8 0062 e5ff | | Load 0x2,-0x1 0063 8227 | ' | Call 0x1,0x27 0064 c408 | | Store 0x2,0x8 0065 c5fe | | Store 0x2,-0x2 0066 e405 | | Load 0x2,0x5 0067 01db | | Execute Vector,Length 0068 6803 |h | Jump_Zero 0x6c 0069 e406 | | Load 0x2,0x6 006a 01db | | Execute Vector,Length 006b 700c |p | Jump_Nonzero 0x78 006c 840c | | Call 0x2,0xc 006d e5fe | | Load 0x2,-0x2 006e 4802 |H | Short_Literal 0x2 006f 0092 00cb | | Action Push_String_Extended,0xcb ; "Insufficient remote library information." 0071 0092 00cc | | Action Push_String_Extended,0xcc ; "Remote_Operation_Error" 0073 8225 | % | Call 0x1,0x25 0074 c5fe | | Store 0x2,-0x2 0075 e408 | | Load 0x2,0x8 0076 8228 | ( | Call 0x1,0x28 0077 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0078 00e1 | | Load_Encached Boolean_Cache 0079 e5fe | | Load 0x2,-0x2 007a 00db | | Load_Top At_Offset_3 007b e406 | | Load 0x2,0x6 007c e405 | | Load 0x2,0x5 007d 822c | , | Call 0x1,0x2c 007e c5fe | | Store 0x2,-0x2 007f c409 | | Store 0x2,0x9 0080 00db | | Load_Top At_Offset_3 0081 6807 |h | Jump_Zero 0x89 0082 e5fe | | Load 0x2,-0x2 0083 00da | | Load_Top At_Offset_2 0084 e405 | | Load 0x2,0x5 0085 e406 | | Load 0x2,0x6 0086 822a | * | Call 0x1,0x2a 0087 c5fe | | Store 0x2,-0x2 0088 7816 |x | Jump 0x9f 0089 e013 | | Load 0x0,0x13 008a 180e | | Execute Package,Field_Execute,Field_Number 0xe 008b 4805 |H | Short_Literal 0x5 008c 0092 00cd | | Action Push_String_Extended,0xcd ; "The remote directory, " 008e e406 | | Load 0x2,0x6 008f 01cc | | Execute Vector,Catenate 0090 0092 00ce | | Action Push_String_Extended,0xce ; " does not exist on machine, " 0092 01cc | | Execute Vector,Catenate 0093 e405 | | Load 0x2,0x5 0094 01cc | | Execute Vector,Catenate 0095 e014 | | Load 0x0,0x14 0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0097 e5fe | | Load 0x2,-0x2 0098 4802 |H | Short_Literal 0x2 0099 0092 00cf | | Action Push_String_Extended,0xcf ; "Unable to destroy remote directory/program library." 009b 0092 00cc | | Action Push_String_Extended,0xcc ; "Remote_Operation_Error" 009d 8225 | % | Call 0x1,0x25 009e c5fe | | Store 0x2,-0x2 009f e408 | | Load 0x2,0x8 00a0 8228 | ( | Call 0x1,0x28 00a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a2 TRAP_0008: 00a2 0007 | | Action Break_Optional 00a3 e408 | | Load 0x2,0x8 00a4 8228 | ( | Call 0x1,0x28 00a5 e5fe | | Load 0x2,-0x2 00a6 0092 00d0 | | Action Push_String_Extended,0xd0 ; "Destroy_View_Preprocess" 00a8 8226 | & | Call 0x1,0x26 00a9 c5fe | | Store 0x2,-0x2 00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e405 | | Load 0x2,0x5 00b4 01db | | Execute Vector,Length 00b5 7007 |p | Jump_Nonzero 0xbd 00b6 e013 | | Load 0x0,0x13 00b7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b8 4806 |H | Short_Literal 0x6 00b9 0092 00d1 | | Action Push_String_Extended,0xd1 ; "A null remote machine name was provided." 00bb e014 | | Load 0x0,0x14 00bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bd e406 | | Load 0x2,0x6 00be 01db | | Execute Vector,Length 00bf 7007 |p | Jump_Nonzero 0xc7 00c0 e013 | | Load 0x0,0x13 00c1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c2 4806 |H | Short_Literal 0x6 00c3 0092 00d2 | | Action Push_String_Extended,0xd2 ; "A null remote directory name was provided." 00c5 e014 | | Load 0x0,0x14 00c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; STRING TABLE 00c8 ; -------------------------------------------------------------------------------------- 00c8 0018 | | .STRTAB 0x0018->0x00d4 ; "Not executing Destroy_View_Preprocess. " 00c9 003e | > | .STRTAB 0x003e->0x00e8 ; " is a Host_Only View. " 00ca 0053 | S | .STRTAB 0x0053->0x00f3 ; "Executing Destroy_View_Preprocess" 00cb 0072 | r | .STRTAB 0x0072->0x0104 ; "Insufficient remote library information." 00cc 0098 | | .STRTAB 0x0098->0x0118 ; "Remote_Operation_Error" 00cd 00ac | | .STRTAB 0x00ac->0x0123 ; "The remote directory, " 00ce 00c0 | | .STRTAB 0x00c0->0x012e ; " does not exist on machine, " 00cf 00da | | .STRTAB 0x00da->0x013c ; "Unable to destroy remote directory/program library." 00d0 010b | | .STRTAB 0x010b->0x0155 ; "Destroy_View_Preprocess" 00d1 0120 | | .STRTAB 0x0120->0x0161 ; "A null remote machine name was provided." 00d2 0146 | F | .STRTAB 0x0146->0x0175 ; "A null remote directory name was provided." 00d3 016e | n | .STREND 0x016e->0x018a 00d4 4e6f 7420 |Not | .STRTAB_STRINGS 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0004 0003 | | .DEBUG4 0x0004,0x0003,0x4678,0x0000,0x0001,0x0002 0196 000b 019e | | .DBG4T 0x000b,0x019e,0x0001,0x0000 019a 00b3 01be | | .DBG4T 0x00b3,0x01be,0x0001,0x0000 019e ; -------------------------------------------------------------------------------------- 019e ; Debug chain 019e ; -------------------------------------------------------------------------------------- 019e 000b 0013 | | .DBGLEN 0x000b,0x0013 01a0 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x0021,0x0028,0x002f,0x0035,0x0037,0x003e,0x0041,0x0043,0x0048,0x0054,0x0058,0x0059,0x0060,0x0066,0x006c,0x006d,0x0075,0x0077,0x0078,0x0080,0x0082,0x0089,0x0097,0x009f,0x00a3,0x00a5 01be ; -------------------------------------------------------------------------------------- 01be ; Debug chain 01be ; -------------------------------------------------------------------------------------- 01be 0000 0004 | | .DBGLEN 0x0000,0x0004 01c0 00b3 00b6 | | .DBGLNO 0x00b3,0x00b6,0x00bd,0x00c0 01c4 0000 0000 | | .BLANK 0000[0x3c]