|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0098 | | .CONST 0x0098 ; 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 001e | | .CONST 0x001e ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001d 0337 | 7 | Declare_Variable Array 001e BODY_0018: 001e 0092 0070 | p| Action Push_String_Extended,0x70 ; "Job" 0020 e5ff | | Load 0x2,-0x1 0021 00e0 | | Load_Encached Standard_Cache 0022 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0023 01cc | | Execute Vector,Catenate 0024 0092 0071 | q| Action Push_String_Extended,0x71 ; " " 0026 01cc | | Execute Vector,Catenate 0027 e5ff | | Load 0x2,-0x1 0028 e003 | | Load 0x0,0x3 0029 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 002a 01cc | | Execute Vector,Catenate 002b e004 | | Load 0x0,0x4 002c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 002d 4801 |H | Short_Literal 0x1 002e e004 | | Load 0x0,0x4 002f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0030 0092 0072 | r| Action Push_String_Extended,0x72 ; "Base identity = " 0032 e5ff | | Load 0x2,-0x1 0033 e005 | | Load 0x0,0x5 0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0035 00d9 | | Load_Top At_Offset_1 0036 00d0 | | Action Swap_Control 0037 0260 | ` | Execute Discrete,In_Type 0038 7001 |p | Jump_Nonzero 0x3a 0039 0801 | | Execute_Immediate Raise,0x1 003a e005 | | Load 0x0,0x5 003b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 003c e005 | | Load 0x0,0x5 003d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 003e 01cc | | Execute Vector,Catenate 003f e004 | | Load 0x0,0x4 0040 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0041 4801 |H | Short_Literal 0x1 0042 e004 | | Load 0x0,0x4 0043 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0044 0092 0073 | s| Action Push_String_Extended,0x73 ; "Group membership:" 0046 e004 | | Load 0x0,0x4 0047 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0048 e5ff | | Load 0x2,-0x1 0049 e003 | | Load 0x0,0x3 004a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 004b e402 | | Load 0x2,0x2 004c 01d4 | | Execute Vector,Structure_Write 004d 00cf | | Action Mark_Auxiliary 004e e002 | | Load 0x0,0x2 004f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0050 01d9 | | Execute Vector,Reverse_Bounds 0051 0007 | | Action Break_Optional 0052 00d8 | | Load_Top At_Offset_0 0053 e402 | | Load 0x2,0x2 0054 01d7 | | Execute Vector,Field_Read 0055 6808 |h | Jump_Zero 0x5e 0056 00d8 | | Load_Top At_Offset_0 0057 e006 | | Load 0x0,0x6 0058 180d | | Execute Package,Field_Execute,Field_Number 0xd 0059 0092 0074 | t| Action Push_String_Extended,0x74 ; " " 005b 01cc | | Execute Vector,Catenate 005c e004 | | Load 0x0,0x4 005d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 005e 00c8 | | Action Pop_Auxiliary_Range 005f 3ff2 |? | Loop_Increasing 0x52 0060 00ce | | Action Pop_Auxiliary 0061 4801 |H | Short_Literal 0x1 0062 e004 | | Load 0x0,0x4 0063 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0064 e5ff | | Load 0x2,-0x1 0065 e003 | | Load 0x0,0x3 0066 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0067 6807 |h | Jump_Zero 0x6f 0068 4801 |H | Short_Literal 0x1 0069 e004 | | Load 0x0,0x4 006a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 006b 0092 0075 | u| Action Push_String_Extended,0x75 ; "PRIV MODE enabled" 006d e004 | | Load 0x0,0x4 006e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 006f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0070 ; -------------------------------------------------------------------------------------- 0070 ; STRING TABLE 0070 ; -------------------------------------------------------------------------------------- 0070 000e | | .STRTAB 0x000e->0x0077 ; "Job" 0071 000f | | .STRTAB 0x000f->0x0078 ; " " 0072 0010 | | .STRTAB 0x0010->0x007a ; "Base identity = " 0073 001e | | .STRTAB 0x001e->0x0082 ; "Group membership:" 0074 002d | - | .STRTAB 0x002d->0x008a ; " " 0075 002c | , | .STRTAB 0x002c->0x008b ; "PRIV MODE enabled" 0076 003b | ; | .STREND 0x003b->0x0093 0077 4a6f 6220 |Job | .STRTAB_STRINGS 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug Table 0098 ; -------------------------------------------------------------------------------------- 0098 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd955,0x0000,0x0001,0x0000 009e 4905 3001 |I 0 | .XXX[0x3e] 00a0 fa40 8c00 | @ | 00a2 154d 5165 | MQe| 00a4 3114 5c00 |1 \ | 00a6 6539 5535 |e9U5| 00a8 0915 494c | IL| 00aa b939 5535 | 9U5| 00ac 0915 497d | I}| 00ae 4d51 6531 |MQe1| 00b0 157d 1539 | } 9| 00b2 5534 01fe |U4 | 00b4 4090 0011 |@ | 00b6 2539 513c |%9Q<| 00b8 5c00 4139 |\ A9| 00ba 5535 0915 |U5 | 00bc 494c b955 |IL U| 00be 7d4d 5149 |}MQI| 00c0 2539 1c00 |%9 | 00c2 0000 0000 | | 00c4 1401 0000 | | 00c6 5139 5535 |Q9U5| 00c8 0915 494c | IL| 00ca b931 1559 | 1 Y| 00cc 1531 7d39 | 1}9| 00ce 5535 0915 |U5 | 00d0 48f1 985c |H \| 00d2 0041 4d51 | AMQ| 00d4 0539 1105 | 9 | 00d6 4910 b939 |I 9| 00d8 0551 5549 | QUI| 00da 0531 8420 | 1 | 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 0020 | | .XXX[0x1] 00e1 0000 0000 | | .BLANK 0000[0x4] 00e5 3c00 0000 |< | .XXX[0x11b] 00e7 0800 a800 | | 00e9 2d39 5535 |-9U5| 00eb 0915 494c | IL| 00ed b919 3550 | 5P| 00ef fa00 5c00 | \ | 00f1 6119 3d49 |a =I| 00f3 3505 5151 |5 QQ| 00f5 1549 7d25 | I}%| 00f7 3541 3115 |5A1 | 00f9 3515 3951 |5 9Q| 00fb 0551 253d | Q%=| 00fd 3800 0000 |8 | 00ff 3802 2400 |8 $ | 0101 5939 5535 |Y9U5| 0103 0915 494c | IL| 0105 b90d 3d39 | =9| 0107 5915 4951 |Y IQ| 0109 7d39 5535 |}9U5| 010b 0915 48f5 | H | 010d ee51 fa40 | Q @| 010f 8c00 1939 | 9| 0111 5535 0915 |U5 | 0113 485c 0041 |H\ A| 0115 4d51 0539 |MQ 9| 0117 1105 4910 | I | 0119 b939 0551 | 9 Q| 011b 5549 0530 |UI 0| 011d 01fa 408c | @ | 011f 0015 4d51 | MQ| 0121 6531 145c |e1 \| 0123 0065 3955 | e9U| 0125 3509 1549 |5 I| 0127 4cb9 3955 |L 9U| 0129 3509 1549 |5 I| 012b 7d4d 5165 |}MQe| 012d 3115 7d15 |1 } | 012f 3955 3401 |9U4 | 0131 fe40 9000 | @ | 0133 1125 3951 | %9Q| 0135 3c5c 0069 |<\ i| 0137 193d 4935 | =I5| 0139 0551 5115 | QQ | 013b 497d 1d31 |I} 1| 013d 3d09 0531 |= 1| 013f 4cb9 557d |L U}| 0141 4d51 4925 |MQI%| 0143 391c 0000 |9 | 0145 0000 0018 | | 0147 01c4 004d | M| 0149 3955 3509 |9U5 | 014b 1549 4cb9 | IL | 014d 3115 5915 |1 Y | 014f 317d 0549 |1} I| 0151 4905 64ee |I d | 0153 65b1 8d98 |e | 0155 5c00 5139 |\ Q9| 0157 5535 0915 |U5 | 0159 494c b931 |IL 1| 015b 1559 1531 | Y 1| 015d 7d39 5535 |}9U5| 015f 0915 4984 | I | 0161 2000 0000 | | 0163 0000 0000 | | 0165 0004 385c | 8\| 0167 0051 3955 | Q9U| 0169 3509 1549 |5 I| 016b 4cb9 3115 |L 1 | 016d 5915 317d |Y 1}| 016f 3955 3509 |9U5 | 0171 1548 5c00 | H\ | 0173 1131 054d | 1 M| 0175 5198 5c00 |Q \ | 0177 414d 5105 |AMQ | 0179 3911 0549 |9 I| 017b 10b9 2539 | %9| 017d 5115 1d15 |Q | 017f 4800 0008 |H | 0181 0000 00e4 | | 0183 0035 3d39 | 5=9| 0185 3125 3915 |1%9 | 0187 7d11 4925 |} I%| 0189 5915 4808 |Y H | 018b 0000 0004 | | 018d 0044 0000 | D | 018f 0004 001a | | 0191 64b6 0250 |d P| 0193 000c 0000 | | 0195 0004 0044 | D| 0197 0035 3d39 | 5=9| 0199 3125 3915 |1%9 | 019b 7d11 4925 |} I%| 019d 5915 48f9 |Y H | 019f f008 0000 | | 01a1 2b58 0049 |+X I| 01a3 3d55 5141 |=UQA| 01a5 5551 7d25 |UQ}%| 01a7 3951 1549 |9Q I| 01a9 4149 1551 |AI Q| 01ab 1548 0800 | H | 01ad 0000 0400 | | 01af 7800 0000 |x | 01b1 7800 1a64 |x d| 01b3 b602 5000 | P | 01b5 0c00 0000 | | 01b7 5001 4c00 |P L | 01b9 893d 5551 | =UQ| 01bb 4155 517d |AUQ}| 01bd 2539 5115 |%9Q | 01bf 4941 4915 |IAI | 01c1 5115 48b9 |Q H | 01c3 353d 5915 |5=Y | 01c5 7d21 3d49 |}!=I| 01c7 2569 3d39 |%i=9| 01c9 5105 30f5 |Q 0 | 01cb ee51 fa40 | Q @| 01cd 8c00 2121 | !!| 01cf 3d5d 7d35 |=]}5| 01d1 550d 205c |U \| 01d3 0069 193d | i =| 01d5 4935 0551 |I5 Q| 01d7 5115 497d |Q I}| 01d9 1d31 3d09 | 1= | 01db 0531 4cb9 | 1L | 01dd 1125 4d51 | %MQ| 01df 0539 0d14 | 9 | 01e1 0000 0000 | | 01e3 0028 015c | ( \| 01e5 008d 3d55 | =U| 01e7 5141 5551 |QAUQ| 01e9 7d25 3951 |}%9Q| 01eb 1549 4149 | IAI| 01ed 1551 1548 | Q H| 01ef b941 3d41 | A=A| 01f1 7d3d 5551 |}=UQ| 01f3 4155 517d |AUQ}| 01f5 4d51 050d |MQ | 01f7 2cf5 ea50 |, P| 01f9 5c00 ad3d |\ =| 01fb 5551 4155 |UQAU| 01fd 517d 2539 |Q}%9| 01ff 5115 |Q |