|
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_5f28f0
└─⟦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 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 002a | * | .CONST 0x002a ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0004 | | .CONST 0x0004 ; Number of locals 001b INIT_0018: 001b 0007 | | Action Break_Optional 001c 0007 | | Action Break_Optional 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 e002 | | Load 0x0,0x2 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0025 02c7 | | Declare_Variable Any 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 002a BODY_0018: 002a 4801 |H | Short_Literal 0x1 002b e002 | | Load 0x0,0x2 002c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002e e5ff | | Load 0x2,-0x1 002f e002 | | Load 0x0,0x2 0030 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0031 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0032 c403 | | Store 0x2,0x3 0033 00d9 | | Load_Top At_Offset_1 0034 e002 | | Load 0x0,0x2 0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0036 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0037 6807 |h | Jump_Zero 0x3f 0038 e003 | | Load 0x0,0x3 0039 180e | | Execute Package,Field_Execute,Field_Number 0xe 003a 00da | | Load_Top At_Offset_2 003b e002 | | Load 0x0,0x2 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 003e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 003f 00da | | Load_Top At_Offset_2 0040 00ea | | Load_Encached Null_String_Cache 0041 e5fe | | Load 0x2,-0x2 0042 4801 |H | Short_Literal 0x1 0043 e001 | | Load 0x0,0x1 0044 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0045 c402 | | Store 0x2,0x2 0046 00cf | | Action Mark_Auxiliary 0047 780e |x | Jump 0x56 0048 00da | | Load_Top At_Offset_2 0049 e002 | | Load 0x0,0x2 004a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 004c 8404 | | Call 0x2,0x4 004d e402 | | Load 0x2,0x2 004e e001 | | Load 0x0,0x1 004f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0050 00da | | Load_Top At_Offset_2 0051 e002 | | Load 0x0,0x2 0052 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0053 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0054 c403 | | Store 0x2,0x3 0055 00c9 | | Action Pop_Auxiliary_Loop 0056 00da | | Load_Top At_Offset_2 0057 e002 | | Load 0x0,0x2 0058 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0059 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 005a 6fed |o | Jump_Zero 0x48 005b 00ce | | Action Pop_Auxiliary 005c 00da | | Load_Top At_Offset_2 005d e001 | | Load 0x0,0x1 005e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005f c402 | | Store 0x2,0x2 0060 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0061 0000 0000 | | .BLANK 0000[0x7] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 007e | ~ | .CONST 0x007e ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c e002 | | Load 0x0,0x2 006d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 006f 00d8 | | Load_Top At_Offset_0 0070 e002 | | Load 0x0,0x2 0071 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0072 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0073 00d9 | | Load_Top At_Offset_1 0074 01dd | | Execute Vector,First 0075 00e3 | | Load_Encached Natural_Cache 0076 4801 |H | Short_Literal 0x1 0077 e602 | | Load 0x3,0x2 0078 e603 | | Load 0x3,0x3 0079 e004 | | Load 0x0,0x4 007a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 007b 0267 | g | Execute Discrete,Predecessor 007c 00e3 | | Load_Encached Natural_Cache 007d 03f8 | | Declare_Type Discrete,Constrained 007e BODY_0068: 007e 00d9 | | Load_Top At_Offset_1 007f 01db | | Execute Vector,Length 0080 7002 |p | Jump_Nonzero 0x83 0081 00da | | Load_Top At_Offset_2 0082 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0083 00d8 | | Load_Top At_Offset_0 0084 0266 | f | Execute Discrete,Bounds 0085 e602 | | Load 0x3,0x2 0086 01cf | | Execute Vector,Slice_Read 0087 00db | | Load_Top At_Offset_3 0088 e002 | | Load 0x0,0x2 0089 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 008b 01cc | | Execute Vector,Catenate 008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; Debug Table 0090 ; -------------------------------------------------------------------------------------- 0090 0004 000a | | .DEBUG4 0x0004,0x000a,0x9f11,0x0000,0x0001,0x0000 0096 0000 0000 | | .XXX[0x7] 0098 4000 0002 |@ | 009a 9000 1580 | | 009c 901a | | 009d 0000 0000 | | .BLANK 0000[0x1b] 00b8 0040 0010 | @ | .XXX[0x1f] 00ba b810 080d | | 00bc 9e10 0001 | | 00be 6865 4970 |heIp| 00c0 1000 8000 | | 00c2 9900 0000 | | 00c4 0505 4000 | @ | 00c6 5700 0000 |W | 00c8 2300 2800 |# ( | 00ca 0005 1000 | | 00cc 0002 0000 | | 00ce 0011 0000 | | 00d0 0000 0800 | | 00d2 0000 5200 | R | 00d4 02b0 1203 | | 00d6 4000 |@ | 00d7 0000 0000 | | .BLANK 0000[0x1a] 00f1 0008 0002 | | .XXX[0x1f] 00f3 1702 0101 | | 00f5 b3c2 0000 | | 00f7 2d0c a92e |- .| 00f9 0200 1000 | | 00fb 1320 0000 | | 00fd 00a0 a800 | | 00ff 0ae0 0000 | | 0101 0460 0500 | ` | 0103 0000 a200 | | 0105 0000 4000 | @ | 0107 0002 2000 | | 0109 0000 0100 | | 010b 0000 0a40 | @| 010d 0056 0240 | V @| 010f 6800 |h | 0110 0000 0000 | | .BLANK 0000[0x1a] 012a 0001 0000 | | .XXX[0x3] 012c 42e0 |B | 012d 0000 0000 | | .BLANK 0000[0xd] 013a 0004 00a0 | | .XXX[0xc] 013c 0000 0000 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0140 | @| 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]