|
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_2140b1
└─⟦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 0090 | | .CONST 0x0090 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 002a | * | .CONST 0x002a ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0005 | | .CONST 0x0005 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 0007 | | Action Break_Optional 001d 00e2 | | Load_Encached Integer_Cache 001e 4820 |H | Short_Literal 0x20 001f e003 | | Load 0x0,0x3 0020 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0021 1c08 | | Execute_Immediate Run_Utility,0x8 0022 00d8 | | Load_Top At_Offset_0 0023 1c00 | | Execute_Immediate Run_Utility,0x0 0024 4820 |H | Short_Literal 0x20 0025 e003 | | Load 0x0,0x3 0026 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0027 1c08 | | Execute_Immediate Run_Utility,0x8 0028 00d8 | | Load_Top At_Offset_0 0029 1c00 | | Execute_Immediate Run_Utility,0x0 002a BODY_0018: 002a e004 | | Load 0x0,0x4 002b 8005 | | Call 0x0,0x5 002c 8006 | | Call 0x0,0x6 002d 6807 |h | Jump_Zero 0x35 002e 00da | | Load_Top At_Offset_2 002f 8007 | | Call 0x0,0x7 0030 005b | [ | Store_Top Discrete,At_Offset_3 0031 00da | | Load_Top At_Offset_2 0032 8008 | | Call 0x0,0x8 0033 a5fd | | Store_Unchecked 0x2,-0x3 0034 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0035 8005 | | Call 0x0,0x5 0036 00d8 | | Load_Top At_Offset_0 0037 0d0b | | Execute_Immediate Less,0xb 0038 7010 |p | Jump_Nonzero 0x49 0039 00d8 | | Load_Top At_Offset_0 003a 0c2f | / | Execute_Immediate Greater_Equal,0x2f 003b 7005 |p | Jump_Nonzero 0x41 003c 00d1 | | Pop_Control Pop_Count_1 003d 0092 007e | ~| Action Push_String_Extended,0x7e ; "Facteur non valide" 003f 8009 | | Call 0x0,0x9 0040 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0041 00d8 | | Load_Top At_Offset_0 0042 0c31 | 1 | Execute_Immediate Greater_Equal,0x31 0043 6834 |h4 | Jump_Zero 0x78 0044 0b42 | B | Execute_Immediate Case_Compare,0x42 0045 7022 |p" | Jump_Nonzero 0x68 0046 0f43 | C | Execute_Immediate Equal,0x43 0047 7015 |p | Jump_Nonzero 0x5d 0048 7ff4 | | Jump 0x3d 0049 0b03 | | Execute_Immediate Case_Compare,0x3 004a 701d |p | Jump_Nonzero 0x68 004b 0f0a | | Execute_Immediate Equal,0xa 004c 7001 |p | Jump_Nonzero 0x4e 004d 7fef | | Jump 0x3d 004e 800a | | Call 0x0,0xa 004f e5fd | | Load 0x2,-0x3 0050 e5fe | | Load 0x2,-0x2 0051 e5ff | | Load 0x2,-0x1 0052 800b | | Call 0x0,0xb 0053 c5fd | | Store 0x2,-0x3 0054 8005 | | Call 0x0,0x5 0055 0f0b | | Execute_Immediate Equal,0xb 0056 6802 |h | Jump_Zero 0x59 0057 800a | | Call 0x0,0xa 0058 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0059 0092 007f | | Action Push_String_Extended,0x7f ; "Manque )" 005b 8009 | | Call 0x0,0x9 005c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 005d 800a | | Call 0x0,0xa 005e 00db | | Load_Top At_Offset_3 005f e5fe | | Load 0x2,-0x2 0060 e5ff | | Load 0x2,-0x1 0061 820d | | Call 0x1,0xd 0062 c402 | | Store 0x2,0x2 0063 00db | | Load_Top At_Offset_3 0064 4843 |HC | Short_Literal 0x43 0065 800c | | Call 0x0,0xc 0066 a5fd | | Store_Unchecked 0x2,-0x3 0067 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0068 00d1 | | Pop_Control Pop_Count_1 0069 00d8 | | Load_Top At_Offset_0 006a 00da | | Load_Top At_Offset_2 006b 800d | | Call 0x0,0xd 006c 00d2 | | Pop_Control Pop_Count_2 006d e5fe | | Load 0x2,-0x2 006e e5ff | | Load 0x2,-0x1 006f 00da | | Load_Top At_Offset_2 0070 e003 | | Load 0x0,0x3 0071 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0072 e404 | | Load 0x2,0x4 0073 e003 | | Load 0x0,0x3 0074 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0075 800e | | Call 0x0,0xe 0076 a5fd | | Store_Unchecked 0x2,-0x3 0077 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0078 00d1 | | Pop_Control Pop_Count_1 0079 8005 | | Call 0x0,0x5 007a 800f | | Call 0x0,0xf 007b a5fd | | Store_Unchecked 0x2,-0x3 007c 800a | | Call 0x0,0xa 007d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 007e ; -------------------------------------------------------------------------------------- 007e ; STRING TABLE 007e ; -------------------------------------------------------------------------------------- 007e 0006 | | .STRTAB 0x0006->0x0081 ; "Facteur non valide" 007f 0016 | | .STRTAB 0x0016->0x008a ; "Manque )" 0080 001c | | .STREND 0x001c->0x008e 0081 4661 6374 |Fact| .STRTAB_STRINGS 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; Debug Table 0090 ; -------------------------------------------------------------------------------------- 0090 0004 0008 | | .DEBUG4 0x0004,0x0008,0xb4c7,0x0000,0x0001,0x0003 0096 000b 00a2 | | .DBG4T 0x000b,0x00a2,0x8000,0x0000 009a 000e 00a5 | | .DBG4T 0x000e,0x00a5,0x8000,0x0000 009e 001b 00a8 | | .DBG4T 0x001b,0x00a8,0x0001,0x4000 00a2 ; -------------------------------------------------------------------------------------- 00a2 ; Debug chain 00a2 ; -------------------------------------------------------------------------------------- 00a2 0001 0000 | | .DBGLEN 0x0001,0x0000 00a4 000b | | .DBGLNO 0x000b 00a5 ; -------------------------------------------------------------------------------------- 00a5 ; Debug chain 00a5 ; -------------------------------------------------------------------------------------- 00a5 0001 0000 | | .DBGLEN 0x0001,0x0000 00a7 000e | | .DBGLNO 0x000e 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; Debug chain 00a8 ; -------------------------------------------------------------------------------------- 00a8 0003 0011 | | .DBGLEN 0x0003,0x0011 00aa 001b 001d | | .DBGLNO 0x001b,0x001d,0x001e,0x002a,0x002e,0x0031,0x0035,0x003d,0x004e,0x004f,0x0054,0x0057,0x0059,0x005d,0x005e,0x0063,0x0069,0x006d,0x0079,0x007c 00be 0001 0002 | | .XXX[0x11] 00c0 0003 0004 | | 00c2 0011 0005 | | 00c4 0006 0007 | | 00c6 0008 0009 | | 00c8 000a 000b | | 00ca 000c 000d | | 00cc 000e 000f | | 00ce 0010 | | 00cf 0000 0000 | | .BLANK 0000[0x131]