|
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_03b8fe
└─⟦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 0090 | | .CONST 0x0090 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e 4800 |H | Short_Literal 0x0 000f 4bff |K | Short_Literal 0x3ff 0010 00e3 | | Load_Encached Natural_Cache 0011 03f9 | | Declare_Type Discrete,Constrained,Visible 0012 4800 |H | Short_Literal 0x0 0013 481f |H | Short_Literal 0x1f 0014 00e3 | | Load_Encached Natural_Cache 0015 03f9 | | Declare_Type Discrete,Constrained,Visible 0016 4800 |H | Short_Literal 0x0 0017 481f |H | Short_Literal 0x1f 0018 00e3 | | Load_Encached Natural_Cache 0019 03f9 | | Declare_Type Discrete,Constrained,Visible 001a 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 001c 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 001e 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0020 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0022 00bf | | Action Accept_Activation 0023 0092 0087 | | Action Push_String_Extended,0x87 ; "REGISTERS" 0025 e002 | | Load 0x0,0x2 0026 e003 | | Load 0x0,0x3 0027 e20d | | Load 0x1,0xd 0028 e004 | | Load 0x0,0x4 0029 0387 | | Declare_Variable Package 002a 00d8 | | Load_Top At_Offset_0 002b 020f | | Execute Module,Activate 002c 00d8 | | Load_Top At_Offset_0 002d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002e 00e1 | | Load_Encached Boolean_Cache 002f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0031 00c7 | | Action Elaborate_Subprogram 0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0033 00c7 | | Action Elaborate_Subprogram 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 BODY_0008: 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 e218 | | Load 0x1,0x18 0044 6801 |h | Jump_Zero 0x46 0045 08e2 | | Execute_Immediate Raise,0xe2 0046 e217 | | Load 0x1,0x17 0047 00ea | | Load_Encached Null_String_Cache 0048 482e |H. | Short_Literal 0x2e 0049 e5ff | | Load 0x2,-0x1 004a 01cb | | Execute Vector,Append 004b e215 | | Load 0x1,0x15 004c 01cc | | Execute Vector,Catenate 004d 4800 |H | Short_Literal 0x0 004e e216 | | Load 0x1,0x16 004f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0050 c217 | | Store 0x1,0x17 0051 4801 |H | Short_Literal 0x1 0052 a218 | | Store_Unchecked 0x1,0x18 0053 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005d | ] | .CONST 0x005d ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b e20d | | Load 0x1,0xd 005c 0322 | " | Declare_Variable Record 005d BODY_0058: 005d e218 | | Load 0x1,0x18 005e 680f |h | Jump_Zero 0x6e 005f 00d8 | | Load_Top At_Offset_0 0060 e5ff | | Load 0x2,-0x1 0061 0a01 | | Execute_Immediate Plus,0x1 0062 00d8 | | Load_Top At_Offset_0 0063 e216 | | Load 0x1,0x16 0064 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0065 0260 | ` | Execute Discrete,In_Type 0066 7001 |p | Jump_Nonzero 0x68 0067 0801 | | Execute_Immediate Raise,0x1 0068 e217 | | Load 0x1,0x17 0069 e216 | | Load 0x1,0x16 006a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 006b 00d1 | | Pop_Control Pop_Count_1 006c 00d8 | | Load_Top At_Offset_0 006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006e 08e2 | | Execute_Immediate Raise,0xe2 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 00da | | Load_Top At_Offset_2 0074 0905 | | Execute_Immediate Binary_Scale,0x5 0075 e5fe | | Load 0x2,-0x2 0076 0273 | s | Execute Discrete,Plus 0077 00d8 | | Load_Top At_Offset_0 0078 e20e | | Load 0x1,0xe 0079 0260 | ` | Execute Discrete,In_Type 007a 7001 |p | Jump_Nonzero 0x7c 007b 0801 | | Execute_Immediate Raise,0x1 007c 8212 | | Call 0x1,0x12 007d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 e005 | | Load 0x0,0x5 0085 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0087 ; -------------------------------------------------------------------------------------- 0087 ; STRING TABLE 0087 ; -------------------------------------------------------------------------------------- 0087 0004 | | .STRTAB 0x0004->0x0089 ; "REGISTERS" 0088 000b | | .STREND 0x000b->0x008d 0089 5245 4749 |REGI| .STRTAB_STRINGS 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; Debug Table 0090 ; -------------------------------------------------------------------------------------- 0090 0004 000e | | .DEBUG4 0x0004,0x000e,0x1ec9,0x0000,0x0001,0x0000 0096 2026 0004 | & | .XXX[0x3b] 0098 e800 8b00 | | 009a 0000 0000 | | 009c 003b 9000 | ; | 009e 0000 f6e0 | | 00a0 2100 0000 |! | 00a2 0000 000e | | 00a4 8000 0000 | | 00a6 4000 0000 |@ | 00a8 0000 0000 | | 00aa 0003 bf80 | | 00ac 8000 0000 | | 00ae 0000 005c | \| 00b0 a000 0001 | | 00b2 34c0 0000 |4 | 00b4 0621 0000 | ! | 00b6 0017 f400 | | 00b8 0000 6c80 | l | 00ba 0000 0195 | | 00bc 2000 0000 | | 00be 0000 0000 | | 00c0 1aee 0000 | | 00c2 005d e800 | ] | 00c4 0001 6ec0 | n | 00c6 0000 0408 | | 00c8 8083 0016 | | 00ca 0400 0000 | | 00cc 3eb0 0890 |> | 00ce 0151 0022 | Q "| 00d0 8000 | | 00d1 0000 0000 | | .BLANK 0000[0x4] 00d5 003d 1800 | = | .XXX[0x2] 00d7 0000 0000 | | .BLANK 0000[0x5] 00dc 0018 2a02 | * | .XXX[0xc] 00de 7800 4bf0 |x K | 00e0 0000 0118 | | 00e2 4020 4000 |@ @ | 00e4 0000 0000 | | 00e6 107a 0214 | z | 00e8 0000 0000 | | .BLANK 0000[0x5] 00ed 042d 0000 | - | .XXX[0x4] 00ef 0013 7e00 | ~ | 00f1 0000 0000 | | .BLANK 0000[0x8] 00f9 1708 026c | l| .XXX[0x2] 00fb 0000 0000 | | .BLANK 0000[0x7] 0102 0019 9602 | | .XXX[0x9] 0104 4c00 71a8 |L q | 0106 0000 0000 | | 0108 0000 0004 | | 010a a200 | | 010b 0000 0000 | | .BLANK 0000[0x5] 0110 0001 4580 | E | .XXX[0xc] 0112 0000 0000 | | 0114 0000 0015 | | 0116 5002 4800 |P H | 0118 0000 0000 | | 011a 0105 2000 | | 011c 0000 0000 | | .BLANK 0000[0x5] 0121 006e b000 | n | .XXX[0x4] 0123 0001 1300 | | 0125 0000 0000 | | .BLANK 0000[0x6] 012b 5788 0950 |W P| .XXX[0x2] 012d 0000 0000 | | .BLANK 0000[0x5] 0132 17bc 0000 | | .XXX[0xf] 0134 005d 4000 | ]@ | 0136 0000 fda0 | | 0138 2700 06b4 |' | 013a 8000 000f | | 013c 2a02 0800 |* | 013e 4520 0000 |E | 0140 00f9 | | 0141 0000 0000 | | .BLANK 0000[0x4] 0145 1916 0000 | | .XXX[0xd] 0147 0048 8809 | H | 0149 6000 0000 |` | 014b 0000 05e6 | | 014d 8000 000e | | 014f 8e00 0000 | | 0151 73b8 |s | 0152 0000 0000 | | .BLANK 0000[0x6] 0158 19fe 025c | \| .XXX[0x7] 015a 004a f008 | J | 015c e000 e540 | @| 015e 2400 |$ | 015f 0000 0000 | | .BLANK 0000[0x5] 0164 5638 08d0 |V8 | .XXX[0x2] 0166 0000 0000 | | .BLANK 0000[0x9] 016f 0001 a200 | | .XXX[0x4e] 0171 0000 0000 | | 0173 0000 0011 | | 0175 1002 6400 | d | 0177 46a0 0000 |F | 0179 0124 4000 | $@ | 017b 0004 9e00 | | 017d 0000 13c4 | | 017f 0000 004f | O| 0181 8800 0001 | | 0183 4080 0000 |@ | 0185 050b 8088 | | 0187 0014 a400 | | 0189 0000 5388 | S | 018b 09d0 0153 | S| 018d 0000 0005 | | 018f 7000 0000 |p | 0191 1632 0000 | 2 | 0193 005a 6800 | Zh | 0195 0001 6c60 | l`| 0197 0000 05f4 | | 0199 8000 0018 | | 019b 1400 0000 | | 019d 62a8 0000 |b | 019f 0193 6000 | ` | 01a1 0006 7200 | r | 01a3 0000 1a4c | L| 01a5 0000 0069 | i| 01a7 e800 0001 | | 01a9 aa80 0000 | | 01ab 06d5 8000 | | 01ad 001b 7600 | v | 01af 0000 6ef8 | n | 01b1 0000 01bd | | 01b3 a000 0006 | | 01b5 ff80 0000 | | 01b7 1c50 0000 | P | 01b9 0072 4800 | rH | 01bb 0001 cca0 | | 01bd 0000 0000 | | .BLANK 0000[0x43]