|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0180 | | .CONST 0x0180 ; 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 000f | | .CONST 0x000f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0003 | | .CONST 0x0003 ; Number of locals
000b INIT_0008:
000b 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
000d 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
000f BODY_0008:
000f 0092 00e7 | | Action Push_String_Extended,0xe7 ; "The name of the object."
0011 e001 | | Load 0x0,0x1
0012 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0013 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0014 e7ff | | Load 0x3,-0x1
0015 e012 | | Load 0x0,0x12
0016 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0017 e012 | | Load 0x0,0x12
0018 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0019 e7fe | | Load 0x3,-0x2
001a e7ff | | Load 0x3,-0x1
001b e001 | | Load 0x0,0x1
001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
001e e010 | | Load 0x0,0x10
001f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0020 01cc | | Execute Vector,Catenate
0021 e40b | | Load 0x2,0xb
0022 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0023 e5fb | | Load 0x2,-0x5
0024 680e |h | Jump_Zero 0x33
0025 0092 00e8 | | Action Push_String_Extended,0xe8 ; "Class and subclass of this object."
0027 e001 | | Load 0x0,0x1
0028 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0029 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
002a e7ff | | Load 0x3,-0x1
002b e012 | | Load 0x0,0x12
002c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
002d e012 | | Load 0x0,0x12
002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002f e7ff | | Load 0x3,-0x1
0030 840c | | Call 0x2,0xc
0031 e40b | | Load 0x2,0xb
0032 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0033 e5fa | | Load 0x2,-0x6
0034 6816 |h | Jump_Zero 0x4b
0035 e7ff | | Load 0x3,-0x1
0036 e001 | | Load 0x0,0x1
0037 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0038 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0039 0f02 | | Execute_Immediate Equal,0x2
003a 6802 |h | Jump_Zero 0x3d
003b 8602 | | Call 0x3,0x2
003c 780e |x | Jump 0x4b
003d 0092 00e9 | | Action Push_String_Extended,0xe9 ; "There is no state associated with non-ada objects"
003f e001 | | Load 0x0,0x1
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0042 e7ff | | Load 0x3,-0x1
0043 e012 | | Load 0x0,0x12
0044 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0045 e012 | | Load 0x0,0x12
0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0047 0092 00ea | | Action Push_String_Extended,0xea ; " "
0049 e40b | | Load 0x2,0xb
004a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
004b e5f9 | | Load 0x2,-0x7
004c 6812 |h | Jump_Zero 0x5f
004d 0092 00eb | | Action Push_String_Extended,0xeb ; "Total size, in bytes, of this object."
004f e001 | | Load 0x0,0x1
0050 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0051 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0052 e7ff | | Load 0x3,-0x1
0053 e012 | | Load 0x0,0x12
0054 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0055 e012 | | Load 0x0,0x12
0056 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0057 e7ff | | Load 0x3,-0x1
0058 e001 | | Load 0x0,0x1
0059 1b14 | | Execute Package,Field_Read,Field_Number 0x14
005a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
005b 00e0 | | Load_Encached Standard_Cache
005c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005d e40b | | Load 0x2,0xb
005e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005f e5f8 | | Load 0x2,-0x8
0060 680e |h | Jump_Zero 0x6f
0061 0092 00ec | | Action Push_String_Extended,0xec ; "Indicates whether or not there are locks on this object.\x0dHit [EXPLAIN] to see those locks."
0063 e001 | | Load 0x0,0x1
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0066 e7ff | | Load 0x3,-0x1
0067 e012 | | Load 0x0,0x12
0068 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0069 e012 | | Load 0x0,0x12
006a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006b 0092 00ed | | Action Push_String_Extended,0xed ; "*locks*"
006d e40b | | Load 0x2,0xb
006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006f e5f7 | | Load 0x2,-0x9
0070 6801 |h | Jump_Zero 0x72
0071 8603 | | Call 0x3,0x3
0072 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0073 0000 0000 | | .BLANK 0000[0x5]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0084 | | .CONST 0x0084 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e7ff | | Load 0x3,-0x1
007c e001 | | Load 0x0,0x1
007d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
007e 180e | | Execute Package,Field_Execute,Field_Number 0xe
007f e001 | | Load 0x0,0x1
0080 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0081 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0082 011c | | Execute Any,Convert_Unchecked
0083 1c01 | | Execute_Immediate Run_Utility,0x1
0084 BODY_0078:
0084 0092 00ee | | Action Push_String_Extended,0xee ; "The compilation state of this unit: "
0086 00d9 | | Load_Top At_Offset_1
0087 01cc | | Execute Vector,Catenate
0088 e001 | | Load 0x0,0x1
0089 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
008b e7ff | | Load 0x3,-0x1
008c e012 | | Load 0x0,0x12
008d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
008e e012 | | Load 0x0,0x12
008f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0090 e802 | | Load 0x4,0x2
0091 01dd | | Execute Vector,First
0092 e802 | | Load 0x4,0x2
0093 01dd | | Execute Vector,First
0094 e802 | | Load 0x4,0x2
0095 01cf | | Execute Vector,Slice_Read
0096 e40b | | Load 0x2,0xb
0097 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0098 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ac | | .CONST 0x00ac ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0004 | | .CONST 0x0004 ; Number of locals
00a3 INIT_00a0:
00a3 e013 | | Load 0x0,0x13
00a4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a5 02c7 | | Declare_Variable Any
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 e013 | | Load 0x0,0x13
00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00aa 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
00ac BODY_00a0:
00ac e013 | | Load 0x0,0x13
00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ae 00db | | Load_Top At_Offset_3
00af 0120 | | Execute Any,Is_Value
00b0 6803 |h | Jump_Zero 0xb4
00b1 e013 | | Load 0x0,0x13
00b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b3 7801 |x | Jump 0xb5
00b4 00db | | Load_Top At_Offset_3
00b5 600e |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00004000}
00b6 e014 | | Load 0x0,0x14
00b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b8 e7ff | | Load 0x3,-0x1
00b9 e001 | | Load 0x0,0x1
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
00bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00bd c802 | | Store 0x4,0x2
00be 005a | Z | Store_Top Discrete,At_Offset_2
00bf 8804 | | Call 0x4,0x4
00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c1 0000 0000 | | .XXX[0x3]
00c3 0000 | |
00c4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00ce | | .CONST 0x00ce ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e802 | | Load 0x4,0x2
00cc e015 | | Load 0x0,0x15
00cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ce BODY_00c8:
00ce 00d8 | | Load_Top At_Offset_0
00cf e001 | | Load 0x0,0x1
00d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00d2 e7ff | | Load 0x3,-0x1
00d3 e012 | | Load 0x0,0x12
00d4 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00d5 e012 | | Load 0x0,0x12
00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d7 0092 00ef | | Action Push_String_Extended,0xef ; "<"
00d9 4820 |H | Short_Literal 0x20
00da ea02 | | Load 0x5,0x2
00db 8409 | | Call 0x2,0x9
00dc 00e0 | | Load_Encached Standard_Cache
00dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00de e010 | | Load 0x0,0x10
00df 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e0 01cc | | Execute Vector,Catenate
00e1 0092 00f0 | | Action Push_String_Extended,0xf0 ; ">"
00e3 01cc | | Execute Vector,Catenate
00e4 e40b | | Load 0x2,0xb
00e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e7 ; --------------------------------------------------------------------------------------
00e7 ; STRING TABLE
00e7 ; --------------------------------------------------------------------------------------
00e7 0016 | | .STRTAB 0x0016->0x00f2 ; "The name of the object."
00e8 002b | + | .STRTAB 0x002b->0x00fd ; "Class and subclass of this object."
00e9 004b | K | .STRTAB 0x004b->0x010e ; "There is no state associated with non-ada objects"
00ea 007a | z | .STRTAB 0x007a->0x0127 ; " "
00eb 0079 | y | .STRTAB 0x0079->0x0127 ; "Total size, in bytes, of this object."
00ec 009c | | .STRTAB 0x009c->0x013a ; "Indicates whether or not there are locks on this object.\x0dHit [EXPLAIN] to see those locks."
00ed 00f4 | | .STRTAB 0x00f4->0x0167 ; "*locks*"
00ee 00f9 | | .STRTAB 0x00f9->0x016a ; "The compilation state of this unit: "
00ef 011b | | .STRTAB 0x011b->0x017c ; "<"
00f0 011a | | .STRTAB 0x011a->0x017d ; ">"
00f1 0119 | | .STREND 0x0119->0x017d
00f2 5468 6520 |The | .STRTAB_STRINGS
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f53,0x0000,0x0001,0x0004
0186 000b 0196 | | .DBG4T 0x000b,0x0196,0x0001,0x0000
018a 007b 01a6 | { | .DBG4T 0x007b,0x01a6,0x0004,0x0000
018e 00a3 01aa | | .DBG4T 0x00a3,0x01aa,0x0004,0x0000
0192 00cb 01b0 | | .DBG4T 0x00cb,0x01b0,0x0004,0x0000
0196 ; --------------------------------------------------------------------------------------
0196 ; Debug chain
0196 ; --------------------------------------------------------------------------------------
0196 0001 000d | | .DBGLEN 0x0001,0x000d
0198 000b 000f | | .DBGLNO 0x000b,0x000f,0x0023,0x0025,0x0033,0x0035,0x003b,0x003d,0x004b,0x004d,0x005f,0x0061,0x006f,0x0071
01a6 ; --------------------------------------------------------------------------------------
01a6 ; Debug chain
01a6 ; --------------------------------------------------------------------------------------
01a6 0001 0001 | | .DBGLEN 0x0001,0x0001
01a8 007b 0084 | { | .DBGLNO 0x007b,0x0084
01aa ; --------------------------------------------------------------------------------------
01aa ; Debug chain
01aa ; --------------------------------------------------------------------------------------
01aa 0002 0002 | | .DBGLEN 0x0002,0x0002
01ac 00a3 00a8 | | .DBGLNO 0x00a3,0x00a8,0x00ac,0x00bf
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug chain
01b0 ; --------------------------------------------------------------------------------------
01b0 0001 0001 | | .DBGLEN 0x0001,0x0001
01b2 00cb 00ce | | .DBGLNO 0x00cb,0x00ce
01b4 0000 0000 | | .BLANK 0000[0x4c]