|
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_0bf8df
└─⟦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 0110 | | .CONST 0x0110 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0022 | " | .CONST 0x0022 ; Address of begin
0019 0037 | 7 | .CONST 0x0037 ; Address of exception handler
001a 0003 | | .CONST 0x0003 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0022 BODY_0018:
0022 00d9 | | Load_Top At_Offset_1
0023 00ea | | Load_Encached Null_String_Cache
0024 e5ff | | Load 0x2,-0x1
0025 4800 |H | Short_Literal 0x0
0026 e002 | | Load 0x0,0x2
0027 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0028 c402 | | Store 0x2,0x2
0029 00cf | | Action Mark_Auxiliary
002a 7802 |x | Jump 0x2d
002b 8403 | | Call 0x2,0x3
002c 00c9 | | Action Pop_Auxiliary_Loop
002d 00da | | Load_Top At_Offset_2
002e e002 | | Load 0x0,0x2
002f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0030 6ffa |o | Jump_Zero 0x2b
0031 00ce | | Action Pop_Auxiliary
0032 00d9 | | Load_Top At_Offset_1
0033 e002 | | Load 0x0,0x2
0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0035 c402 | | Store 0x2,0x2
0036 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0037 TRAP_0018:
0037 00d8 | | Load_Top At_Offset_0
0038 0107 | | Execute Exception,Get_Name
0039 4920 |I | Short_Literal 0x120
003a 492f |I/ | Short_Literal 0x12f
003b 0262 | b | Execute Discrete,In_Range
003c 680d |h | Jump_Zero 0x4a
003d e003 | | Load 0x0,0x3
003e 180e | | Execute Package,Field_Execute,Field_Number 0xe
003f 4808 |H | Short_Literal 0x8
0040 0092 0095 | | Action Push_String_Extended,0x95 ; "Cannot open '"
0042 e5ff | | Load 0x2,-0x1
0043 01cc | | Execute Vector,Catenate
0044 0092 0096 | | Action Push_String_Extended,0x96 ; "' (NAME_ERROR)"
0046 01cc | | Execute Vector,Catenate
0047 e004 | | Load 0x0,0x4
0048 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0049 4502 |E | Exit_Suprogram New_Top_Offset 0x2
004a e003 | | Load 0x0,0x3
004b 180e | | Execute Package,Field_Execute,Field_Number 0xe
004c 4808 |H | Short_Literal 0x8
004d 0092 0097 | | Action Push_String_Extended,0x97 ; "Unexpected exception "
004f 4800 |H | Short_Literal 0x0
0050 4801 |H | Short_Literal 0x1
0051 e005 | | Load 0x0,0x5
0052 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0053 01cc | | Execute Vector,Catenate
0054 0092 0098 | | Action Push_String_Extended,0x98 ; " while opening/closing "
0056 01cc | | Execute Vector,Catenate
0057 0092 0099 | | Action Push_String_Extended,0x99 ; "parameter default change directives file "
0059 01cc | | Execute Vector,Catenate
005a e5ff | | Load 0x2,-0x1
005b 01cc | | Execute Vector,Catenate
005c e004 | | Load 0x0,0x4
005d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006c | l | .CONST 0x006c ; Address of begin
0061 0071 | q | .CONST 0x0071 ; Address of exception handler
0062 0004 | | .CONST 0x0004 ; Number of locals
0063 INIT_0060:
0063 e402 | | Load 0x2,0x2
0064 e002 | | Load 0x0,0x2
0065 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0066 e402 | | Load 0x2,0x2
0067 e002 | | Load 0x0,0x2
0068 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0069 e402 | | Load 0x2,0x2
006a e002 | | Load 0x0,0x2
006b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
006c BODY_0060:
006c 00d8 | | Load_Top At_Offset_0
006d 00da | | Load_Top At_Offset_2
006e e602 | | Load 0x3,0x2
006f 8006 | | Call 0x0,0x6
0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0071 TRAP_0060:
0071 0007 | | Action Break_Optional
0072 e003 | | Load 0x0,0x3
0073 180e | | Execute Package,Field_Execute,Field_Number 0xe
0074 4808 |H | Short_Literal 0x8
0075 0092 009a | | Action Push_String_Extended,0x9a ; "Unexpected exception while changing parameter's default value"
0077 e004 | | Load 0x0,0x4
0078 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0079 e003 | | Load 0x0,0x3
007a 180e | | Execute Package,Field_Execute,Field_Number 0xe
007b 4808 |H | Short_Literal 0x8
007c 0092 009b | | Action Push_String_Extended,0x9b ; "Parameter => "
007e e5ff | | Load 0x2,-0x1
007f 01cc | | Execute Vector,Catenate
0080 e004 | | Load 0x0,0x4
0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0082 e003 | | Load 0x0,0x3
0083 180e | | Execute Package,Field_Execute,Field_Number 0xe
0084 4808 |H | Short_Literal 0x8
0085 0092 009c | | Action Push_String_Extended,0x9c ; "Kind => "
0087 e603 | | Load 0x3,0x3
0088 01cc | | Execute Vector,Catenate
0089 e004 | | Load 0x0,0x4
008a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008b e003 | | Load 0x0,0x3
008c 180e | | Execute Package,Field_Execute,Field_Number 0xe
008d 4808 |H | Short_Literal 0x8
008e 0092 009d | | Action Push_String_Extended,0x9d ; "Value => "
0090 e604 | | Load 0x3,0x4
0091 01cc | | Execute Vector,Catenate
0092 e004 | | Load 0x0,0x4
0093 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0094 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0095 ; --------------------------------------------------------------------------------------
0095 ; STRING TABLE
0095 ; --------------------------------------------------------------------------------------
0095 0014 | | .STRTAB 0x0014->0x009f ; "Cannot open '"
0096 001f | | .STRTAB 0x001f->0x00a5 ; "' (NAME_ERROR)"
0097 002b | + | .STRTAB 0x002b->0x00ac ; "Unexpected exception "
0098 003e | > | .STRTAB 0x003e->0x00b7 ; " while opening/closing "
0099 0053 | S | .STRTAB 0x0053->0x00c2 ; "parameter default change directives file "
009a 007a | z | .STRTAB 0x007a->0x00d7 ; "Unexpected exception while changing parameter's default value"
009b 00b5 | | .STRTAB 0x00b5->0x00f5 ; "Parameter => "
009c 00c0 | | .STRTAB 0x00c0->0x00fc ; "Kind => "
009d 00cb | | .STRTAB 0x00cb->0x0102 ; "Value => "
009e 00d6 | | .STREND 0x00d6->0x0109
009f 4361 6e6e |Cann| .STRTAB_STRINGS
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0002 | | .DEBUG4 0x0004,0x0002,0x0b83,0x0000,0x0001,0x0000
0116 4c01 95c4 |L | .XXX[0xea]
0118 080e 0013 | |
011a e400 6571 | eq|
011c 4403 8004 |D |
011e f940 195c | @ \|
0120 6180 e001 |a |
0122 3cc0 0657 |< W|
0124 1c80 3800 | 8 |
0126 281c 0195 |( |
0128 c828 0e00 | ( |
012a 13c9 0065 | e|
012c 724c 0380 |rL |
012e 04f0 0019 | |
0130 5ca3 80e0 |\ |
0132 00a0 a006 | |
0134 572d 0038 |W- 8|
0136 004f 0801 | O |
0138 95cc 480e | H |
013a 0013 c500 | |
013c 6573 5403 |esT |
013e 8004 f200 | |
0140 195c e580 | \ |
0142 e001 3c30 | <0|
0144 0657 3d80 | W= |
0146 3800 4f1c |8 O |
0148 0195 d068 | h|
014a 0e00 13c1 | |
014c 0065 745c | et\|
014e 0380 04f7 | |
0150 4019 5d27 |@ ]'|
0152 80e0 013d | =|
0154 e006 574e | WN|
0156 0038 004e | 8 N|
0158 fc01 95d4 | |
015a 880e 0013 | |
015c c600 6575 | eu|
015e 6403 8004 |d |
0160 f100 195d | ]|
0162 6980 e001 |i |
0164 3ca0 0657 |< W|
0166 5e80 3800 |^ 8 |
0168 4f2c 0195 |O, |
016a d8a8 0e00 | |
016c 1384 0065 | e|
016e 766c 0380 |vl |
0170 0695 0019 | |
0172 5dab 80e0 |] |
0174 013b 9006 | ; |
0176 576f 0038 |Wo 8|
0178 004e 0001 | N |
017a 95dc c80e | |
017c 0013 8100 | |
017e 6577 7403 |ewt |
0180 8004 df00 | |
0182 195d ed80 | ] |
0184 e001 37f0 | 7 |
0186 0657 7f80 | W |
0188 3800 4df8 |8 M |
018a 0195 e0e8 | |
018c 0e00 137d | }|
018e 0065 787c | ex||
0190 0380 04de | |
0192 c019 5e2f | ^/|
0194 80e0 0138 | 8|
0196 2006 5790 | W |
0198 0038 004e | 8 N|
019a 0c01 95e5 | |
019c 080e 0013 | |
019e ba00 6579 | ey|
01a0 8403 8004 | |
01a2 f340 195e | @ ^|
01a4 7180 e001 |q |
01a6 3db0 0657 |= W|
01a8 a080 3800 | 8 |
01aa 4e80 0195 |N |
01ac e928 0e00 | ( |
01ae 13a1 0065 | e|
01b0 7a8c 0380 |z |
01b2 04ef 4019 | @ |
01b4 5eb3 80e0 |^ |
01b6 013d 7006 | =p |
01b8 57b1 0038 |W 8|
01ba 004e f001 | N |
01bc 95ed 480e | H |
01be 0013 be00 | |
01c0 657b 9403 |e{ |
01c2 8004 f540 | @|
01c4 195e f580 | ^ |
01c6 e001 3d40 | =@|
01c8 0657 c180 | W |
01ca 3800 4e74 |8 Nt|
01cc 0195 f168 | h|
01ce 0e00 139c | |
01d0 0065 7c9c | e| |
01d2 0380 04f4 | |
01d4 8019 5f37 | _7|
01d6 80e0 013d | =|
01d8 1006 57d2 | W |
01da 0038 004e | 8 N|
01dc ec01 95f5 | |
01de 880e 0013 | |
01e0 d600 657d | e}|
01e2 a403 8004 | |
01e4 e780 195f | _|
01e6 7980 e001 |y |
01e8 3a20 0657 |: W|
01ea e280 3800 | 8 |
01ec 4e8c 0195 |N |
01ee f9a8 0e00 | |
01f0 13d8 0065 | e|
01f2 7eac 0380 |~ |
01f4 04f6 8019 | |
01f6 5fbb 80e0 |_ |
01f8 013a 6006 | :` |
01fa 57f3 0038 |W 8|
01fc 004e 9c01 | N |
01fe 95fd c80e | |