|
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_07d8fa
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0080 | | .CONST 0x0080 ; 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 003c | < | .CONST 0x003c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 0266 | f | Execute Discrete,Bounds 000d 00e1 | | Load_Encached Boolean_Cache 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 4801 |H | Short_Literal 0x1 0010 035e | ^ | Declare_Type Array,Defined,Visible 0011 00d8 | | Load_Top At_Offset_0 0012 0337 | 7 | Declare_Variable Array 0013 4801 |H | Short_Literal 0x1 0014 480b |H | Short_Literal 0xb 0015 00da | | Load_Top At_Offset_2 0016 01d6 | | Execute Vector,Field_Write 0017 4801 |H | Short_Literal 0x1 0018 4810 |H | Short_Literal 0x10 0019 00da | | Load_Top At_Offset_2 001a 01d6 | | Execute Vector,Field_Write 001b 4801 |H | Short_Literal 0x1 001c 480f |H | Short_Literal 0xf 001d 00da | | Load_Top At_Offset_2 001e 01d6 | | Execute Vector,Field_Write 001f 480a |H | Short_Literal 0xa 0020 4800 |H | Short_Literal 0x0 0021 4800 |H | Short_Literal 0x0 0022 00d9 | | Load_Top At_Offset_1 0023 e20e | | Load 0x1,0xe 0024 01d6 | | Execute Vector,Field_Write 0025 3ffb |? | Loop_Increasing 0x21 0026 480e |H | Short_Literal 0xe 0027 480c |H | Short_Literal 0xc 0028 4800 |H | Short_Literal 0x0 0029 00d9 | | Load_Top At_Offset_1 002a e20e | | Load 0x1,0xe 002b 01d6 | | Execute Vector,Field_Write 002c 3ffb |? | Loop_Increasing 0x28 002d 4836 |H6 | Short_Literal 0x36 002e 4811 |H | Short_Literal 0x11 002f 4800 |H | Short_Literal 0x0 0030 00d9 | | Load_Top At_Offset_1 0031 e20e | | Load 0x1,0xe 0032 01d6 | | Execute Vector,Field_Write 0033 3ffb |? | Loop_Increasing 0x2f 0034 00d9 | | Load_Top At_Offset_1 0035 01c3 | | Execute Vector,Check_In_Type 0036 0129 | ) | Execute Any,Make_Visible 0037 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 0039 00bf | | Action Accept_Activation 003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003b 00c7 | | Action Elaborate_Subprogram 003c BODY_0008: 003c 00bc | | Action Signal_Activated 003d 00bb | | Action Signal_Completion 003e 0000 0000 | | .XXX[0x2] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 8003 | | Call 0x0,0x3 0044 0b0b | | Execute_Immediate Case_Compare,0xb 0045 7008 |p | Jump_Nonzero 0x4e 0046 0b10 | | Execute_Immediate Case_Compare,0x10 0047 700a |p | Jump_Nonzero 0x52 0048 0f0f | | Execute_Immediate Equal,0xf 0049 700c |p | Jump_Nonzero 0x56 004a 0092 0059 | Y| Action Push_String_Extended,0x59 ; "il manque une parenthese ouvrante,un nombre ou un identificateur" 004c 8004 | | Call 0x0,0x4 004d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004e 00d1 | | Pop_Control Pop_Count_1 004f 8005 | | Call 0x0,0x5 0050 8006 | | Call 0x0,0x6 0051 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0052 00d1 | | Pop_Control Pop_Count_1 0053 8005 | | Call 0x0,0x5 0054 8006 | | Call 0x0,0x6 0055 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0056 8005 | | Call 0x0,0x5 0057 8006 | | Call 0x0,0x6 0058 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0059 ; -------------------------------------------------------------------------------------- 0059 ; STRING TABLE 0059 ; -------------------------------------------------------------------------------------- 0059 0004 | | .STRTAB 0x0004->0x005b ; "il manque une parenthese ouvrante,un nombre ou un identificateur" 005a 0042 | B | .STREND 0x0042->0x007b 005b 696c 206d |il m| .STRTAB_STRINGS 007b 0000 0000 | | .BLANK 0000[0x5] 0080 ; -------------------------------------------------------------------------------------- 0080 ; Debug Table 0080 ; -------------------------------------------------------------------------------------- 0080 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdd60,0x0000,0x0001,0x0003 0086 000b 0092 | | .DBG4T 0x000b,0x0092,0x8000,0x0000 008a 003a 0097 | : | .DBG4T 0x003a,0x0097,0x8000,0x0000 008e 0043 009a | C | .DBG4T 0x0043,0x009a,0x0001,0x4000 0092 ; -------------------------------------------------------------------------------------- 0092 ; Debug chain 0092 ; -------------------------------------------------------------------------------------- 0092 0003 0000 | | .DBGLEN 0x0003,0x0000 0094 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0037 0097 ; -------------------------------------------------------------------------------------- 0097 ; Debug chain 0097 ; -------------------------------------------------------------------------------------- 0097 0001 0000 | | .DBGLEN 0x0001,0x0000 0099 003a | : | .DBGLNO 0x003a 009a ; -------------------------------------------------------------------------------------- 009a ; Debug chain 009a ; -------------------------------------------------------------------------------------- 009a 0000 0008 | | .DBGLEN 0x0000,0x0008 009c 0043 004a | C J| .DBGLNO 0x0043,0x004a,0x004f,0x0050,0x0053,0x0054,0x0056,0x0057 00a4 0001 0008 | | .XXX[0x8] 00a6 0002 0003 | | 00a8 0004 0005 | | 00aa 0006 0007 | | 00ac 0000 0000 | | .BLANK 0000[0x154]