|
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_03c8f4
└─⟦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 0168 | h | .CONST 0x0168 ; 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 006b | k | .CONST 0x006b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 00e3 | | Load_Encached Natural_Cache
000d 02a0 | | Declare_Subprogram Null_Subprogram
000e 4802 |H | Short_Literal 0x2
000f 032e | . | Declare_Type Record,Defined,Visible
0010 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0012 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0014 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0018 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
001a 029c 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible
001c 029c 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible
001e 0093 0000 | | push_full_address 0x0
0020 6063 |`c | Indirect_Literal Discrete,0x84,{0x80000000, 0x00010000}
0021 0273 | s | Execute Discrete,Plus
0022 e002 | | Load 0x0,0x2
0023 0273 | s | Execute Discrete,Plus
0024 e003 | | Load 0x0,0x3
0025 0273 | s | Execute Discrete,Plus
0026 e20d | | Load 0x1,0xd
0027 00e3 | | Load_Encached Natural_Cache
0028 4800 |H | Short_Literal 0x0
0029 4832 |H2 | Short_Literal 0x32
002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002f e004 | | Load 0x0,0x4
0030 0386 | | Declare_Variable Package,Visible
0031 00d8 | | Load_Top At_Offset_0
0032 020f | | Execute Module,Activate
0033 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0035 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0037 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0039 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
003b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
003d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
003f 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0041 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0043 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0045 0093 0000 | | push_full_address 0x0
0047 6038 |`8 | Indirect_Literal Discrete,0x80,{0x80000000, 0x00010000}
0048 0273 | s | Execute Discrete,Plus
0049 0129 | ) | Execute Any,Make_Visible
004a 00bf | | Action Accept_Activation
004b e005 | | Load 0x0,0x5
004c e215 | | Load 0x1,0x15
004d 0098 | | Execute Package,Field_Read_Dynamic
004e 0322 | " | Declare_Variable Record
004f 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0050 00c7 | | Action Elaborate_Subprogram
0051 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0052 00c7 | | Action Elaborate_Subprogram
0053 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0054 00c7 | | Action Elaborate_Subprogram
0055 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0056 00c7 | | Action Elaborate_Subprogram
0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0058 00c7 | | Action Elaborate_Subprogram
0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19
005a 00c7 | | Action Elaborate_Subprogram
005b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005c 00c7 | | Action Elaborate_Subprogram
005d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
005e 00c7 | | Action Elaborate_Subprogram
005f 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0060 00c7 | | Action Elaborate_Subprogram
0061 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0062 00c7 | | Action Elaborate_Subprogram
0063 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0064 00c7 | | Action Elaborate_Subprogram
0065 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0066 00c7 | | Action Elaborate_Subprogram
0067 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0068 00c7 | | Action Elaborate_Subprogram
0069 1d12 | | Execute_Immediate Reference_Lex_1,0x12
006a 00c7 | | Action Elaborate_Subprogram
006b BODY_0008:
006b 00d8 | | Load_Top At_Offset_0
006c e006 | | Load 0x0,0x6
006d e215 | | Load 0x1,0x15
006e 0096 | | Execute Package,Entry
006f 00d1 | | Pop_Control Pop_Count_1
0070 00bc | | Action Signal_Activated
0071 00bb | | Action Signal_Completion
0072 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
007c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0084 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
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 e5fe | | Load 0x2,-0x2
0095 017d | } | Execute Record,Structure_Write
0096 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e5fe | | Load 0x2,-0x2
009d 017f | | Execute Record,Equal
009e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009f 0000 | | .XXX[0x1]
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 e5fe | | Load 0x2,-0x2
00a5 027f | | Execute Discrete,Equal
00a6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; 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 00d8 | | Load_Top At_Offset_0
00ad 00e3 | | Load_Encached Natural_Cache
00ae 0260 | ` | Execute Discrete,In_Type
00af 7001 |p | Jump_Nonzero 0xb1
00b0 0801 | | Execute_Immediate Raise,0x1
00b1 820f | | Call 0x1,0xf
00b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00db | | Load_Top At_Offset_3
00bc 00d8 | | Load_Top At_Offset_0
00bd 00e3 | | Load_Encached Natural_Cache
00be 0260 | ` | Execute Discrete,In_Type
00bf 7001 |p | Jump_Nonzero 0xc1
00c0 0801 | | Execute_Immediate Raise,0x1
00c1 00db | | Load_Top At_Offset_3
00c2 00d8 | | Load_Top At_Offset_0
00c3 00e3 | | Load_Encached Natural_Cache
00c4 0260 | ` | Execute Discrete,In_Type
00c5 7001 |p | Jump_Nonzero 0xc7
00c6 0801 | | Execute_Immediate Raise,0x1
00c7 8212 | | Call 0x1,0x12
00c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5 | | .CONST 0x00d5 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 e20d | | Load 0x1,0xd
00d4 0322 | " | Declare_Variable Record
00d5 BODY_00d0:
00d5 00db | | Load_Top At_Offset_3
00d6 00d9 | | Load_Top At_Offset_1
00d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d8 e5fe | | Load 0x2,-0x2
00d9 00d9 | | Load_Top At_Offset_1
00da 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00db e220 | | Load 0x1,0x20
00dc 00d9 | | Load_Top At_Offset_1
00dd e007 | | Load 0x0,0x7
00de e215 | | Load 0x1,0x15
00df 0096 | | Execute Package,Entry
00e0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e220 | | Load 0x1,0x20
00ec 00db | | Load_Top At_Offset_3
00ed e008 | | Load 0x0,0x8
00ee e215 | | Load 0x1,0x15
00ef 0096 | | Execute Package,Entry
00f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f1 0000 0000 | | .BLANK 0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd | | .CONST 0x00fd ; Address of begin
00f9 0107 | | .CONST 0x0107 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e20d | | Load 0x1,0xd
00fc 0322 | " | Declare_Variable Record
00fd BODY_00f8:
00fd 00db | | Load_Top At_Offset_3
00fe e220 | | Load 0x1,0x20
00ff e009 | | Load 0x0,0x9
0100 e215 | | Load 0x1,0x15
0101 0096 | | Execute Package,Entry
0102 00d9 | | Load_Top At_Offset_1
0103 017d | } | Execute Record,Structure_Write
0104 00d8 | | Load_Top At_Offset_0
0105 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0107 TRAP_00f8:
0107 e00a | | Load 0x0,0xa
0108 e215 | | Load 0x1,0x15
0109 0098 | | Execute Package,Field_Read_Dynamic
010a 010f | | Execute Exception,Equal
010b 6802 |h | Jump_Zero 0x10e
010c e21f | | Load 0x1,0x1f
010d 0257 | W | Execute Discrete,Raise
010e 0100 | | Execute Exception,Raise
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 e220 | | Load 0x1,0x20
0115 e00b | | Load 0x0,0xb
0116 e215 | | Load 0x1,0x15
0117 0096 | | Execute Package,Entry
0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0119 0000 0000 | | .BLANK 0000[0x7]
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 e220 | | Load 0x1,0x20
0124 e00c | | Load 0x0,0xc
0125 e215 | | Load 0x1,0x15
0126 0096 | | Execute Package,Entry
0127 00ca | | Action Exit_Nullary_Function
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c e220 | | Load 0x1,0x20
012d e00d | | Load 0x0,0xd
012e e215 | | Load 0x1,0x15
012f 0096 | | Execute Package,Entry
0130 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c e220 | | Load 0x1,0x20
013d e00e | | Load 0x0,0xe
013e e215 | | Load 0x1,0x15
013f 0096 | | Execute Package,Entry
0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d | M | .CONST 0x014d ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e20d | | Load 0x1,0xd
014c 0322 | " | Declare_Variable Record
014d BODY_0148:
014d 00db | | Load_Top At_Offset_3
014e e220 | | Load 0x1,0x20
014f e00f | | Load 0x0,0xf
0150 e215 | | Load 0x1,0x15
0151 0096 | | Execute Package,Entry
0152 00d9 | | Load_Top At_Offset_1
0153 017d | } | Execute Record,Structure_Write
0154 00d8 | | Load_Top At_Offset_0
0155 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d | ] | .CONST 0x015d ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e20d | | Load 0x1,0xd
015c 0322 | " | Declare_Variable Record
015d BODY_0158:
015d 00db | | Load_Top At_Offset_3
015e e220 | | Load 0x1,0x20
015f e00f | | Load 0x0,0xf
0160 e215 | | Load 0x1,0x15
0161 0096 | | Execute Package,Entry
0162 00d9 | | Load_Top At_Offset_1
0163 017d | } | Execute Record,Structure_Write
0164 00d8 | | Load_Top At_Offset_0
0165 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug Table
0168 ; --------------------------------------------------------------------------------------
0168 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1cb,0x0000,0x0001,0x0000
016e 0000 0000 | | .BLANK 0000[0x92]