|
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_14864f3
└─⟦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 0078 | x | .CONST 0x0078 ; 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 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 001c | | .CONST 0x001c ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0002 | | .CONST 0x0002 ; Number of locals 001b INIT_0018: 001b 00e6 | | Load_Encached Float_Cache 001c BODY_0018: 001c 0092 0058 | X| Action Push_String_Extended,0x58 ; " this is a float number :" 001e 5835 |X5 | Indirect_Literal Float,0x54,1e+21 001f 8001 | | Call 0x0,0x1 0020 01cc | | Execute Vector,Catenate 0021 e002 | | Load 0x0,0x2 0022 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0023 0092 0059 | Y| Action Push_String_Extended,0x59 ; " this number :" 0025 582a |X* | Indirect_Literal Float,0x50,2.4999999999999996e+302 0026 8001 | | Call 0x0,0x1 0027 01cc | | Execute Vector,Catenate 0028 0092 005a | Z| Action Push_String_Extended,0x5a ; " is a float" 002a 01cc | | Execute Vector,Catenate 002b e002 | | Load 0x0,0x2 002c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 002d 0092 0059 | Y| Action Push_String_Extended,0x59 ; " this number :" 002f 581c |X | Indirect_Literal Float,0x4c,8.434999999999999e+302 0030 e003 | | Load 0x0,0x3 0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0032 e003 | | Load 0x0,0x3 0033 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0034 01cc | | Execute Vector,Catenate 0035 0092 005a | Z| Action Push_String_Extended,0x5a ; " is a float" 0037 01cc | | Execute Vector,Catenate 0038 e002 | | Load 0x0,0x2 0039 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 003a 0092 005b | [| Action Push_String_Extended,0x5b ; " 51" 003c e002 | | Load 0x0,0x2 003d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 003e 00e6 | | Load_Encached Float_Cache 003f 012c | , | Execute Any,Size 0040 00d8 | | Load_Top At_Offset_0 0041 00e2 | | Load_Encached Integer_Cache 0042 0260 | ` | Execute Discrete,In_Type 0043 7001 |p | Jump_Nonzero 0x45 0044 0801 | | Execute_Immediate Raise,0x1 0045 00e0 | | Load_Encached Standard_Cache 0046 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0047 e002 | | Load 0x0,0x2 0048 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0049 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004a 0000 0000 | | .XXX[0x2] 004c 7ed3 ae21 |~ !| .DBL 8.434999999999999e+302 004e 5c87 60e0 |\ ` | 0050 7eb7 54e3 |~ T | .DBL 2.4999999999999996e+302 0052 1cd0 72d9 | r | 0054 444b 1ae4 |DK | .DBL 1e+21 0056 d6e2 ef50 | P| 0058 ; -------------------------------------------------------------------------------------- 0058 ; STRING TABLE 0058 ; -------------------------------------------------------------------------------------- 0058 000a | | .STRTAB 0x000a->0x005d ; " this is a float number :" 0059 0021 | ! | .STRTAB 0x0021->0x0069 ; " this number :" 005a 002d | - | .STRTAB 0x002d->0x0070 ; " is a float" 005b 0036 | 6 | .STRTAB 0x0036->0x0076 ; " 51" 005c 0037 | 7 | .STREND 0x0037->0x0077 005d 2074 6869 | thi| .STRTAB_STRINGS 0078 ; -------------------------------------------------------------------------------------- 0078 ; Debug Table 0078 ; -------------------------------------------------------------------------------------- 0078 0004 0001 | | .DEBUG4 0x0004,0x0001,0xe27e,0x0000,0x0001,0x0002 007e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 0082 001b 0086 | | .DBG4T 0x001b,0x0086,0x8001,0x0000 0086 ; -------------------------------------------------------------------------------------- 0086 ; Debug chain 0086 ; -------------------------------------------------------------------------------------- 0086 0001 0005 | | .DBGLEN 0x0001,0x0005 0088 001b 001c | | .DBGLNO 0x001b,0x001c,0x0023,0x002d,0x003a,0x003e 008e 0000 0000 | | .BLANK 0000[0x172]