|
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_03bcfe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0070 | p | .CONST 0x0070 ; 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 0016 | | .CONST 0x0016 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e20e | | Load 0x1,0xe 000c 03d8 | | Declare_Variable Float,Duplicate 000d e20e | | Load 0x1,0xe 000e 03d8 | | Declare_Variable Float,Duplicate 000f 03d8 | | Declare_Variable Float,Duplicate 0010 5857 |XW | Indirect_Literal Float,0x68,0.6931471805599453 0011 e20e | | Load 0x1,0xe 0012 02bf | | Declare_Variable Float,With_Value,With_Constraint 0013 5850 |XP | Indirect_Literal Float,0x64,1.3862943611198906 0014 e20e | | Load 0x1,0xe 0015 02bf | | Declare_Variable Float,With_Value,With_Constraint 0016 BODY_0008: 0016 e5ff | | Load 0x2,-0x1 0017 7004 |p | Jump_Nonzero 0x1c 0018 e5ff | | Load 0x2,-0x1 0019 e20e | | Load 0x1,0xe 001a 0232 | 2 | Execute Float,Check_In_Type 001b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 001c e5ff | | Load 0x2,-0x1 001d 00d8 | | Load_Top At_Offset_0 001e e20e | | Load 0x1,0xe 001f 0234 | 4 | Execute Float,In_Type 0020 7001 |p | Jump_Nonzero 0x22 0021 0801 | | Execute_Immediate Raise,0x1 0022 c404 | | Store 0x2,0x4 0023 e404 | | Load 0x2,0x4 0024 023e | > | Execute Float,Absolute_Value 0025 c405 | | Store 0x2,0x5 0026 00db | | Load_Top At_Offset_3 0027 5838 |X8 | Indirect_Literal Float,0x60,1.0 0028 0247 | G | Execute Float,Equal 0029 6801 |h | Jump_Zero 0x2b 002a 08e0 | | Execute_Immediate Raise,0xe0 002b 00db | | Load_Top At_Offset_3 002c 5833 |X3 | Indirect_Literal Float,0x60,1.0 002d 0245 | E | Execute Float,Greater 002e 6802 |h | Jump_Zero 0x31 002f e006 | | Load 0x0,0x6 0030 0257 | W | Execute Discrete,Raise 0031 e404 | | Load 0x2,0x4 0032 014a | J | Execute Float,Greater_Equal_Zero 0033 6803 |h | Jump_Zero 0x37 0034 582b |X+ | Indirect_Literal Float,0x60,1.0 0035 c403 | | Store 0x2,0x3 0036 7802 |x | Jump 0x39 0037 5824 |X$ | Indirect_Literal Float,0x5c,-1.0 0038 c403 | | Store 0x2,0x3 0039 581e |X | Indirect_Literal Float,0x58,2.0 003a e405 | | Load 0x2,0x5 003b 023b | ; | Execute Float,Times 003c 5823 |X# | Indirect_Literal Float,0x60,1.0 003d e405 | | Load 0x2,0x5 003e 023c | < | Execute Float,Minus 003f 023a | : | Execute Float,Divide 0040 004b | K | Store_Top Float,At_Offset_3 0041 00da | | Load_Top At_Offset_2 0042 e20e | | Load 0x1,0xe 0043 0232 | 2 | Execute Float,Check_In_Type 0044 824c | L | Call 0x1,0x4c 0045 004b | K | Store_Top Float,At_Offset_3 0046 e403 | | Load 0x2,0x3 0047 580c |X | Indirect_Literal Float,0x54,0.5 0048 023b | ; | Execute Float,Times 0049 00db | | Load_Top At_Offset_3 004a 023b | ; | Execute Float,Times 004b c402 | | Store 0x2,0x2 004c e402 | | Load 0x2,0x2 004d 00d8 | | Load_Top At_Offset_0 004e e20e | | Load 0x1,0xe 004f 0234 | 4 | Execute Float,In_Type 0050 7001 |p | Jump_Nonzero 0x52 0051 0801 | | Execute_Immediate Raise,0x1 0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0053 0000 | | .XXX[0x1] 0054 3fe0 0000 |? | .DBL 0.5 0056 0000 0000 | | 0058 4000 0000 |@ | .DBL 2.0 005a 0000 0000 | | 005c bff0 0000 | | .DBL -1.0 005e 0000 0000 | | 0060 3ff0 0000 |? | .DBL 1.0 0062 0000 0000 | | 0064 3ff6 2e42 |? .B| .DBL 1.3862943611198906 0066 fefa 39ef | 9 | 0068 3fe6 2e42 |? .B| .DBL 0.6931471805599453 006a fefa 39ef | 9 | 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug Table 0070 ; -------------------------------------------------------------------------------------- 0070 0004 0001 | | .DEBUG4 0x0004,0x0001,0xf270,0x0000,0x0001,0x0001 0076 000b 007a | z| .DBG4T 0x000b,0x007a,0x1002,0x0000 007a ; -------------------------------------------------------------------------------------- 007a ; Debug chain 007a ; -------------------------------------------------------------------------------------- 007a 0004 000f | | .DBGLEN 0x0004,0x000f 007c 000b 000d | | .DBGLNO 0x000b,0x000d,0x0010,0x0013,0x0016,0x0018,0x001c,0x0023,0x0026,0x002a,0x002b,0x002f,0x0031,0x0034,0x0037,0x0039,0x0041,0x0046,0x004c 008f 0000 0000 | | .BLANK 0000[0x171]