|
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_2140b1
└─⟦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 0058 | X | .CONST 0x0058 ; 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 0032 | 2 | .CONST 0x0032 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e e002 | | Load 0x0,0x2 000f 0337 | 7 | Declare_Variable Array 0010 4801 |H | Short_Literal 0x1 0011 4806 |H | Short_Literal 0x6 0012 e003 | | Load 0x0,0x3 0013 035b | [ | Declare_Type Array,Constrained 0014 0337 | 7 | Declare_Variable Array 0015 4805 |H | Short_Literal 0x5 0016 4801 |H | Short_Literal 0x1 0017 00da | | Load_Top At_Offset_2 0018 01d6 | | Execute Vector,Field_Write 0019 480d |H | Short_Literal 0xd 001a 4802 |H | Short_Literal 0x2 001b 00da | | Load_Top At_Offset_2 001c 01d6 | | Execute Vector,Field_Write 001d 4810 |H | Short_Literal 0x10 001e 4803 |H | Short_Literal 0x3 001f 00da | | Load_Top At_Offset_2 0020 01d6 | | Execute Vector,Field_Write 0021 480e |H | Short_Literal 0xe 0022 4804 |H | Short_Literal 0x4 0023 00da | | Load_Top At_Offset_2 0024 01d6 | | Execute Vector,Field_Write 0025 4811 |H | Short_Literal 0x11 0026 4805 |H | Short_Literal 0x5 0027 00da | | Load_Top At_Offset_2 0028 01d6 | | Execute Vector,Field_Write 0029 480f |H | Short_Literal 0xf 002a 4806 |H | Short_Literal 0x6 002b 00da | | Load_Top At_Offset_2 002c 01d6 | | Execute Vector,Field_Write 002d 8004 | | Call 0x0,0x4 002e 00d9 | | Load_Top At_Offset_1 002f 01d4 | | Execute Vector,Structure_Write 0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0031 00c7 | | Action Elaborate_Subprogram 0032 BODY_0008: 0032 00bc | | Action Signal_Activated 0033 00bb | | Action Signal_Completion 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e20e | | Load 0x1,0xe 003c 8005 | | Call 0x0,0x5 003d 8006 | | Call 0x0,0x6 003e 6804 |h | Jump_Zero 0x43 003f 8005 | | Call 0x0,0x5 0040 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0041 8007 | | Call 0x0,0x7 0042 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0043 0092 0047 | G| Action Push_String_Extended,0x47 ; "Operateur de test inconnu" 0045 8008 | | Call 0x0,0x8 0046 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0047 ; -------------------------------------------------------------------------------------- 0047 ; STRING TABLE 0047 ; -------------------------------------------------------------------------------------- 0047 0004 | | .STRTAB 0x0004->0x0049 ; "Operateur de test inconnu" 0048 001b | | .STREND 0x001b->0x0055 0049 4f70 6572 |Oper| .STRTAB_STRINGS 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; Debug Table 0058 ; -------------------------------------------------------------------------------------- 0058 0004 0008 | | .DEBUG4 0x0004,0x0008,0xb4c9,0x0000,0x0001,0x0003 005e 000b 006a | j| .DBG4T 0x000b,0x006a,0x8000,0x0000 0062 000e 006d | m| .DBG4T 0x000e,0x006d,0x8000,0x0000 0066 003b 0071 | ; q| .DBG4T 0x003b,0x0071,0x0001,0x0000 006a ; -------------------------------------------------------------------------------------- 006a ; Debug chain 006a ; -------------------------------------------------------------------------------------- 006a 0001 0000 | | .DBGLEN 0x0001,0x0000 006c 000b | | .DBGLNO 0x000b 006d ; -------------------------------------------------------------------------------------- 006d ; Debug chain 006d ; -------------------------------------------------------------------------------------- 006d 0002 0000 | | .DBGLEN 0x0002,0x0000 006f 000e 0030 | 0| .DBGLNO 0x000e,0x0030 0071 ; -------------------------------------------------------------------------------------- 0071 ; Debug chain 0071 ; -------------------------------------------------------------------------------------- 0071 0000 0004 | | .DBGLEN 0x0000,0x0004 0073 003b 003f | ; ?| .DBGLNO 0x003b,0x003f,0x0041,0x0043 0077 0000 0000 | | .BLANK 0000[0x189]