|
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_0694fc
└─⟦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 00b0 | | .CONST 0x00b0 ; 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 002c | , | .CONST 0x002c ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0006 | | .CONST 0x0006 ; Number of locals 001b INIT_0018: 001b 0092 0065 | e| Action Push_String_Extended,0x65 ; "Rational_Access Commands Rev 1_0_2" 001d e001 | | Load 0x0,0x1 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 02c7 | | Declare_Variable Any 0020 00d8 | | Load_Top At_Offset_0 0021 1c00 | | Execute_Immediate Run_Utility,0x0 0022 4864 |Hd | Short_Literal 0x64 0023 e002 | | Load 0x0,0x2 0024 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0025 1c08 | | Execute_Immediate Run_Utility,0x8 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 002a 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 002c BODY_0018: 002c 8406 | | Call 0x2,0x6 002d 0092 0066 | f| Action Push_String_Extended,0x66 ; "Rational_Access Commands Rev 1_0_2\x5c" 002f 00db | | Load_Top At_Offset_3 0030 e002 | | Load 0x0,0x2 0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0032 01cc | | Execute Vector,Catenate 0033 00ca | | Action Exit_Nullary_Function 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 4801 |H | Short_Literal 0x1 003c 00db | | Load_Top At_Offset_3 003d 0092 0067 | g| Action Push_String_Extended,0x67 ; "version" 003f e003 | | Load 0x0,0x3 0040 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0041 6805 |h | Jump_Zero 0x47 0042 e404 | | Load 0x2,0x4 0043 00db | | Load_Top At_Offset_3 0044 e002 | | Load 0x0,0x2 0045 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0046 00d1 | | Pop_Control Pop_Count_1 0047 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0063 | c | .CONST 0x0063 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b e403 | | Load 0x2,0x3 004c 00ea | | Load_Encached Null_String_Cache 004d 0092 0068 | h| Action Push_String_Extended,0x68 ; "!Machine.Editor_Data.Rational_Access_Commands'body" 004f 4800 |H | Short_Literal 0x0 0050 e001 | | Load 0x0,0x1 0051 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0052 c403 | | Store 0x2,0x3 0053 00cf | | Action Mark_Auxiliary 0054 480a |H | Short_Literal 0xa 0055 4801 |H | Short_Literal 0x1 0056 0007 | | Action Break_Optional 0057 e403 | | Load 0x2,0x3 0058 e001 | | Load 0x0,0x1 0059 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 005a 8405 | | Call 0x2,0x5 005b 00c8 | | Action Pop_Auxiliary_Range 005c 3ffa |? | Loop_Increasing 0x57 005d 00ce | | Action Pop_Auxiliary 005e e403 | | Load 0x2,0x3 005f e001 | | Load 0x0,0x1 0060 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0061 c403 | | Store 0x2,0x3 0062 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0063 TRAP_0048: 0063 0007 | | Action Break_Optional 0064 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0065 ; -------------------------------------------------------------------------------------- 0065 ; STRING TABLE 0065 ; -------------------------------------------------------------------------------------- 0065 000a | | .STRTAB 0x000a->0x006a ; "Rational_Access Commands Rev 1_0_2" 0066 002a | * | .STRTAB 0x002a->0x007b ; "Rational_Access Commands Rev 1_0_2\x5c" 0067 004b | K | .STRTAB 0x004b->0x008c ; "version" 0068 0050 | P | .STRTAB 0x0050->0x0090 ; "!Machine.Editor_Data.Rational_Access_Commands'body" 0069 0080 | | .STREND 0x0080->0x00a9 006a 5261 7469 |Rati| .STRTAB_STRINGS 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; Debug Table 00b0 ; -------------------------------------------------------------------------------------- 00b0 0004 0012 | | .DEBUG4 0x0004,0x0012,0x79ca,0x0000,0x0001,0x0000 00b6 78c8 0000 |x | .XXX[0x8a] 00b8 bb77 7000 | wp | 00ba 0000 0005 | | 00bc 0352 a804 | R | 00be f49a 8005 | | 00c0 4aaf c421 |J !| 00c2 bc54 0000 | T | 00c4 1a27 2000 | ' | 00c6 0000 0002 | | 00c8 81b2 5801 | X | 00ca 0834 0000 | 4 | 00cc 06b4 0c00 | | 00ce 0000 0000 | | 00d0 0000 0021 | !| 00d2 bc54 0000 | T | 00d4 1a27 2000 | ' | 00d6 0000 0000 | | 00d8 0000 0001 | | 00da 0834 0000 | 4 | 00dc 06b4 0c00 | | 00de 0000 0002 | | 00e0 81b4 5821 | X!| 00e2 bc64 0000 | d | 00e4 5dbb b800 |] | 00e6 0000 0002 | | 00e8 81b6 5800 | X | 00ea 0000 0002 | | 00ec be23 1a00 | # | 00ee 841a 0000 | | 00f0 01cc b400 | | 00f2 0000 0000 | | 00f4 0000 0010 | | 00f6 de2a 0000 | * | 00f8 12a8 a200 | | 00fa 0000 0001 | | 00fc 40dd ae10 |@ | 00fe de32 0000 | 2 | 0100 2edd dc00 |. | 0102 0000 0001 | | 0104 40de ae01 |@ | 0106 3d2f a401 |=/ | 0108 5f13 0e08 |_ | 010a 6f15 0000 |o | 010c 0954 5100 | TQ | 010e 0000 0000 | | 0110 0000 0008 | | 0112 6f19 0000 |o | 0114 2a03 cf08 |* | 0116 6f19 0000 |o | 0118 176e ee00 | n | 011a 0000 0000 | | 011c acae 4684 | F | 011e 378c 8000 |7 | 0120 1501 e780 | | 0122 0000 0000 | | 0124 5046 0bff |PF | 0126 d000 0000 | | 0128 6000 0000 |` | 012a 0009 eb5c | \| 012c 4000 0000 |@ | 012e 0000 0000 | | 0130 0086 f190 | | 0132 0001 7779 | wy| 0134 2086 f190 | | 0136 0001 7779 | wy| 0138 2000 0000 | | 013a 0000 0000 | | 013c 004b c990 | K | 013e 0000 0cf5 | | 0140 0000 0000 | | .BLANK 0000[0x4] 0144 004b c990 | K | .XXX[0x4] 0146 0000 0cf5 | | 0148 0000 0000 | | .BLANK 0000[0x4] 014c 0086 f190 | | .XXX[0x77] 014e 0001 ddd3 | | 0150 3000 0000 |0 | 0152 29d8 56e4 |) V | 0154 2c02 81d1 |, | 0156 1000 0000 | | 0158 0000 0000 | | 015a 0012 f264 | d| 015c 0000 033d | =| 015e 4000 0000 |@ | 0160 0000 0000 | | 0162 0021 bc64 | ! d| 0164 0000 5dc9 | ] | 0166 3800 0000 |8 | 0168 0002 81d6 | | 016a 9800 0000 | | 016c 0000 0000 | | 016e 0009 7932 | y2| 0170 0000 019e | | 0172 a000 0000 | | 0174 0000 0000 | | 0176 0010 de32 | 2| 0178 0000 2ee4 | . | 017a 9c00 0000 | | 017c 0001 40ed | @ | 017e ce00 0000 | | 0180 0000 0000 | | 0182 0004 bc99 | | 0184 0000 061a | | 0186 b300 0000 | | 0188 0000 0000 | | 018a 0008 6f19 | o | 018c 0000 1773 | s| 018e e800 0000 | | 0190 0000 a078 | x| 0192 2800 0000 |( | 0194 0000 0000 | | 0196 0002 5e4c | ^L| 0198 8000 030d | | 019a 5980 0000 |Y | 019c 0000 0000 | | 019e 0004 378c | 7 | 01a0 8000 0bb9 | | 01a2 f400 0000 | | 01a4 0000 503c | P<| 01a6 b480 0000 | | 01a8 0000 0000 | | 01aa 0001 2f26 | /&| 01ac 4000 019c |@ | 01ae 92c0 0000 | | 01b0 0000 0000 | | 01b2 0002 1bc6 | | 01b4 4000 05dd |@ | 01b6 7400 0000 |t | 01b8 0000 281e | ( | 01ba aa80 269b | & | 01bc 0140 2988 | @) | 01be 2ba1 0de3 |+ | 01c0 2000 02ee | | 01c2 7d00 |} | 01c3 0000 0000 | | .BLANK 0000[0x8] 01cb 86f1 9000 | | .XXX[0x4] 01cd 0177 3e80 | w> | 01cf 0000 0000 | | .BLANK 0000[0x8] 01d7 25e4 c800 |% | .XXX[0x4] 01d9 0033 9258 | 3 X| 01db 0000 0000 | | .BLANK 0000[0x4] 01df 25e4 c800 |% | .XXX[0x4] 01e1 0033 9258 | 3 X| 01e3 0000 0000 | | .BLANK 0000[0x4] 01e7 25e4 c800 |% | .XXX[0x4] 01e9 0033 9258 | 3 X| 01eb 0000 0000 | | .BLANK 0000[0x4] 01ef 4378 a800 |Cx | .XXX[0x4] 01f1 003a 6b40 | :k@| 01f3 0000 0000 | | .BLANK 0000[0x4] 01f7 4378 a800 |Cx | .XXX[0x4] 01f9 003a 6b40 | :k@| 01fb 0000 0000 | | .BLANK 0000[0x4] 01ff 4378 |Cx | .XXX[0x1]