|
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_1884fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00c0 | | .CONST 0x00c0 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0011 4804 |H | Short_Literal 0x4
0012 032b | + | Declare_Type Record,Incomplete,Visible
0013 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0015 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0017 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0019 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001b e001 | | Load 0x0,0x1
001c 0129 | ) | Execute Any,Make_Visible
001d 4801 |H | Short_Literal 0x1
001e 6035 |`5 | Indirect_Literal Discrete,0x54,{0x00000000, 0x7fffffff}
001f 00e5 | | Load_Encached Long_Integer_Cache
0020 03f8 | | Declare_Type Discrete,Constrained
0021 e002 | | Load 0x0,0x2
0022 e003 | | Load 0x0,0x3
0023 e20f | | Load 0x1,0xf
0024 e210 | | Load 0x1,0x10
0025 e21b | | Load 0x1,0x1b
0026 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0027 e004 | | Load 0x0,0x4
0028 0387 | | Declare_Variable Package
0029 00d8 | | Load_Top At_Offset_0
002a 020f | | Execute Module,Activate
002b 00d8 | | Load_Top At_Offset_0
002c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002d e212 | | Load 0x1,0x12
002e 03c6 | | Complete_Type Access,By_Renaming
002f 00d8 | | Load_Top At_Offset_0
0030 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0031 e215 | | Load 0x1,0x15
0032 0325 | % | Complete_Type Record,By_Renaming
0033 00bf | | Action Accept_Activation
0034 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0035 00c7 | | Action Elaborate_Subprogram
0036 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0037 00c7 | | Action Elaborate_Subprogram
0038 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0039 00c7 | | Action Elaborate_Subprogram
003a 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003b 00c7 | | Action Elaborate_Subprogram
003c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003d 00c7 | | Action Elaborate_Subprogram
003e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
003f 00c7 | | Action Elaborate_Subprogram
0040 BODY_0008:
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b e21c | | Load 0x1,0x1c
004c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004d e21c | | Load 0x1,0x1c
004e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
004f 003b | ; | Store_Top Access,At_Offset_3
0050 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0051 0000 0000 | | .XXX[0x3]
0053 0000 | |
0054 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005d | ] | .CONST 0x005d ; Address of begin
0059 0074 | t | .CONST 0x0074 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b e21b | | Load 0x1,0x1b
005c 0007 | | Action Break_Optional
005d BODY_0058:
005d 00db | | Load_Top At_Offset_3
005e e210 | | Load 0x1,0x10
005f 0119 | | Execute Any,Check_In_Formal_Type
0060 e5fe | | Load 0x2,-0x2
0061 e21c | | Load 0x1,0x1c
0062 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0063 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0064 00d8 | | Load_Top At_Offset_0
0065 0a01 | | Execute_Immediate Plus,0x1
0066 0059 | Y | Store_Top Discrete,At_Offset_1
0067 e5fe | | Load 0x2,-0x2
0068 e21c | | Load 0x1,0x1c
0069 1b13 | | Execute Package,Field_Read,Field_Number 0x13
006a 0226 | & | Execute Access,Convert
006b 4800 |H | Short_Literal 0x0
006c 00da | | Load_Top At_Offset_2
006d e5ff | | Load 0x2,-0x1
006e e210 | | Load 0x1,0x10
006f 0119 | | Execute Any,Check_In_Formal_Type
0070 e21c | | Load 0x1,0x1c
0071 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0072 c5fe | | Store 0x2,-0x2
0073 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0074 TRAP_0058:
0074 e21c | | Load 0x1,0x1c
0075 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0076 010f | | Execute Exception,Equal
0077 680d |h | Jump_Zero 0x85
0078 e5fe | | Load 0x2,-0x2
0079 e21c | | Load 0x1,0x1c
007a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
007b 0226 | & | Execute Access,Convert
007c 4801 |H | Short_Literal 0x1
007d 4801 |H | Short_Literal 0x1
007e e5ff | | Load 0x2,-0x1
007f e210 | | Load 0x1,0x10
0080 0119 | | Execute Any,Check_In_Formal_Type
0081 e21c | | Load 0x1,0x1c
0082 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0083 c5fe | | Store 0x2,-0x2
0084 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0085 0100 | | Execute Exception,Raise
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c e21c | | Load 0x1,0x1c
008d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e21c | | Load 0x1,0x1c
0095 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0096 e210 | | Load 0x1,0x10
0097 0119 | | Execute Any,Check_In_Formal_Type
0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 e21c | | Load 0x1,0x1c
00a5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 00b2 | | .CONST 0x00b2 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e210 | | Load 0x1,0x10
00ad 0119 | | Execute Any,Check_In_Formal_Type
00ae e5fe | | Load 0x2,-0x2
00af e21c | | Load 0x1,0x1c
00b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b2 TRAP_00a8:
00b2 e21c | | Load 0x1,0x1c
00b3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00b4 010f | | Execute Exception,Equal
00b5 6802 |h | Jump_Zero 0xb8
00b6 e21a | | Load 0x1,0x1a
00b7 0257 | W | Execute Discrete,Raise
00b8 0100 | | Execute Exception,Raise
00b9 0000 0000 | | .BLANK 0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7140,0x0000,0x0001,0x0008
00c6 000b 00e6 | | .DBG4T 0x000b,0x00e6,0xc000,0x0000
00ca 0034 00f5 | 4 | .DBG4T 0x0034,0x00f5,0xc000,0x0000
00ce 004b 00fd | K | .DBG4T 0x004b,0x00fd,0x1001,0x0000
00d2 005b 0100 | [ | .DBG4T 0x005b,0x0100,0x1001,0x0000
00d6 008b 0107 | | .DBG4T 0x008b,0x0107,0x1002,0x0000
00da 0093 010a | | .DBG4T 0x0093,0x010a,0x1002,0x0000
00de 00a3 010d | | .DBG4T 0x00a3,0x010d,0x1001,0x0000
00e2 00ab 0110 | | .DBG4T 0x00ab,0x0110,0x1002,0x0000
00e6 ; --------------------------------------------------------------------------------------
00e6 ; Debug chain
00e6 ; --------------------------------------------------------------------------------------
00e6 000d 0000 | | .DBGLEN 0x000d,0x0000
00e8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x0021,0x002b,0x002f
00f5 ; --------------------------------------------------------------------------------------
00f5 ; Debug chain
00f5 ; --------------------------------------------------------------------------------------
00f5 0006 0000 | | .DBGLEN 0x0006,0x0000
00f7 0034 0036 | 4 6| .DBGLNO 0x0034,0x0036,0x0038,0x003a,0x003c,0x003e
00fd ; --------------------------------------------------------------------------------------
00fd ; Debug chain
00fd ; --------------------------------------------------------------------------------------
00fd 0000 0001 | | .DBGLEN 0x0000,0x0001
00ff 004b | K | .DBGLNO 0x004b
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug chain
0100 ; --------------------------------------------------------------------------------------
0100 0001 0004 | | .DBGLEN 0x0001,0x0004
0102 005b 005d | [ ]| .DBGLNO 0x005b,0x005d,0x0064,0x0067,0x0078
0107 ; --------------------------------------------------------------------------------------
0107 ; Debug chain
0107 ; --------------------------------------------------------------------------------------
0107 0000 0001 | | .DBGLEN 0x0000,0x0001
0109 008b | | .DBGLNO 0x008b
010a ; --------------------------------------------------------------------------------------
010a ; Debug chain
010a ; --------------------------------------------------------------------------------------
010a 0000 0001 | | .DBGLEN 0x0000,0x0001
010c 0093 | | .DBGLNO 0x0093
010d ; --------------------------------------------------------------------------------------
010d ; Debug chain
010d ; --------------------------------------------------------------------------------------
010d 0000 0001 | | .DBGLEN 0x0000,0x0001
010f 00a3 | | .DBGLNO 0x00a3
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug chain
0110 ; --------------------------------------------------------------------------------------
0110 0000 0002 | | .DBGLEN 0x0000,0x0002
0112 00ab 00b6 | | .DBGLNO 0x00ab,0x00b6
0114 0000 0000 | | .BLANK 0000[0xec]