|
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_c89cc3
└─⟦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 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 0000 | | .CONST 0x0000 ; 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 0007 | | .CONST 0x0007 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e003 | | Load 0x0,0x3 0011 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0012 4801 |H | Short_Literal 0x1 0013 4806 |H | Short_Literal 0x6 0014 00e9 | | Load_Encached String_Cache 0015 0334 | 4 | Declare_Variable Array,With_Constraint 0016 507d |P} | Indirect_Literal Any,0x94,{0x5443502f, 0x49502020} 0017 4800 |H | Short_Literal 0x0 0018 4801 |H | Short_Literal 0x1 0019 e004 | | Load 0x0,0x4 001a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 001b 035b | [ | Declare_Type Array,Constrained 001c 0337 | 7 | Declare_Variable Array 001d e5fd | | Load 0x2,-0x3 001e 09f8 | | Execute_Immediate Binary_Scale,-0x8 001f 00d8 | | Load_Top At_Offset_0 0020 e004 | | Load 0x0,0x4 0021 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0022 0260 | ` | Execute Discrete,In_Type 0023 7001 |p | Jump_Nonzero 0x25 0024 0801 | | Execute_Immediate Raise,0x1 0025 4800 |H | Short_Literal 0x0 0026 00da | | Load_Top At_Offset_2 0027 01d6 | | Execute Vector,Field_Write 0028 e5fd | | Load 0x2,-0x3 0029 48ff |H | Short_Literal 0xff 002a 0279 | y | Execute Discrete,And 002b 00d8 | | Load_Top At_Offset_0 002c e004 | | Load 0x0,0x4 002d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 002e 0260 | ` | Execute Discrete,In_Type 002f 7001 |p | Jump_Nonzero 0x31 0030 0801 | | Execute_Immediate Raise,0x1 0031 4801 |H | Short_Literal 0x1 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 e5fe | | Load 0x2,-0x2 0035 e005 | | Load 0x0,0x5 0036 180e | | Execute Package,Field_Execute,Field_Number 0xe 0037 00e3 | | Load_Encached Natural_Cache 0038 BODY_0008: 0038 e003 | | Load 0x0,0x3 0039 1b19 | | Execute Package,Field_Read,Field_Number 0x19 003a e402 | | Load 0x2,0x2 003b 0120 | | Execute Any,Is_Value 003c 6803 |h | Jump_Zero 0x40 003d e002 | | Load 0x0,0x2 003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003f 7801 |x | Jump 0x41 0040 e402 | | Load 0x2,0x2 0041 e003 | | Load 0x0,0x3 0042 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0043 e404 | | Load 0x2,0x4 0044 e002 | | Load 0x0,0x2 0045 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0046 c402 | | Store 0x2,0x2 0047 c403 | | Store 0x2,0x3 0048 e403 | | Load 0x2,0x3 0049 6803 |h | Jump_Zero 0x4d 004a 4803 |H | Short_Literal 0x3 004b a5fa | | Store_Unchecked 0x2,-0x6 004c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 004d 00cf | | Action Mark_Auxiliary 004e e5fc | | Load 0x2,-0x4 004f 4801 |H | Short_Literal 0x1 0050 0263 | c | Execute Discrete,Above_Bound 0051 701b |p | Jump_Nonzero 0x6d 0052 e003 | | Load 0x0,0x3 0053 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0054 603b |`; | Indirect_Literal Discrete,0x90,{0x00007fff, 0xffffffff} 0055 e405 | | Load 0x2,0x5 0056 e406 | | Load 0x2,0x6 0057 e402 | | Load 0x2,0x2 0058 e002 | | Load 0x0,0x2 0059 181c | | Execute Package,Field_Execute,Field_Number 0x1c 005a c403 | | Store 0x2,0x3 005b e403 | | Load 0x2,0x3 005c 7002 |p | Jump_Nonzero 0x5f 005d 00d2 | | Pop_Control Pop_Count_2 005e 780e |x | Jump 0x6d 005f 00d8 | | Load_Top At_Offset_0 0060 e5fc | | Load 0x2,-0x4 0061 027f | | Execute Discrete,Equal 0062 6806 |h | Jump_Zero 0x69 0063 4803 |H | Short_Literal 0x3 0064 a5fa | | Store_Unchecked 0x2,-0x6 0065 e402 | | Load 0x2,0x2 0066 e002 | | Load 0x0,0x2 0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0068 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0069 e5fb | | Load 0x2,-0x5 006a 00ba | | Action Initiate_Delay 006b 00c8 | | Action Pop_Auxiliary_Range 006c 3fe5 |? | Loop_Increasing 0x52 006d 00ce | | Action Pop_Auxiliary 006e 00e3 | | Load_Encached Natural_Cache 006f e003 | | Load 0x0,0x3 0070 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0071 4800 |H | Short_Literal 0x0 0072 601d |` | Indirect_Literal Discrete,0x90,{0x00007fff, 0xffffffff} 0073 e5ff | | Load 0x2,-0x1 0074 8006 | | Call 0x0,0x6 0075 e402 | | Load 0x2,0x2 0076 e002 | | Load 0x0,0x2 0077 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0078 c403 | | Store 0x2,0x3 0079 0059 | Y | Store_Top Discrete,At_Offset_1 007a e403 | | Load 0x2,0x3 007b 6803 |h | Jump_Zero 0x7f 007c 4803 |H | Short_Literal 0x3 007d a5fa | | Store_Unchecked 0x2,-0x6 007e 4506 |E | Exit_Suprogram New_Top_Offset 0x6 007f 00d8 | | Load_Top At_Offset_0 0080 e5ff | | Load 0x2,-0x1 0081 01db | | Execute Vector,Length 0082 027e | ~ | Execute Discrete,Not_Equal 0083 6803 |h | Jump_Zero 0x87 0084 4802 |H | Short_Literal 0x2 0085 a5fa | | Store_Unchecked 0x2,-0x6 0086 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0087 4800 |H | Short_Literal 0x0 0088 a5fa | | Store_Unchecked 0x2,-0x6 0089 e402 | | Load 0x2,0x2 008a e002 | | Load 0x0,0x2 008b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 008c 4506 |E | Exit_Suprogram New_Top_Offset 0x6 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 0094 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020} 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug Table 0098 ; -------------------------------------------------------------------------------------- 0098 0004 0009 | | .DEBUG4 0x0004,0x0009,0x09ac,0x0000,0x0001,0x0001 009e 000b 00a2 | | .DBG4T 0x000b,0x00a2,0x0001,0x8000 00a2 ; -------------------------------------------------------------------------------------- 00a2 ; Debug chain 00a2 ; -------------------------------------------------------------------------------------- 00a2 0006 0016 | | .DBGLEN 0x0006,0x0016 00a4 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0017,0x0034,0x0037,0x0038,0x0048,0x004a,0x004c,0x004e,0x0052,0x005b,0x005d,0x005f,0x0063,0x0065,0x0068,0x0069,0x006e,0x007a,0x007c,0x007e,0x007f,0x0084,0x0086,0x0087,0x0089 00c0 0001 0002 | | .XXX[0x6] 00c2 0003 0005 | | 00c4 0006 0007 | | 00c6 0000 0000 | | .BLANK 0000[0x13a]