|
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_05d0f0
└─⟦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 00d8 | | .CONST 0x00d8 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4805 |H | Short_Literal 0x5 000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0012 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0014 4800 |H | Short_Literal 0x0 0015 4802 |H | Short_Literal 0x2 0016 e20d | | Load 0x1,0xd 0017 0266 | f | Execute Discrete,Bounds 0018 00e2 | | Load_Encached Integer_Cache 0019 02a0 | | Declare_Subprogram Null_Subprogram 001a 4802 |H | Short_Literal 0x2 001b 035e | ^ | Declare_Type Array,Defined,Visible 001c 00bf | | Action Accept_Activation 001d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001e 00c7 | | Action Elaborate_Subprogram 001f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0020 00c7 | | Action Elaborate_Subprogram 0021 BODY_0008: 0021 00bc | | Action Signal_Activated 0022 00bb | | Action Signal_Completion 0023 0000 0000 | | .BLANK 0000[0x5] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 4607 |F | Jump_Case 0x8 002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 002d 7807 |x | Jump 0x35 ; case 0x1 002e 780a |x | Jump 0x39 ; case 0x2 002f 780e |x | Jump 0x3e ; case 0x3 0030 7811 |x | Jump 0x42 ; case 0x4 0031 7812 |x | Jump 0x44 ; case 0x5 0032 7813 |x | Jump 0x46 ; case 0x6 0033 7816 |x | Jump 0x4a ; case 0x7 0034 4302 |C | .XXX[0x1] 0035 00da | | Load_Top At_Offset_2 0036 0091 00bb | | Action Push_String_Extended_Indexed,0xbb ; "LETTRE" 0038 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0039 00db | | Load_Top At_Offset_3 003a 00db | | Load_Top At_Offset_3 003b 00e0 | | Load_Encached Standard_Cache 003c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e 00da | | Load_Top At_Offset_2 003f 00e0 | | Load_Encached Standard_Cache 0040 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0041 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0042 00db | | Load_Top At_Offset_3 0043 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0044 00db | | Load_Top At_Offset_3 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 e20d | | Load 0x1,0xd 0047 00dc | | Load_Top At_Offset_4 0048 0267 | g | Execute Discrete,Predecessor 0049 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004a e20d | | Load 0x1,0xd 004b 00dc | | Load_Top At_Offset_4 004c 0268 | h | Execute Discrete,Successor 004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4801 |H | Short_Literal 0x1 0054 4800 |H | Short_Literal 0x0 0055 4800 |H | Short_Literal 0x0 0056 e5ff | | Load 0x2,-0x1 0057 01a6 | | Execute Matrix,Field_Write 0058 4802 |H | Short_Literal 0x2 0059 4801 |H | Short_Literal 0x1 005a 4800 |H | Short_Literal 0x0 005b e5ff | | Load 0x2,-0x1 005c 01a6 | | Execute Matrix,Field_Write 005d 4ffd |O | Short_Literal -0x3 005e 4802 |H | Short_Literal 0x2 005f 4800 |H | Short_Literal 0x0 0060 e5ff | | Load 0x2,-0x1 0061 01a6 | | Execute Matrix,Field_Write 0062 4800 |H | Short_Literal 0x0 0063 4803 |H | Short_Literal 0x3 0064 4800 |H | Short_Literal 0x0 0065 e5ff | | Load 0x2,-0x1 0066 01a6 | | Execute Matrix,Field_Write 0067 4ffc |O | Short_Literal -0x4 0068 4804 |H | Short_Literal 0x4 0069 4800 |H | Short_Literal 0x0 006a e5ff | | Load 0x2,-0x1 006b 01a6 | | Execute Matrix,Field_Write 006c 4ffb |O | Short_Literal -0x5 006d 4805 |H | Short_Literal 0x5 006e 4800 |H | Short_Literal 0x0 006f e5ff | | Load 0x2,-0x1 0070 01a6 | | Execute Matrix,Field_Write 0071 4801 |H | Short_Literal 0x1 0072 4800 |H | Short_Literal 0x0 0073 4801 |H | Short_Literal 0x1 0074 e5ff | | Load 0x2,-0x1 0075 01a6 | | Execute Matrix,Field_Write 0076 4801 |H | Short_Literal 0x1 0077 4801 |H | Short_Literal 0x1 0078 4801 |H | Short_Literal 0x1 0079 e5ff | | Load 0x2,-0x1 007a 01a6 | | Execute Matrix,Field_Write 007b 4fff |O | Short_Literal -0x1 007c 4802 |H | Short_Literal 0x2 007d 4801 |H | Short_Literal 0x1 007e e5ff | | Load 0x2,-0x1 007f 01a6 | | Execute Matrix,Field_Write 0080 4fff |O | Short_Literal -0x1 0081 4803 |H | Short_Literal 0x3 0082 4801 |H | Short_Literal 0x1 0083 e5ff | | Load 0x2,-0x1 0084 01a6 | | Execute Matrix,Field_Write 0085 4fff |O | Short_Literal -0x1 0086 4804 |H | Short_Literal 0x4 0087 4801 |H | Short_Literal 0x1 0088 e5ff | | Load 0x2,-0x1 0089 01a6 | | Execute Matrix,Field_Write 008a 4fff |O | Short_Literal -0x1 008b 4805 |H | Short_Literal 0x5 008c 4801 |H | Short_Literal 0x1 008d e5ff | | Load 0x2,-0x1 008e 01a6 | | Execute Matrix,Field_Write 008f 4ffe |O | Short_Literal -0x2 0090 4800 |H | Short_Literal 0x0 0091 4802 |H | Short_Literal 0x2 0092 e5ff | | Load 0x2,-0x1 0093 01a6 | | Execute Matrix,Field_Write 0094 4802 |H | Short_Literal 0x2 0095 4801 |H | Short_Literal 0x1 0096 4802 |H | Short_Literal 0x2 0097 e5ff | | Load 0x2,-0x1 0098 01a6 | | Execute Matrix,Field_Write 0099 4ffe |O | Short_Literal -0x2 009a 4802 |H | Short_Literal 0x2 009b 4802 |H | Short_Literal 0x2 009c e5ff | | Load 0x2,-0x1 009d 01a6 | | Execute Matrix,Field_Write 009e 4ffe |O | Short_Literal -0x2 009f 4803 |H | Short_Literal 0x3 00a0 4802 |H | Short_Literal 0x2 00a1 e5ff | | Load 0x2,-0x1 00a2 01a6 | | Execute Matrix,Field_Write 00a3 4ffe |O | Short_Literal -0x2 00a4 4804 |H | Short_Literal 0x4 00a5 4802 |H | Short_Literal 0x2 00a6 e5ff | | Load 0x2,-0x1 00a7 01a6 | | Execute Matrix,Field_Write 00a8 4ffe |O | Short_Literal -0x2 00a9 4805 |H | Short_Literal 0x5 00aa 4802 |H | Short_Literal 0x2 00ab e5ff | | Load 0x2,-0x1 00ac 01a6 | | Execute Matrix,Field_Write 00ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b4 | | .CONST 0x00b4 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 00e2 | | Load_Encached Integer_Cache 00b4 BODY_00b0: 00b4 e5fd | | Load 0x2,-0x3 00b5 e5fe | | Load 0x2,-0x2 00b6 e5ff | | Load 0x2,-0x1 00b7 01a7 | | Execute Matrix,Field_Read 00b8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00b9 00d8 | | Load_Top At_Offset_0 00ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00bb ; -------------------------------------------------------------------------------------- 00bb ; STRING TABLE 00bb ; -------------------------------------------------------------------------------------- 00bb 000e | | .STRTAB 0x000e->0x00c2 ; "LETTRE" 00bc 0012 | | .STRTAB 0x0012->0x00c5 ; "CHIFFRE" 00bd 0017 | | .STRTAB 0x0017->0x00c8 ; "SEPARATEUR" 00be 001f | | .STRTAB 0x001f->0x00cd ; "ESPACE" 00bf 0023 | # | .STRTAB 0x0023->0x00d0 ; "AUTRE" 00c0 0026 | & | .STRTAB 0x0026->0x00d3 ; "FIN" 00c1 0027 | ' | .STREND 0x0027->0x00d4 00c2 4c45 5454 |LETT| .STRTAB_STRINGS 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5536,0x0000,0x0001,0x0005 00de 000b 00f2 | | .DBG4T 0x000b,0x00f2,0x8000,0x8000 00e2 001d 00fc | | .DBG4T 0x001d,0x00fc,0x8000,0x0000 00e6 002b 0000 | + | .DBG4T 0x002b,0x0000,0x0005,0x0000 00ea 0053 0100 | S | .DBG4T 0x0053,0x0100,0x0001,0x0000 00ee 00b3 0114 | | .DBG4T 0x00b3,0x0114,0x0002,0x0000 00f2 ; -------------------------------------------------------------------------------------- 00f2 ; Debug chain 00f2 ; -------------------------------------------------------------------------------------- 00f2 0004 0000 | | .DBGLEN 0x0004,0x0000 00f4 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014 00f8 0002 0003 | | .XXX[0x4] 00fa 0004 0005 | | 00fc ; -------------------------------------------------------------------------------------- 00fc ; Debug chain 00fc ; -------------------------------------------------------------------------------------- 00fc 0002 0000 | | .DBGLEN 0x0002,0x0000 00fe 001d 001f | | .DBGLNO 0x001d,0x001f 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug chain 0100 ; -------------------------------------------------------------------------------------- 0100 0000 0012 | | .DBGLEN 0x0000,0x0012 0102 0053 0058 | S X| .DBGLNO 0x0053,0x0058,0x005d,0x0062,0x0067,0x006c,0x0071,0x0076,0x007b,0x0080,0x0085,0x008a,0x008f,0x0094,0x0099,0x009e,0x00a3,0x00a8 0114 ; -------------------------------------------------------------------------------------- 0114 ; Debug chain 0114 ; -------------------------------------------------------------------------------------- 0114 0001 0002 | | .DBGLEN 0x0001,0x0002 0116 00b3 00b4 | | .DBGLNO 0x00b3,0x00b4,0x00b9 0119 0000 0000 | | .BLANK 0000[0xe7]