|
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_0230eb
└─⟦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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0013 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0015 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0017 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0019 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
001b 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
001d 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0021 0093 0000 | | push_full_address 0x0
0023 6048 |`H | Indirect_Literal Discrete,0x6c,{0x80000000, 0x00010000}
0024 0273 | s | Execute Discrete,Plus
0025 0129 | ) | Execute Any,Make_Visible
0026 4832 |H2 | Short_Literal 0x32
0027 e002 | | Load 0x0,0x2
0028 1c07 | | Execute_Immediate Run_Utility,0x7
0029 0129 | ) | Execute Any,Make_Visible
002a 4832 |H2 | Short_Literal 0x32
002b e002 | | Load 0x0,0x2
002c 1c07 | | Execute_Immediate Run_Utility,0x7
002d 0129 | ) | Execute Any,Make_Visible
002e e003 | | Load 0x0,0x3
002f 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0031 4803 |H | Short_Literal 0x3
0032 032e | . | Declare_Type Record,Defined,Visible
0033 00bf | | Action Accept_Activation
0034 0092 0168 | h| Action Push_String_Extended,0x168 ; "(name=>"
0036 0092 0169 | i| Action Push_String_Extended,0x169 ; ",class=>"
0038 0092 016a | j| Action Push_String_Extended,0x16a ; ",signature=>"
003a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
003b 00c7 | | Action Elaborate_Subprogram
003c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
003d 00c7 | | Action Elaborate_Subprogram
003e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003f 00c7 | | Action Elaborate_Subprogram
0040 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0041 00c7 | | Action Elaborate_Subprogram
0042 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0043 00c7 | | Action Elaborate_Subprogram
0044 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0045 00c7 | | Action Elaborate_Subprogram
0046 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0047 00c7 | | Action Elaborate_Subprogram
0048 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0049 00c7 | | Action Elaborate_Subprogram
004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004b 00c7 | | Action Elaborate_Subprogram
004c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004d 00c7 | | Action Elaborate_Subprogram
004e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004f 00c7 | | Action Elaborate_Subprogram
0050 BODY_0008:
0050 00bc | | Action Signal_Activated
0051 00bb | | Action Signal_Completion
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e5fc | | Load 0x2,-0x4
005c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005d 00db | | Load_Top At_Offset_3
005e 8004 | | Call 0x0,0x4
005f 00d1 | | Pop_Control Pop_Count_1
0060 e5fc | | Load 0x2,-0x4
0061 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0062 e5fe | | Load 0x2,-0x2
0063 8004 | | Call 0x0,0x4
0064 00d1 | | Pop_Control Pop_Count_1
0065 e5fd | | Load 0x2,-0x3
0066 e5fc | | Load 0x2,-0x4
0067 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0068 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0069 0000 0000 | | .XXX[0x3]
006b 0000 | |
006c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0077 | w | .CONST 0x0077 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 e219 | | Load 0x1,0x19
0074 0322 | " | Declare_Variable Record
0075 00d8 | | Load_Top At_Offset_0
0076 1c00 | | Execute_Immediate Run_Utility,0x0
0077 BODY_0070:
0077 00d8 | | Load_Top At_Offset_0
0078 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0079 e5ff | | Load 0x2,-0x1
007a 8004 | | Call 0x0,0x4
007b 00d1 | | Pop_Control Pop_Count_1
007c 00d8 | | Load_Top At_Offset_0
007d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
007e e5fe | | Load 0x2,-0x2
007f 8004 | | Call 0x0,0x4
0080 00d1 | | Pop_Control Pop_Count_1
0081 e5fd | | Load 0x2,-0x3
0082 00d9 | | Load_Top At_Offset_1
0083 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0084 00d8 | | Load_Top At_Offset_0
0085 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
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 00db | | Load_Top At_Offset_3
008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008d 00db | | Load_Top At_Offset_3
008e 8004 | | Call 0x0,0x4
008f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3
0094 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0095 00db | | Load_Top At_Offset_3
0096 8004 | | Call 0x0,0x4
0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
009e 4502 |E | Exit_Suprogram 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a5 8005 | | Call 0x0,0x5
00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00ad 8005 | | Call 0x0,0x5
00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00af 0000 | | .XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00b5 0320 | | Declare_Variable Record,Duplicate
00b6 00cd | | Action Spare6_Action
00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4829 |H) | Short_Literal 0x29
00bc e21a | | Load 0x1,0x1a
00bd e5ff | | Load 0x2,-0x1
00be 8212 | | Call 0x1,0x12
00bf 01cc | | Execute Vector,Catenate
00c0 e21b | | Load 0x1,0x1b
00c1 01cc | | Execute Vector,Catenate
00c2 e5ff | | Load 0x2,-0x1
00c3 8213 | | Call 0x1,0x13
00c4 01cc | | Execute Vector,Catenate
00c5 e21c | | Load 0x1,0x1c
00c6 01cc | | Execute Vector,Catenate
00c7 e5ff | | Load 0x2,-0x1
00c8 8214 | | Call 0x1,0x14
00c9 8006 | | Call 0x0,0x6
00ca 01cc | | Execute Vector,Catenate
00cb 01cb | | Execute Vector,Append
00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d8 | | .CONST 0x00d8 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 e219 | | Load 0x1,0x19
00d4 0322 | " | Declare_Variable Record
00d5 00d8 | | Load_Top At_Offset_0
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 00e3 | | Load_Encached Natural_Cache
00d8 BODY_00d0:
00d8 00d8 | | Load_Top At_Offset_0
00d9 00da | | Load_Top At_Offset_2
00da e5ff | | Load 0x2,-0x1
00db 8217 | | Call 0x1,0x17
00dc 00d1 | | Pop_Control Pop_Count_1
00dd 0059 | Y | Store_Top Discrete,At_Offset_1
00de 00d9 | | Load_Top At_Offset_1
00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ec | | .CONST 0x00ec ; Address of begin
00e1 0142 | B | .CONST 0x0142 ; Address of exception handler
00e2 0007 | | .CONST 0x0007 ; Number of locals
00e3 INIT_00e0:
00e3 00e3 | | Load_Encached Natural_Cache
00e4 00e3 | | Load_Encached Natural_Cache
00e5 00e3 | | Load_Encached Natural_Cache
00e6 00e3 | | Load_Encached Natural_Cache
00e7 00e3 | | Load_Encached Natural_Cache
00e8 e003 | | Load 0x0,0x3
00e9 0322 | " | Declare_Variable Record
00ea 00d8 | | Load_Top At_Offset_0
00eb 1c00 | | Execute_Immediate Run_Utility,0x0
00ec BODY_00e0:
00ec e5ff | | Load 0x2,-0x1
00ed 01dd | | Execute Vector,First
00ee 0a07 | | Execute_Immediate Plus,0x7
00ef c403 | | Store 0x2,0x3
00f0 e5ff | | Load 0x2,-0x1
00f1 01dd | | Execute Vector,First
00f2 e403 | | Load 0x2,0x3
00f3 0aff | | Execute_Immediate Plus,-0x1
00f4 e5ff | | Load 0x2,-0x1
00f5 01cf | | Execute Vector,Slice_Read
00f6 e21a | | Load 0x1,0x1a
00f7 01de | | Execute Vector,Not_Equal
00f8 6802 |h | Jump_Zero 0xfb
00f9 e218 | | Load 0x1,0x18
00fa 0257 | W | Execute Discrete,Raise
00fb 4801 |H | Short_Literal 0x1
00fc e403 | | Load 0x2,0x3
00fd e5ff | | Load 0x2,-0x1
00fe 01dc | | Execute Vector,Last
00ff e5ff | | Load 0x2,-0x1
0100 01cf | | Execute Vector,Slice_Read
0101 e21b | | Load 0x1,0x1b
0102 8007 | | Call 0x0,0x7
0103 a402 | | Store_Unchecked 0x2,0x2
0104 e402 | | Load 0x2,0x2
0105 7002 |p | Jump_Nonzero 0x108
0106 e218 | | Load 0x1,0x18
0107 0257 | W | Execute Discrete,Raise
0108 e402 | | Load 0x2,0x2
0109 0aff | | Execute_Immediate Plus,-0x1
010a c404 | | Store 0x2,0x4
010b e402 | | Load 0x2,0x2
010c 0a08 | | Execute_Immediate Plus,0x8
010d 005b | [ | Store_Top Discrete,At_Offset_3
010e 4801 |H | Short_Literal 0x1
010f 00db | | Load_Top At_Offset_3
0110 e5ff | | Load 0x2,-0x1
0111 01dc | | Execute Vector,Last
0112 e5ff | | Load 0x2,-0x1
0113 01cf | | Execute Vector,Slice_Read
0114 e21c | | Load 0x1,0x1c
0115 8007 | | Call 0x0,0x7
0116 a402 | | Store_Unchecked 0x2,0x2
0117 e402 | | Load 0x2,0x2
0118 7002 |p | Jump_Nonzero 0x11b
0119 e218 | | Load 0x1,0x18
011a 0257 | W | Execute Discrete,Raise
011b e402 | | Load 0x2,0x2
011c 0aff | | Execute_Immediate Plus,-0x1
011d 005a | Z | Store_Top Discrete,At_Offset_2
011e e402 | | Load 0x2,0x2
011f 0a0c | | Execute_Immediate Plus,0xc
0120 c402 | | Store 0x2,0x2
0121 e402 | | Load 0x2,0x2
0122 00d9 | | Load_Top At_Offset_1
0123 e402 | | Load 0x2,0x2
0124 e5ff | | Load 0x2,-0x1
0125 01dc | | Execute Vector,Last
0126 e5ff | | Load 0x2,-0x1
0127 01cf | | Execute Vector,Slice_Read
0128 8008 | | Call 0x0,0x8
0129 00d1 | | Pop_Control Pop_Count_1
012a c402 | | Store 0x2,0x2
012b e402 | | Load 0x2,0x2
012c 0a01 | | Execute_Immediate Plus,0x1
012d e5ff | | Load 0x2,-0x1
012e 01d7 | | Execute Vector,Field_Read
012f 0e29 | ) | Execute_Immediate Not_Equal,0x29
0130 6802 |h | Jump_Zero 0x133
0131 e218 | | Load 0x1,0x18
0132 0257 | W | Execute Discrete,Raise
0133 e402 | | Load 0x2,0x2
0134 0a01 | | Execute_Immediate Plus,0x1
0135 c5fd | | Store 0x2,-0x3
0136 e5fe | | Load 0x2,-0x2
0137 00d9 | | Load_Top At_Offset_1
0138 e405 | | Load 0x2,0x5
0139 e406 | | Load 0x2,0x6
013a e5ff | | Load 0x2,-0x1
013b 01cf | | Execute Vector,Slice_Read
013c e403 | | Load 0x2,0x3
013d e404 | | Load 0x2,0x4
013e e5ff | | Load 0x2,-0x1
013f 01cf | | Execute Vector,Slice_Read
0140 820d | | Call 0x1,0xd
0141 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0142 TRAP_00e0:
0142 0007 | | Action Break_Optional
0143 e218 | | Load 0x1,0x18
0144 0257 | W | Execute Discrete,Raise
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 4601 |F | Jump_Case 0x2
014c 7801 |x | Jump 0x14e ; case 0x0
014d 7810 |x | Jump 0x15e ; case 0x1
014e 00da | | Load_Top At_Offset_2
014f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0150 0125 | % | Execute Any,Set_Constraint
0151 00da | | Load_Top At_Offset_2
0152 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0153 1c00 | | Execute_Immediate Run_Utility,0x0
0154 00da | | Load_Top At_Offset_2
0155 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0156 0125 | % | Execute Any,Set_Constraint
0157 00da | | Load_Top At_Offset_2
0158 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0159 1c00 | | Execute_Immediate Run_Utility,0x0
015a 00da | | Load_Top At_Offset_2
015b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
015c 1c00 | | Execute_Immediate Run_Utility,0x0
015d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
015e 00da | | Load_Top At_Offset_2
015f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0160 0125 | % | Execute Any,Set_Constraint
0161 00da | | Load_Top At_Offset_2
0162 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0163 0125 | % | Execute Any,Set_Constraint
0164 00da | | Load_Top At_Offset_2
0165 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0166 1c01 | | Execute_Immediate Run_Utility,0x1
0167 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0168 ; --------------------------------------------------------------------------------------
0168 ; STRING TABLE
0168 ; --------------------------------------------------------------------------------------
0168 0008 | | .STRTAB 0x0008->0x016c ; "(name=>"
0169 000d | | .STRTAB 0x000d->0x016f ; ",class=>"
016a 0013 | | .STRTAB 0x0013->0x0173 ; ",signature=>"
016b 001d | | .STREND 0x001d->0x0179
016c 286e 616d |(nam| .STRTAB_STRINGS
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0004 0002 | | .DEBUG4 0x0004,0x0002,0xcb97,0x0000,0x0001,0x0000
0186 0000 0000 | | .BLANK 0000[0x77]
01fd 3000 0008 |0 | .XXX[0x3]
01ff 0000 | |