|
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 0120 | | .CONST 0x0120 ; 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 003d | = | .CONST 0x003d ; Address of begin 0009 006f | o | .CONST 0x006f ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b e013 | | Load 0x0,0x13 000c 180e | | Execute Package,Field_Execute,Field_Number 0xe 000d e5fe | | Load 0x2,-0x2 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 e5fe | | Load 0x2,-0x2 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 e5fe | | Load 0x2,-0x2 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 e5fe | | Load 0x2,-0x2 0036 e011 | | Load 0x0,0x11 0037 180e | | Execute Package,Field_Execute,Field_Number 0xe 0038 e010 | | Load 0x0,0x10 0039 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 003a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 003b 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 003d BODY_0008: 003d 00d9 | | Load_Top At_Offset_1 003e 8231 | 1 | Call 0x1,0x31 003f e012 | | Load 0x0,0x12 0040 180f | | Execute Package,Field_Execute,Field_Number 0xf 0041 6811 |h | Jump_Zero 0x53 0042 e013 | | Load 0x0,0x13 0043 180e | | Execute Package,Field_Execute,Field_Number 0xe 0044 4802 |H | Short_Literal 0x2 0045 0092 0090 | | Action Push_String_Extended,0x90 ; "Not executing Import_Postprocess. " 0047 e409 | | Load 0x2,0x9 0048 01cc | | Execute Vector,Catenate 0049 0092 0091 | | Action Push_String_Extended,0x91 ; " is a Host_Only View. " 004b 01cc | | Execute Vector,Catenate 004c e014 | | Load 0x0,0x14 004d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004e e5fd | | Load 0x2,-0x3 004f e00f | | Load 0x0,0xf 0050 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0051 c5fd | | Store 0x2,-0x3 0052 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0053 e013 | | Load 0x0,0x13 0054 180e | | Execute Package,Field_Execute,Field_Number 0xe 0055 4802 |H | Short_Literal 0x2 0056 0092 0092 | | Action Push_String_Extended,0x92 ; "Executing Import_Postprocess" 0058 e014 | | Load 0x0,0x14 0059 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005a e405 | | Load 0x2,0x5 005b 01db | | Execute Vector,Length 005c 6803 |h | Jump_Zero 0x60 005d e406 | | Load 0x2,0x6 005e 01db | | Execute Vector,Length 005f 700a |p | Jump_Nonzero 0x6a 0060 840a | | Call 0x2,0xa 0061 e5fd | | Load 0x2,-0x3 0062 4802 |H | Short_Literal 0x2 0063 0092 0093 | | Action Push_String_Extended,0x93 ; "Insufficient remote program library information." 0065 0092 0094 | | Action Push_String_Extended,0x94 ; "Remote_Operation_Error" 0067 8225 | % | Call 0x1,0x25 0068 c5fd | | Store 0x2,-0x3 0069 4503 |E | Exit_Suprogram New_Top_Offset 0x3 006a e5fd | | Load 0x2,-0x3 006b 00da | | Load_Top At_Offset_2 006c 8232 | 2 | Call 0x1,0x32 006d c5fd | | Store 0x2,-0x3 006e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 006f TRAP_0008: 006f 0007 | | Action Break_Optional 0070 e5fd | | Load 0x2,-0x3 0071 0092 0095 | | Action Push_String_Extended,0x95 ; "Import_Postprocess" 0073 8226 | & | Call 0x1,0x26 0074 c5fd | | Store 0x2,-0x3 0075 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e405 | | Load 0x2,0x5 007c 01db | | Execute Vector,Length 007d 7007 |p | Jump_Nonzero 0x85 007e e013 | | Load 0x0,0x13 007f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0080 4806 |H | Short_Literal 0x6 0081 0092 0096 | | Action Push_String_Extended,0x96 ; "A null remote machine name was provided." 0083 e014 | | Load 0x0,0x14 0084 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0085 e406 | | Load 0x2,0x6 0086 01db | | Execute Vector,Length 0087 7007 |p | Jump_Nonzero 0x8f 0088 e013 | | Load 0x0,0x13 0089 180e | | Execute Package,Field_Execute,Field_Number 0xe 008a 4806 |H | Short_Literal 0x6 008b 0092 0097 | | Action Push_String_Extended,0x97 ; "A null remote directory name was provided." 008d e014 | | Load 0x0,0x14 008e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0090 ; -------------------------------------------------------------------------------------- 0090 ; STRING TABLE 0090 ; -------------------------------------------------------------------------------------- 0090 0012 | | .STRTAB 0x0012->0x0099 ; "Not executing Import_Postprocess. " 0091 0033 | 3 | .STRTAB 0x0033->0x00aa ; " is a Host_Only View. " 0092 0048 | H | .STRTAB 0x0048->0x00b6 ; "Executing Import_Postprocess" 0093 0062 | b | .STRTAB 0x0062->0x00c4 ; "Insufficient remote program library information." 0094 0090 | | .STRTAB 0x0090->0x00dc ; "Remote_Operation_Error" 0095 00a4 | | .STRTAB 0x00a4->0x00e7 ; "Import_Postprocess" 0096 00b4 | | .STRTAB 0x00b4->0x00f0 ; "A null remote machine name was provided." 0097 00da | | .STRTAB 0x00da->0x0104 ; "A null remote directory name was provided." 0098 0102 | | .STREND 0x0102->0x0119 0099 4e6f 7420 |Not | .STRTAB_STRINGS 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0003 | | .DEBUG4 0x0004,0x0003,0x467c,0x0000,0x0001,0x0002 0126 000b 012e | .| .DBG4T 0x000b,0x012e,0x0001,0x0000 012a 007b 0144 | { D| .DBG4T 0x007b,0x0144,0x0001,0x0000 012e ; -------------------------------------------------------------------------------------- 012e ; Debug chain 012e ; -------------------------------------------------------------------------------------- 012e 0009 000b | | .DBGLEN 0x0009,0x000b 0130 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x0021,0x0028,0x002f,0x0035,0x003b,0x003d,0x0042,0x004e,0x0052,0x0053,0x005a,0x0060,0x0061,0x0069,0x006a,0x0070 0144 ; -------------------------------------------------------------------------------------- 0144 ; Debug chain 0144 ; -------------------------------------------------------------------------------------- 0144 0000 0004 | | .DBGLEN 0x0000,0x0004 0146 007b 007e | { ~| .DBGLNO 0x007b,0x007e,0x0085,0x0088 014a 0000 0000 | | .BLANK 0000[0xb6]