|
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 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 0066 | f | .CONST 0x0066 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 0336 | 6 | Declare_Variable Array,Visible 000d 483e |H> | Short_Literal 0x3e 000e 8003 | | Call 0x0,0x3 000f 00d9 | | Load_Top At_Offset_1 0010 01d4 | | Execute Vector,Structure_Write 0011 029a 006b | k| Declare_Subprogram INIT_0068,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 4811 |H | Short_Literal 0x11 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 4849 |HI | Short_Literal 0x49 0028 4804 |H | Short_Literal 0x4 0029 00da | | Load_Top At_Offset_2 002a 01d6 | | Execute Vector,Field_Write 002b 4842 |HB | Short_Literal 0x42 002c 4805 |H | Short_Literal 0x5 002d 00da | | Load_Top At_Offset_2 002e 01d6 | | Execute Vector,Field_Write 002f 4803 |H | Short_Literal 0x3 0030 4806 |H | Short_Literal 0x6 0031 00da | | Load_Top At_Offset_2 0032 01d6 | | Execute Vector,Field_Write 0033 4837 |H7 | Short_Literal 0x37 0034 4807 |H | Short_Literal 0x7 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4838 |H8 | Short_Literal 0x38 0038 4808 |H | Short_Literal 0x8 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 482a |H* | Short_Literal 0x2a 003c 4809 |H | Short_Literal 0x9 003d 00da | | Load_Top At_Offset_2 003e 01d6 | | Execute Vector,Field_Write 003f 482b |H+ | Short_Literal 0x2b 0040 480a |H | Short_Literal 0xa 0041 00da | | Load_Top At_Offset_2 0042 01d6 | | Execute Vector,Field_Write 0043 4827 |H' | Short_Literal 0x27 0044 480b |H | Short_Literal 0xb 0045 00da | | Load_Top At_Offset_2 0046 01d6 | | Execute Vector,Field_Write 0047 4825 |H% | Short_Literal 0x25 0048 480c |H | Short_Literal 0xc 0049 00da | | Load_Top At_Offset_2 004a 01d6 | | Execute Vector,Field_Write 004b 4839 |H9 | Short_Literal 0x39 004c 480d |H | Short_Literal 0xd 004d 00da | | Load_Top At_Offset_2 004e 01d6 | | Execute Vector,Field_Write 004f 484a |HJ | Short_Literal 0x4a 0050 480e |H | Short_Literal 0xe 0051 00da | | Load_Top At_Offset_2 0052 01d6 | | Execute Vector,Field_Write 0053 4840 |H@ | Short_Literal 0x40 0054 480f |H | Short_Literal 0xf 0055 00da | | Load_Top At_Offset_2 0056 01d6 | | Execute Vector,Field_Write 0057 4841 |HA | Short_Literal 0x41 0058 4810 |H | Short_Literal 0x10 0059 00da | | Load_Top At_Offset_2 005a 01d6 | | Execute Vector,Field_Write 005b 483d |H= | Short_Literal 0x3d 005c 4811 |H | Short_Literal 0x11 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f 8005 | | Call 0x0,0x5 0060 00d9 | | Load_Top At_Offset_1 0061 01d4 | | Execute Vector,Structure_Write 0062 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 0064 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0065 00c7 | | Action Elaborate_Subprogram 0066 BODY_0008: 0066 00bc | | Action Signal_Activated 0067 00bb | | Action Signal_Completion 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0071 | q | .CONST 0x0071 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0004 | | .CONST 0x0004 ; Number of locals 006b INIT_0068: 006b e006 | | Load 0x0,0x6 006c 0007 | | Action Break_Optional 006d e007 | | Load 0x0,0x7 006e 0007 | | Action Break_Optional 006f 00d8 | | Load_Top At_Offset_0 0070 0007 | | Action Break_Optional 0071 BODY_0068: 0071 8008 | | Call 0x0,0x8 0072 003a | : | Store_Top Access,At_Offset_2 0073 8008 | | Call 0x0,0x8 0074 0039 | 9 | Store_Top Access,At_Offset_1 0075 8009 | | Call 0x0,0x9 0076 0f3e | > | Execute_Immediate Equal,0x3e 0077 6830 |h0 | Jump_Zero 0xa8 0078 800a | | Call 0x0,0xa 0079 00da | | Load_Top At_Offset_2 007a e5fc | | Load 0x2,-0x4 007b e5fd | | Load 0x2,-0x3 007c e5fe | | Load 0x2,-0x2 007d e5ff | | Load 0x2,-0x1 007e 800b | | Call 0x0,0xb 007f 003b | ; | Store_Top Access,At_Offset_3 0080 8009 | | Call 0x0,0x9 0081 0f3f | ? | Execute_Immediate Equal,0x3f 0082 6820 |h | Jump_Zero 0xa3 0083 800a | | Call 0x0,0xa 0084 00d9 | | Load_Top At_Offset_1 0085 e5fc | | Load 0x2,-0x4 0086 e5fd | | Load 0x2,-0x3 0087 e5fe | | Load 0x2,-0x2 0088 e5ff | | Load 0x2,-0x1 0089 800c | | Call 0x0,0xc 008a 003a | : | Store_Top Access,At_Offset_2 008b 00d8 | | Load_Top At_Offset_0 008c e5fc | | Load 0x2,-0x4 008d e5fd | | Load 0x2,-0x3 008e e5fe | | Load 0x2,-0x2 008f e5ff | | Load 0x2,-0x1 0090 8210 | | Call 0x1,0x10 0091 0039 | 9 | Store_Top Access,At_Offset_1 0092 8009 | | Call 0x0,0x9 0093 0f41 | A | Execute_Immediate Equal,0x41 0094 6809 |h | Jump_Zero 0x9e 0095 800a | | Call 0x0,0xa 0096 e5fb | | Load 0x2,-0x5 0097 00d9 | | Load_Top At_Offset_1 0098 00db | | Load_Top At_Offset_3 0099 e402 | | Load 0x2,0x2 009a 800d | | Call 0x0,0xd 009b 800e | | Call 0x0,0xe 009c c5fb | | Store 0x2,-0x5 009d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 009e e20f | | Load 0x1,0xf 009f 0092 00c2 | | Action Push_String_Extended,0xc2 ; "Manque Finsi" 00a1 800f | | Call 0x0,0xf 00a2 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a3 e20f | | Load 0x1,0xf 00a4 0092 00c3 | | Action Push_String_Extended,0xc3 ; "Manque Alors" 00a6 800f | | Call 0x0,0xf 00a7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a8 e20f | | Load 0x1,0xf 00a9 0092 00c4 | | Action Push_String_Extended,0xc4 ; "Manque Si" 00ab 800f | | Call 0x0,0xf 00ac 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 8009 | | Call 0x0,0x9 00b4 0f40 | @ | Execute_Immediate Equal,0x40 00b5 6809 |h | Jump_Zero 0xbf 00b6 800a | | Call 0x0,0xa 00b7 e5fb | | Load 0x2,-0x5 00b8 e5fc | | Load 0x2,-0x4 00b9 e5fd | | Load 0x2,-0x3 00ba e5fe | | Load 0x2,-0x2 00bb e5ff | | Load 0x2,-0x1 00bc 800c | | Call 0x0,0xc 00bd c5fb | | Store 0x2,-0x5 00be 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00bf 8010 | | Call 0x0,0x10 00c0 a5fb | | Store_Unchecked 0x2,-0x5 00c1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00c2 ; -------------------------------------------------------------------------------------- 00c2 ; STRING TABLE 00c2 ; -------------------------------------------------------------------------------------- 00c2 0008 | | .STRTAB 0x0008->0x00c6 ; "Manque Finsi" 00c3 0012 | | .STRTAB 0x0012->0x00cc ; "Manque Alors" 00c4 001c | | .STRTAB 0x001c->0x00d2 ; "Manque Si" 00c5 0023 | # | .STREND 0x0023->0x00d6 00c6 4d61 6e71 |Manq| .STRTAB_STRINGS 00d7 0000 | | .XXX[0x1] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 0008 | | .DEBUG4 0x0004,0x0008,0xd5de,0x0000,0x0001,0x0004 00de 000b 00ee | | .DBG4T 0x000b,0x00ee,0x8000,0x0000 00e2 0014 00f2 | | .DBG4T 0x0014,0x00f2,0x8000,0x0000 00e6 006b 00f7 | k | .DBG4T 0x006b,0x00f7,0x0001,0x0000 00ea 00b3 010b | | .DBG4T 0x00b3,0x010b,0x0001,0x0000 00ee ; -------------------------------------------------------------------------------------- 00ee ; Debug chain 00ee ; -------------------------------------------------------------------------------------- 00ee 0002 0000 | | .DBGLEN 0x0002,0x0000 00f0 000b 0011 | | .DBGLNO 0x000b,0x0011 00f2 ; -------------------------------------------------------------------------------------- 00f2 ; Debug chain 00f2 ; -------------------------------------------------------------------------------------- 00f2 0003 0000 | | .DBGLEN 0x0003,0x0000 00f4 0014 0062 | b| .DBGLNO 0x0014,0x0062,0x0064 00f7 ; -------------------------------------------------------------------------------------- 00f7 ; Debug chain 00f7 ; -------------------------------------------------------------------------------------- 00f7 0003 000f | | .DBGLEN 0x0003,0x000f 00f9 006b 006d | k m| .DBGLNO 0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0078,0x0079,0x0080,0x0083,0x0084,0x008b,0x0092,0x0095,0x0096,0x009e,0x00a3,0x00a8 010b ; -------------------------------------------------------------------------------------- 010b ; Debug chain 010b ; -------------------------------------------------------------------------------------- 010b 0000 0004 | | .DBGLEN 0x0000,0x0004 010d 00b3 00b6 | | .DBGLNO 0x00b3,0x00b6,0x00b7,0x00bf 0111 0000 0000 | | .BLANK 0000[0xef]