|
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_0810ad
└─⟦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 00a8 | | .CONST 0x00a8 ; 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 002c | , | .CONST 0x002c ; 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 0336 | 6 | Declare_Variable Array,Visible 000d 483a |H: | Short_Literal 0x3a 000e 8003 | | Call 0x0,0x3 000f 00d9 | | Load_Top At_Offset_1 0010 01d4 | | Execute Vector,Structure_Write 0011 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 e002 | | Load 0x0,0x2 0015 0337 | 7 | Declare_Variable Array 0016 4801 |H | Short_Literal 0x1 0017 4803 |H | Short_Literal 0x3 0018 e004 | | Load 0x0,0x4 0019 035b | [ | Declare_Type Array,Constrained 001a 0337 | 7 | Declare_Variable Array 001b 483e |H> | Short_Literal 0x3e 001c 4801 |H | Short_Literal 0x1 001d 00da | | Load_Top At_Offset_2 001e 01d6 | | Execute Vector,Field_Write 001f 483a |H: | Short_Literal 0x3a 0020 4802 |H | Short_Literal 0x2 0021 00da | | Load_Top At_Offset_2 0022 01d6 | | Execute Vector,Field_Write 0023 4848 |HH | Short_Literal 0x48 0024 4803 |H | Short_Literal 0x3 0025 00da | | Load_Top At_Offset_2 0026 01d6 | | Execute Vector,Field_Write 0027 8005 | | Call 0x0,0x5 0028 00d9 | | Load_Top At_Offset_1 0029 01d4 | | Execute Vector,Structure_Write 002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 002b 00c7 | | Action Elaborate_Subprogram 002c BODY_0008: 002c 00bc | | Action Signal_Activated 002d 00bb | | Action Signal_Completion 002e 0000 0000 | | .XXX[0x2] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0036 | 6 | .CONST 0x0036 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0003 | | .CONST 0x0003 ; Number of locals 0033 INIT_0030: 0033 e006 | | Load 0x0,0x6 0034 0007 | | Action Break_Optional 0035 00e2 | | Load_Encached Integer_Cache 0036 BODY_0030: 0036 8007 | | Call 0x0,0x7 0037 0f3a | : | Execute_Immediate Equal,0x3a 0038 6838 |h8 | Jump_Zero 0x71 0039 8008 | | Call 0x0,0x8 003a 8007 | | Call 0x0,0x7 003b 0f01 | | Execute_Immediate Equal,0x1 003c 682f |h/ | Jump_Zero 0x6c 003d 8009 | | Call 0x0,0x9 003e 00e2 | | Load_Encached Integer_Cache 003f 00e0 | | Load_Encached Standard_Cache 0040 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0041 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0042 8008 | | Call 0x0,0x8 0043 8007 | | Call 0x0,0x7 0044 0f3b | ; | Execute_Immediate Equal,0x3b 0045 6821 |h! | Jump_Zero 0x67 0046 8008 | | Call 0x0,0x8 0047 8007 | | Call 0x0,0x7 0048 0f3c | < | Execute_Immediate Equal,0x3c 0049 6818 |h | Jump_Zero 0x62 004a 8008 | | Call 0x0,0x8 004b 00d9 | | Load_Top At_Offset_1 004c e5fc | | Load 0x2,-0x4 004d e5fd | | Load 0x2,-0x3 004e e5fe | | Load 0x2,-0x2 004f e5ff | | Load 0x2,-0x1 0050 800a | | Call 0x0,0xa 0051 003a | : | Store_Top Access,At_Offset_2 0052 8007 | | Call 0x0,0x7 0053 0f3d | = | Execute_Immediate Equal,0x3d 0054 6808 |h | Jump_Zero 0x5d 0055 8008 | | Call 0x0,0x8 0056 e5fb | | Load 0x2,-0x5 0057 00da | | Load_Top At_Offset_2 0058 00da | | Load_Top At_Offset_2 0059 800b | | Call 0x0,0xb 005a 800c | | Call 0x0,0xc 005b c5fb | | Store 0x2,-0x5 005c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 005d e20f | | Load 0x1,0xf 005e 0092 0076 | v| Action Push_String_Extended,0x76 ; "Manque Finpour" 0060 800d | | Call 0x0,0xd 0061 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0062 e20f | | Load 0x1,0xf 0063 0092 0077 | w| Action Push_String_Extended,0x77 ; "Manque Faire" 0065 800d | | Call 0x0,0xd 0066 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0067 e20f | | Load 0x1,0xf 0068 0092 0078 | x| Action Push_String_Extended,0x78 ; "Manque Entree" 006a 800d | | Call 0x0,0xd 006b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 006c e20f | | Load 0x1,0xf 006d 0092 0079 | y| Action Push_String_Extended,0x79 ; "Manque le nombre d actions" 006f 800d | | Call 0x0,0xd 0070 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0071 e20f | | Load 0x1,0xf 0072 0092 007a | z| Action Push_String_Extended,0x7a ; "Manque Pour" 0074 800d | | Call 0x0,0xd 0075 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0076 ; -------------------------------------------------------------------------------------- 0076 ; STRING TABLE 0076 ; -------------------------------------------------------------------------------------- 0076 000c | | .STRTAB 0x000c->0x007c ; "Manque Finpour" 0077 0018 | | .STRTAB 0x0018->0x0083 ; "Manque Faire" 0078 0022 | " | .STRTAB 0x0022->0x0089 ; "Manque Entree" 0079 002d | - | .STRTAB 0x002d->0x008f ; "Manque le nombre d actions" 007a 0045 | E | .STRTAB 0x0045->0x009c ; "Manque Pour" 007b 004e | N | .STREND 0x004e->0x00a2 007c 4d61 6e71 |Manq| .STRTAB_STRINGS 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug Table 00a8 ; -------------------------------------------------------------------------------------- 00a8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd5dd,0x0000,0x0001,0x0003 00ae 000b 00ba | | .DBG4T 0x000b,0x00ba,0x8000,0x0000 00b2 0014 00be | | .DBG4T 0x0014,0x00be,0x8000,0x0000 00b6 0033 00c2 | 3 | .DBG4T 0x0033,0x00c2,0x0001,0x0000 00ba ; -------------------------------------------------------------------------------------- 00ba ; Debug chain 00ba ; -------------------------------------------------------------------------------------- 00ba 0002 0000 | | .DBGLEN 0x0002,0x0000 00bc 000b 0011 | | .DBGLNO 0x000b,0x0011 00be ; -------------------------------------------------------------------------------------- 00be ; Debug chain 00be ; -------------------------------------------------------------------------------------- 00be 0002 0000 | | .DBGLEN 0x0002,0x0000 00c0 0014 002a | *| .DBGLNO 0x0014,0x002a 00c2 ; -------------------------------------------------------------------------------------- 00c2 ; Debug chain 00c2 ; -------------------------------------------------------------------------------------- 00c2 0002 0012 | | .DBGLEN 0x0002,0x0012 00c4 0033 0035 | 3 5| .DBGLNO 0x0033,0x0035,0x0036,0x0039,0x003a,0x003d,0x0042,0x0043,0x0046,0x0047,0x004a,0x004b,0x0052,0x0055,0x0056,0x005d,0x0062,0x0067,0x006c,0x0071 00d8 0000 0000 | | .BLANK 0000[0x128]