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