|
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_6a18da
└─⟦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 01f8 | | .CONST 0x01f8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003d | = | .CONST 0x003d ; Address of begin
0009 00fa | | .CONST 0x00fa ; Address of exception handler
000a 000c | | .CONST 0x000c ; Number of locals
000b INIT_0008:
000b 00ec | | Load_Encached Diana_Tree_Cache
000c 02c7 | | Declare_Variable Any
000d 00db | | Load_Top At_Offset_3
000e e009 | | Load 0x0,0x9
000f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0010 a402 | | Store_Unchecked 0x2,0x2
0011 e00d | | Load 0x0,0xd
0012 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0013 02ff | | Declare_Variable Variant_Record
0014 00d8 | | Load_Top At_Offset_0
0015 1c00 | | Execute_Immediate Run_Utility,0x0
0016 e00e | | Load 0x0,0xe
0017 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0018 02ff | | Declare_Variable Variant_Record
0019 00d8 | | Load_Top At_Offset_0
001a 1c00 | | Execute_Immediate Run_Utility,0x0
001b e00b | | Load 0x0,0xb
001c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e023 | # | Load 0x0,0x23
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 02ff | | Declare_Variable Variant_Record
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e024 | $ | Load 0x0,0x24
0026 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0027 02c7 | | Declare_Variable Any
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a e00f | | Load 0x0,0xf
002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002c 02c7 | | Declare_Variable Any
002d e00c | | Load 0x0,0xc
002e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
002f e00f | | Load 0x0,0xf
0030 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0031 a408 | | Store_Unchecked 0x2,0x8
0032 e010 | | Load 0x0,0x10
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 e00e | | Load 0x0,0xe
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 e008 | | Load 0x0,0x8
0037 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0038 02c7 | | Declare_Variable Any
0039 00d8 | | Load_Top At_Offset_0
003a 1c00 | | Execute_Immediate Run_Utility,0x0
003b 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
003d BODY_0008:
003d 4800 |H | Short_Literal 0x0
003e a5fe | | Store_Unchecked 0x2,-0x2
003f 0092 012d | -| Action Push_String_Extended,0x12d ; "Standard package does not exist"
0041 e402 | | Load 0x2,0x2
0042 021d | | Execute Heap_Access,Is_Null
0043 0f00 | | Execute_Immediate Equal,0x0
0044 840c | | Call 0x2,0xc
0045 e010 | | Load 0x0,0x10
0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0047 e403 | | Load 0x2,0x3
0048 e5ff | | Load 0x2,-0x1
0049 e009 | | Load 0x0,0x9
004a 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
004b e5ff | | Load 0x2,-0x1
004c e009 | | Load 0x0,0x9
004d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
004e e00e | | Load 0x0,0xe
004f 1b40 | @ | Execute Package,Field_Read,Field_Number 0x40
0050 180d | | Execute Package,Field_Execute,Field_Number 0xd
0051 e00d | | Load 0x0,0xd
0052 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0053 00d1 | | Pop_Control Pop_Count_1
0054 c409 | | Store 0x2,0x9
0055 0092 012e | .| Action Push_String_Extended,0x12e ; "DM.Get_Child"
0057 e409 | | Load 0x2,0x9
0058 0f00 | | Execute_Immediate Equal,0x0
0059 840c | | Call 0x2,0xc
005a e010 | | Load 0x0,0x10
005b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005c e00f | | Load 0x0,0xf
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e 60bd |` | Indirect_Literal Discrete,0x11c,{0x00000000, 0x00028000}
005f 4804 |H | Short_Literal 0x4
0060 e403 | | Load 0x2,0x3
0061 e00d | | Load 0x0,0xd
0062 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0063 c409 | | Store 0x2,0x9
0064 0092 012f | /| Action Push_String_Extended,0x12f ; "DM.Set_Unit_State"
0066 e409 | | Load 0x2,0x9
0067 0f00 | | Execute_Immediate Equal,0x0
0068 840c | | Call 0x2,0xc
0069 e00e | | Load 0x0,0xe
006a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
006b e404 | | Load 0x2,0x4
006c e402 | | Load 0x2,0x2
006d e00e | | Load 0x0,0xe
006e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
006f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0070 00d1 | | Pop_Control Pop_Count_1
0071 005b | [ | Store_Top Discrete,At_Offset_3
0072 0092 0130 | 0| Action Push_String_Extended,0x130 ; "Ada version for standard package does not exist"
0074 00db | | Load_Top At_Offset_3
0075 0f00 | | Execute_Immediate Equal,0x0
0076 840c | | Call 0x2,0xc
0077 e010 | | Load 0x0,0x10
0078 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0079 e407 | | Load 0x2,0x7
007a 0120 | | Execute Any,Is_Value
007b 6803 |h | Jump_Zero 0x7f
007c e024 | $ | Load 0x0,0x24
007d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
007e 7801 |x | Jump 0x80
007f e407 | | Load 0x2,0x7
0080 e406 | | Load 0x2,0x6
0081 4800 |H | Short_Literal 0x0
0082 e023 | # | Load 0x0,0x23
0083 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0084 4800 |H | Short_Literal 0x0
0085 4800 |H | Short_Literal 0x0
0086 4800 |H | Short_Literal 0x0
0087 e020 | | Load 0x0,0x20
0088 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0089 e408 | | Load 0x2,0x8
008a e006 | | Load 0x0,0x6
008b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008c e007 | | Load 0x0,0x7
008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008e e024 | $ | Load 0x0,0x24
008f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0090 00d1 | | Pop_Control Pop_Count_1
0091 c407 | | Store 0x2,0x7
0092 c409 | | Store 0x2,0x9
0093 0092 0131 | 1| Action Push_String_Extended,0x131 ; "Unable to create image object for standard package"
0095 e409 | | Load 0x2,0x9
0096 0f00 | | Execute_Immediate Equal,0x0
0097 840c | | Call 0x2,0xc
0098 e010 | | Load 0x0,0x10
0099 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009a e405 | | Load 0x2,0x5
009b 0120 | | Execute Any,Is_Value
009c 6804 |h | Jump_Zero 0xa1
009d e00b | | Load 0x0,0xb
009e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 7801 |x | Jump 0xa2
00a1 e405 | | Load 0x2,0x5
00a2 e408 | | Load 0x2,0x8
00a3 4800 |H | Short_Literal 0x0
00a4 4803 |H | Short_Literal 0x3
00a5 e404 | | Load 0x2,0x4
00a6 e00b | | Load 0x0,0xb
00a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a8 0162 | b | Execute Variant_Record,Check_In_Type
00a9 e00b | | Load 0x0,0xb
00aa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ab c405 | | Store 0x2,0x5
00ac c409 | | Store 0x2,0x9
00ad 0092 0132 | 2| Action Push_String_Extended,0x132 ; "Unable to open ada unit for standard package"
00af e409 | | Load 0x2,0x9
00b0 0f00 | | Execute_Immediate Equal,0x0
00b1 840c | | Call 0x2,0xc
00b2 e407 | | Load 0x2,0x7
00b3 e006 | | Load 0x0,0x6
00b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b5 e007 | | Load 0x0,0x7
00b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b7 e025 | % | Load 0x0,0x25
00b8 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b9 e405 | | Load 0x2,0x5
00ba e00b | | Load 0x0,0xb
00bb 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00bc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00bd e026 | & | Load 0x0,0x26
00be 180d | | Execute Package,Field_Execute,Field_Number 0xd
00bf e010 | | Load 0x0,0x10
00c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c1 e407 | | Load 0x2,0x7
00c2 4800 |H | Short_Literal 0x0
00c3 e024 | $ | Load 0x0,0x24
00c4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c5 c407 | | Store 0x2,0x7
00c6 c409 | | Store 0x2,0x9
00c7 0092 0133 | 3| Action Push_String_Extended,0x133 ; "Unable to close image object for standard package"
00c9 e409 | | Load 0x2,0x9
00ca 0f00 | | Execute_Immediate Equal,0x0
00cb 840c | | Call 0x2,0xc
00cc e010 | | Load 0x0,0x10
00cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ce 4800 |H | Short_Literal 0x0
00cf 4801 |H | Short_Literal 0x1
00d0 e408 | | Load 0x2,0x8
00d1 e404 | | Load 0x2,0x4
00d2 e00b | | Load 0x0,0xb
00d3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d4 0162 | b | Execute Variant_Record,Check_In_Type
00d5 e00b | | Load 0x0,0xb
00d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d7 c409 | | Store 0x2,0x9
00d8 0092 0134 | 4| Action Push_String_Extended,0x134 ; "Unable to close ada unit for standard package"
00da e409 | | Load 0x2,0x9
00db 0f00 | | Execute_Immediate Equal,0x0
00dc 840c | | Call 0x2,0xc
00dd e010 | | Load 0x0,0x10
00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00df 4800 |H | Short_Literal 0x0
00e0 4803 |H | Short_Literal 0x3
00e1 e408 | | Load 0x2,0x8
00e2 e406 | | Load 0x2,0x6
00e3 e404 | | Load 0x2,0x4
00e4 e00b | | Load 0x0,0xb
00e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e6 0162 | b | Execute Variant_Record,Check_In_Type
00e7 e00b | | Load 0x0,0xb
00e8 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
00e9 c409 | | Store 0x2,0x9
00ea 0092 0135 | 5| Action Push_String_Extended,0x135 ; "Unable to associate image with standard package"
00ec e409 | | Load 0x2,0x9
00ed 0f00 | | Execute_Immediate Equal,0x0
00ee 840c | | Call 0x2,0xc
00ef e408 | | Load 0x2,0x8
00f0 4801 |H | Short_Literal 0x1
00f1 4801 |H | Short_Literal 0x1
00f2 e00f | | Load 0x0,0xf
00f3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f4 c408 | | Store 0x2,0x8
00f5 00d9 | | Load_Top At_Offset_1
00f6 c5fd | | Store 0x2,-0x3
00f7 4801 |H | Short_Literal 0x1
00f8 a5fe | | Store_Unchecked 0x2,-0x2
00f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fa TRAP_0008:
00fa e027 | ' | Load 0x0,0x27
00fb 010f | | Execute Exception,Equal
00fc 6809 |h | Jump_Zero 0x106
00fd e408 | | Load 0x2,0x8
00fe 4801 |H | Short_Literal 0x1
00ff 4800 |H | Short_Literal 0x0
0100 e00f | | Load 0x0,0xf
0101 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0102 c408 | | Store 0x2,0x8
0103 00da | | Load_Top At_Offset_2
0104 c5fd | | Store 0x2,-0x3
0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0106 e408 | | Load 0x2,0x8
0107 4801 |H | Short_Literal 0x1
0108 4800 |H | Short_Literal 0x0
0109 e00f | | Load 0x0,0xf
010a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010b c408 | | Store 0x2,0x8
010c 00da | | Load_Top At_Offset_2
010d 4804 |H | Short_Literal 0x4
010e 0092 0136 | 6| Action Push_String_Extended,0x136 ; "Unhandled exception occurred: "
0110 4800 |H | Short_Literal 0x0
0111 4801 |H | Short_Literal 0x1
0112 e022 | " | Load 0x0,0x22
0113 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0114 01cc | | Execute Vector,Catenate
0115 8217 | | Call 0x1,0x17
0116 c40b | | Store 0x2,0xb
0117 00da | | Load_Top At_Offset_2
0118 c5fd | | Store 0x2,-0x3
0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011a 0000 0000 | | .XXX[0x2]
011c 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 7007 |p | Jump_Nonzero 0x12c
0125 e40b | | Load 0x2,0xb
0126 4802 |H | Short_Literal 0x2
0127 e7fe | | Load 0x3,-0x2
0128 8217 | | Call 0x1,0x17
0129 c40b | | Store 0x2,0xb
012a e027 | ' | Load 0x0,0x27
012b 0257 | W | Execute Discrete,Raise
012c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012d ; --------------------------------------------------------------------------------------
012d ; STRING TABLE
012d ; --------------------------------------------------------------------------------------
012d 0016 | | .STRTAB 0x0016->0x0138 ; "Standard package does not exist"
012e 0033 | 3 | .STRTAB 0x0033->0x0147 ; "DM.Get_Child"
012f 003d | = | .STRTAB 0x003d->0x014d ; "DM.Set_Unit_State"
0130 004c | L | .STRTAB 0x004c->0x0156 ; "Ada version for standard package does not exist"
0131 0079 | y | .STRTAB 0x0079->0x016d ; "Unable to create image object for standard package"
0132 00a9 | | .STRTAB 0x00a9->0x0186 ; "Unable to open ada unit for standard package"
0133 00d3 | | .STRTAB 0x00d3->0x019c ; "Unable to close image object for standard package"
0134 0102 | | .STRTAB 0x0102->0x01b5 ; "Unable to close ada unit for standard package"
0135 012d | - | .STRTAB 0x012d->0x01cb ; "Unable to associate image with standard package"
0136 015a | Z | .STRTAB 0x015a->0x01e3 ; "Unhandled exception occurred: "
0137 0176 | v | .STREND 0x0176->0x01f2
0138 5374 616e |Stan| .STRTAB_STRINGS
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 000c | | .DEBUG4 0x0004,0x000c,0x001e,0x0000,0x0001,0x0000
01fe 0000 1bb3 | | .XXX[0x2]