|
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_779ce4
└─⟦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 0068 | h | .CONST 0x0068 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 005f | _ | .CONST 0x005f ; Address of exception handler 000a 0007 | | .CONST 0x0007 ; Number of locals 000b INIT_0008: 000b e009 | | Load 0x0,0x9 000c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e009 | | Load 0x0,0x9 0011 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 00e2 | | Load_Encached Integer_Cache 0016 e009 | | Load 0x0,0x9 0017 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0018 00e1 | | Load_Encached Boolean_Cache 0019 e009 | | Load 0x0,0x9 001a 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 001b 0322 | " | Declare_Variable Record 001c BODY_0008: 001c 4800 |H | Short_Literal 0x0 001d a5fd | | Store_Unchecked 0x2,-0x3 001e e009 | | Load 0x0,0x9 001f 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0020 e009 | | Load 0x0,0x9 0021 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0022 e009 | | Load 0x0,0x9 0023 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0024 c402 | | Store 0x2,0x2 0025 e009 | | Load 0x0,0x9 0026 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0027 e402 | | Load 0x2,0x2 0028 e009 | | Load 0x0,0x9 0029 184d | M | Execute Package,Field_Execute,Field_Number 0x4d 002a c403 | | Store 0x2,0x3 002b e403 | | Load 0x2,0x3 002c e009 | | Load 0x0,0x9 002d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 002e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 002f 4fff |O | Short_Literal -0x1 0030 a404 | | Store_Unchecked 0x2,0x4 0031 00cf | | Action Mark_Auxiliary 0032 e404 | | Load 0x2,0x4 0033 e405 | | Load 0x2,0x5 0034 0275 | u | Execute Discrete,Unary_Minus 0035 027a | z | Execute Discrete,Less_Equal 0036 7027 |p' | Jump_Nonzero 0x5e 0037 00db | | Load_Top At_Offset_3 0038 e404 | | Load 0x2,0x4 0039 0273 | s | Execute Discrete,Plus 003a e009 | | Load 0x0,0x9 003b 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 003c 00d9 | | Load_Top At_Offset_1 003d 00d0 | | Action Swap_Control 003e 0260 | ` | Execute Discrete,In_Type 003f 7001 |p | Jump_Nonzero 0x41 0040 0801 | | Execute_Immediate Raise,0x1 0041 e402 | | Load 0x2,0x2 0042 e009 | | Load 0x0,0x9 0043 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b 0044 00da | | Load_Top At_Offset_2 0045 017d | } | Execute Record,Structure_Write 0046 00d9 | | Load_Top At_Offset_1 0047 e009 | | Load 0x0,0x9 0048 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 0049 0f7e | ~ | Execute_Immediate Equal,0x7e 004a 7004 |p | Jump_Nonzero 0x4f 004b e404 | | Load 0x2,0x4 004c 0aff | | Execute_Immediate Plus,-0x1 004d c404 | | Store 0x2,0x4 004e 780d |x | Jump 0x5c 004f e404 | | Load 0x2,0x4 0050 4802 |H | Short_Literal 0x2 0051 009c | | Action Load_Dynamic 0052 0107 | | Execute Exception,Get_Name 0053 c5ff | | Store 0x2,-0x1 0054 e404 | | Load 0x2,0x4 0055 4802 |H | Short_Literal 0x2 0056 009c | | Action Load_Dynamic 0057 0106 | | Execute Exception,Address 0058 c5fe | | Store 0x2,-0x2 0059 4801 |H | Short_Literal 0x1 005a a5fd | | Store_Unchecked 0x2,-0x3 005b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005c 00c9 | | Action Pop_Auxiliary_Loop 005d 7fd4 | | Jump 0x32 005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005f TRAP_0008: 005f 0007 | | Action Break_Optional 0060 4800 |H | Short_Literal 0x0 0061 a5fd | | Store_Unchecked 0x2,-0x3 0062 4800 |H | Short_Literal 0x0 0063 a5ff | | Store_Unchecked 0x2,-0x1 0064 4800 |H | Short_Literal 0x0 0065 a5fe | | Store_Unchecked 0x2,-0x2 0066 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5dde,0x0000,0x0001,0x0000 006e 0000 0000 | | .BLANK 0000[0x192]