|
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 0098 | | .CONST 0x0098 ; 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 0039 | 9 | .CONST 0x0039 ; 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 4809 |H | Short_Literal 0x9 0015 00da | | Load_Top At_Offset_2 0016 01d6 | | Execute Vector,Field_Write 0017 4801 |H | Short_Literal 0x1 0018 4806 |H | Short_Literal 0x6 0019 00da | | Load_Top At_Offset_2 001a 01d6 | | Execute Vector,Field_Write 001b 4805 |H | Short_Literal 0x5 001c 4800 |H | Short_Literal 0x0 001d 4800 |H | Short_Literal 0x0 001e 00d9 | | Load_Top At_Offset_1 001f e20e | | Load 0x1,0xe 0020 01d6 | | Execute Vector,Field_Write 0021 3ffb |? | Loop_Increasing 0x1d 0022 4800 |H | Short_Literal 0x0 0023 4807 |H | Short_Literal 0x7 0024 00da | | Load_Top At_Offset_2 0025 01d6 | | Execute Vector,Field_Write 0026 4800 |H | Short_Literal 0x0 0027 4808 |H | Short_Literal 0x8 0028 00da | | Load_Top At_Offset_2 0029 01d6 | | Execute Vector,Field_Write 002a 4836 |H6 | Short_Literal 0x36 002b 480a |H | Short_Literal 0xa 002c 4800 |H | Short_Literal 0x0 002d 00d9 | | Load_Top At_Offset_1 002e e20e | | Load 0x1,0xe 002f 01d6 | | Execute Vector,Field_Write 0030 3ffb |? | Loop_Increasing 0x2c 0031 00d9 | | Load_Top At_Offset_1 0032 01c3 | | Execute Vector,Check_In_Type 0033 0129 | ) | Execute Any,Make_Visible 0034 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 0036 00bf | | Action Accept_Activation 0037 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0038 00c7 | | Action Elaborate_Subprogram 0039 BODY_0008: 0039 00bc | | Action Signal_Activated 003a 00bb | | Action Signal_Completion 003b 0000 0000 | | .BLANK 0000[0x5] 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 0f09 | | Execute_Immediate Equal,0x9 0045 6819 |h | Jump_Zero 0x5f 0046 8004 | | Call 0x0,0x4 0047 0f05 | | Execute_Immediate Equal,0x5 0048 6803 |h | Jump_Zero 0x4c 0049 0092 0079 | y| Action Push_String_Extended,0x79 ; "egal" 004b 8005 | | Call 0x0,0x5 004c 8006 | | Call 0x0,0x6 004d 8003 | | Call 0x0,0x3 004e 0f0b | | Execute_Immediate Equal,0xb 004f 680b |h | Jump_Zero 0x5b 0050 8006 | | Call 0x0,0x6 0051 8007 | | Call 0x0,0x7 0052 8003 | | Call 0x0,0x3 0053 0f0c | | Execute_Immediate Equal,0xc 0054 6802 |h | Jump_Zero 0x57 0055 8006 | | Call 0x0,0x6 0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0057 0092 007a | z| Action Push_String_Extended,0x7a ; "il manque ')'" 0059 8008 | | Call 0x0,0x8 005a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005b 0092 007b | {| Action Push_String_Extended,0x7b ; "il manque '('" 005d 8008 | | Call 0x0,0x8 005e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005f 8003 | | Call 0x0,0x3 0060 0f06 | | Execute_Immediate Equal,0x6 0061 6813 |h | Jump_Zero 0x75 0062 8006 | | Call 0x0,0x6 0063 8003 | | Call 0x0,0x3 0064 0f0b | | Execute_Immediate Equal,0xb 0065 680b |h | Jump_Zero 0x71 0066 8006 | | Call 0x0,0x6 0067 8007 | | Call 0x0,0x7 0068 8003 | | Call 0x0,0x3 0069 0f0c | | Execute_Immediate Equal,0xc 006a 6802 |h | Jump_Zero 0x6d 006b 8006 | | Call 0x0,0x6 006c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006d 0092 007a | z| Action Push_String_Extended,0x7a ; "il manque ')'" 006f 8008 | | Call 0x0,0x8 0070 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0071 0092 007b | {| Action Push_String_Extended,0x7b ; "il manque '('" 0073 8008 | | Call 0x0,0x8 0074 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0075 0092 007c | || Action Push_String_Extended,0x7c ; "il manque '!=' ou '='" 0077 8008 | | Call 0x0,0x8 0078 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0079 ; -------------------------------------------------------------------------------------- 0079 ; STRING TABLE 0079 ; -------------------------------------------------------------------------------------- 0079 000a | | .STRTAB 0x000a->0x007e ; "egal" 007a 000c | | .STRTAB 0x000c->0x0080 ; "il manque ')'" 007b 0017 | | .STRTAB 0x0017->0x0086 ; "il manque '('" 007c 0022 | " | .STRTAB 0x0022->0x008d ; "il manque '!=' ou '='" 007d 0035 | 5 | .STREND 0x0035->0x0097 007e 6567 616c |egal| .STRTAB_STRINGS 0098 ; -------------------------------------------------------------------------------------- 0098 ; Debug Table 0098 ; -------------------------------------------------------------------------------------- 0098 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdd52,0x0000,0x0001,0x0003 009e 000b 00aa | | .DBG4T 0x000b,0x00aa,0x8000,0x0000 00a2 0037 00af | 7 | .DBG4T 0x0037,0x00af,0x8000,0x0000 00a6 0043 00b2 | C | .DBG4T 0x0043,0x00b2,0x0001,0x0000 00aa ; -------------------------------------------------------------------------------------- 00aa ; Debug chain 00aa ; -------------------------------------------------------------------------------------- 00aa 0003 0000 | | .DBGLEN 0x0003,0x0000 00ac 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0034 00af ; -------------------------------------------------------------------------------------- 00af ; Debug chain 00af ; -------------------------------------------------------------------------------------- 00af 0001 0000 | | .DBGLEN 0x0001,0x0000 00b1 0037 | 7 | .DBGLNO 0x0037 00b2 ; -------------------------------------------------------------------------------------- 00b2 ; Debug chain 00b2 ; -------------------------------------------------------------------------------------- 00b2 0000 0015 | | .DBGLEN 0x0000,0x0015 00b4 0043 0046 | C F| .DBGLNO 0x0043,0x0046,0x0049,0x004c,0x004d,0x0050,0x0051,0x0052,0x0055,0x0057,0x005b,0x005f,0x0062,0x0063,0x0066,0x0067,0x0068,0x006b,0x006d,0x0071,0x0075 00c9 0000 0000 | | .BLANK 0000[0x137]