|
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_3c48ab
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0035 | 5 | .CONST 0x0035 ; 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 481d |H | Short_Literal 0x1d 0015 00da | | Load_Top At_Offset_2 0016 01d6 | | Execute Vector,Field_Write 0017 4801 |H | Short_Literal 0x1 0018 481e |H | Short_Literal 0x1e 0019 00da | | Load_Top At_Offset_2 001a 01d6 | | Execute Vector,Field_Write 001b 4801 |H | Short_Literal 0x1 001c 481f |H | Short_Literal 0x1f 001d 00da | | Load_Top At_Offset_2 001e 01d6 | | Execute Vector,Field_Write 001f 481c |H | Short_Literal 0x1c 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 4836 |H6 | Short_Literal 0x36 0027 4820 |H | Short_Literal 0x20 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 00d9 | | Load_Top At_Offset_1 002e 01c3 | | Execute Vector,Check_In_Type 002f 0129 | ) | Execute Any,Make_Visible 0030 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0032 00bf | | Action Accept_Activation 0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0034 00c7 | | Action Elaborate_Subprogram 0035 BODY_0008: 0035 00bc | | Action Signal_Activated 0036 00bb | | Action Signal_Completion 0037 0000 | | .XXX[0x1] 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 8003 | | Call 0x0,0x3 003c 0b1d | | Execute_Immediate Case_Compare,0x1d 003d 7008 |p | Jump_Nonzero 0x46 003e 0b1e | | Execute_Immediate Case_Compare,0x1e 003f 700a |p | Jump_Nonzero 0x4a 0040 0f1f | | Execute_Immediate Equal,0x1f 0041 7019 |p | Jump_Nonzero 0x5b 0042 0092 0071 | q| Action Push_String_Extended,0x71 ; "il manque le mot 'de_type' ou 'enumere_de' ou 'compose_de'" 0044 8004 | | Call 0x0,0x4 0045 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0046 00d1 | | Pop_Control Pop_Count_1 0047 8005 | | Call 0x0,0x5 0048 8006 | | Call 0x0,0x6 0049 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004a 00d1 | | Pop_Control Pop_Count_1 004b 8007 | | Call 0x0,0x7 004c 0f01 | | Execute_Immediate Equal,0x1 004d 6803 |h | Jump_Zero 0x51 004e 0092 0072 | r| Action Push_String_Extended,0x72 ; "enum" 0050 8008 | | Call 0x0,0x8 0051 8007 | | Call 0x0,0x7 0052 0f02 | | Execute_Immediate Equal,0x2 0053 6804 |h | Jump_Zero 0x58 0054 0092 0073 | s| Action Push_String_Extended,0x73 ; "For the declaration of a variable, only <de_type> can be used" 0056 e009 | | Load 0x0,0x9 0057 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0058 8005 | | Call 0x0,0x5 0059 800a | | Call 0x0,0xa 005a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005b 8007 | | Call 0x0,0x7 005c 0f01 | | Execute_Immediate Equal,0x1 005d 6801 |h | Jump_Zero 0x5f 005e 800b | | Call 0x0,0xb 005f 8007 | | Call 0x0,0x7 0060 0f02 | | Execute_Immediate Equal,0x2 0061 6804 |h | Jump_Zero 0x66 0062 0092 0073 | s| Action Push_String_Extended,0x73 ; "For the declaration of a variable, only <de_type> can be used" 0064 e009 | | Load 0x0,0x9 0065 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0066 8005 | | Call 0x0,0x5 0067 800c | | Call 0x0,0xc 0068 8003 | | Call 0x0,0x3 0069 0f21 | ! | Execute_Immediate Equal,0x21 006a 6802 |h | Jump_Zero 0x6d 006b 8005 | | Call 0x0,0x5 006c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006d 0092 0074 | t| Action Push_String_Extended,0x74 ; "il manque le mot 'fin_champs'" 006f 8004 | | Call 0x0,0x4 0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0071 ; -------------------------------------------------------------------------------------- 0071 ; STRING TABLE 0071 ; -------------------------------------------------------------------------------------- 0071 000a | | .STRTAB 0x000a->0x0076 ; "il manque le mot 'de_type' ou 'enumere_de' ou 'compose_de'" 0072 0042 | B | .STRTAB 0x0042->0x0093 ; "enum" 0073 0044 | D | .STRTAB 0x0044->0x0095 ; "For the declaration of a variable, only <de_type> can be used" 0074 007f | | .STRTAB 0x007f->0x00b3 ; "il manque le mot 'fin_champs'" 0075 009a | | .STREND 0x009a->0x00c2 0076 696c 206d |il m| .STRTAB_STRINGS 00c2 0000 0000 | | .BLANK 0000[0x6] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; Debug Table 00c8 ; -------------------------------------------------------------------------------------- 00c8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xcf13,0x0000,0x0001,0x0003 00ce 000b 00da | | .DBG4T 0x000b,0x00da,0x8000,0x0000 00d2 0033 00df | 3 | .DBG4T 0x0033,0x00df,0x8000,0x0000 00d6 003b 00e2 | ; | .DBG4T 0x003b,0x00e2,0x0001,0x4000 00da ; -------------------------------------------------------------------------------------- 00da ; Debug chain 00da ; -------------------------------------------------------------------------------------- 00da 0003 0000 | | .DBGLEN 0x0003,0x0000 00dc 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0030 00df ; -------------------------------------------------------------------------------------- 00df ; Debug chain 00df ; -------------------------------------------------------------------------------------- 00df 0001 0000 | | .DBGLEN 0x0001,0x0000 00e1 0033 | 3 | .DBGLNO 0x0033 00e2 ; -------------------------------------------------------------------------------------- 00e2 ; Debug chain 00e2 ; -------------------------------------------------------------------------------------- 00e2 0000 0013 | | .DBGLEN 0x0000,0x0013 00e4 003b 0042 | ; B| .DBGLNO 0x003b,0x0042,0x0047,0x0048,0x004b,0x004e,0x0051,0x0054,0x0058,0x0059,0x005b,0x005e,0x005f,0x0062,0x0066,0x0067,0x0068,0x006b,0x006d 00f7 0001 0013 | | .XXX[0x13] 00f9 0002 0003 | | 00fb 0004 0005 | | 00fd 0006 0007 | | 00ff 0008 0009 | | 0101 000a 000b | | 0103 000c 000d | | 0105 000e 000f | | 0107 0010 0011 | | 0109 0012 | | 010a 0000 0000 | | .BLANK 0000[0xf6]