|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0118 | | .CONST 0x0118 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001a | | .CONST 0x001a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4805 |H | Short_Literal 0x5 000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 0093 0000 | | push_full_address 0x0 0012 6035 |`5 | Indirect_Literal Discrete,0x48,{0x80000000, 0x00010000} 0013 0273 | s | Execute Discrete,Plus 0014 0129 | ) | Execute Any,Make_Visible 0015 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 0017 00bf | | Action Accept_Activation 0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0019 00c7 | | Action Elaborate_Subprogram 001a BODY_0008: 001a 00bc | | Action Signal_Activated 001b 00bb | | Action Signal_Completion 001c 0000 0000 | | .BLANK 0000[0x4] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4607 |F | Jump_Case 0x8 0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0025 7807 |x | Jump 0x2d ; case 0x1 0026 780a |x | Jump 0x31 ; case 0x2 0027 780e |x | Jump 0x36 ; case 0x3 0028 7811 |x | Jump 0x3a ; case 0x4 0029 7812 |x | Jump 0x3c ; case 0x5 002a 7813 |x | Jump 0x3e ; case 0x6 002b 7816 |x | Jump 0x42 ; case 0x7 002c 4302 |C | .XXX[0x1] 002d 00da | | Load_Top At_Offset_2 002e 0091 0103 | | Action Push_String_Extended_Indexed,0x103 ; "M100" 0030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0031 00db | | Load_Top At_Offset_3 0032 00db | | Load_Top At_Offset_3 0033 00e0 | | Load_Encached Standard_Cache 0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0035 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0036 00da | | Load_Top At_Offset_2 0037 00e0 | | Load_Encached Standard_Cache 0038 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0039 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003a 00db | | Load_Top At_Offset_3 003b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003c 00db | | Load_Top At_Offset_3 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e e20d | | Load 0x1,0xd 003f 00dc | | Load_Top At_Offset_4 0040 0267 | g | Execute Discrete,Predecessor 0041 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0042 e20d | | Load 0x1,0xd 0043 00dc | | Load_Top At_Offset_4 0044 0268 | h | Execute Discrete,Successor 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 0000 0000 | | .XXX[0x2] 0048 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 00b8 | | .CONST 0x00b8 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0016 | | .CONST 0x0016 ; Number of locals 0053 INIT_0050: 0053 e20d | | Load 0x1,0xd 0054 0007 | | Action Break_Optional 0055 e002 | | Load 0x0,0x2 0056 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0057 0604 | | Execute_Immediate Set_Value_Unchecked,0x4 0058 00e2 | | Load_Encached Integer_Cache 0059 4800 |H | Short_Literal 0x0 005a 49ff |I | Short_Literal 0x1ff 005b e002 | | Load 0x0,0x2 005c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 005d 02a0 | | Declare_Subprogram Null_Subprogram 005e 4801 |H | Short_Literal 0x1 005f 035d | ] | Declare_Type Array,Defined 0060 00d8 | | Load_Top At_Offset_0 0061 0337 | 7 | Declare_Variable Array 0062 4801 |H | Short_Literal 0x1 0063 480a |H | Short_Literal 0xa 0064 e002 | | Load 0x0,0x2 0065 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0066 02a0 | | Declare_Subprogram Null_Subprogram 0067 4801 |H | Short_Literal 0x1 0068 035d | ] | Declare_Type Array,Defined 0069 4800 |H | Short_Literal 0x0 006a 4801 |H | Short_Literal 0x1 006b e002 | | Load 0x0,0x2 006c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006d 02a0 | | Declare_Subprogram Null_Subprogram 006e 4801 |H | Short_Literal 0x1 006f 035d | ] | Declare_Type Array,Defined 0070 4800 |H | Short_Literal 0x0 0071 4803 |H | Short_Literal 0x3 0072 e002 | | Load 0x0,0x2 0073 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0074 02a0 | | Declare_Subprogram Null_Subprogram 0075 4801 |H | Short_Literal 0x1 0076 035d | ] | Declare_Type Array,Defined 0077 4800 |H | Short_Literal 0x0 0078 4803 |H | Short_Literal 0x3 0079 e002 | | Load 0x0,0x2 007a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 007b 02a0 | | Declare_Subprogram Null_Subprogram 007c 4801 |H | Short_Literal 0x1 007d 035d | ] | Declare_Type Array,Defined 007e 4801 |H | Short_Literal 0x1 007f 4804 |H | Short_Literal 0x4 0080 e002 | | Load 0x0,0x2 0081 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0082 02a0 | | Declare_Subprogram Null_Subprogram 0083 4801 |H | Short_Literal 0x1 0084 035d | ] | Declare_Type Array,Defined 0085 4800 |H | Short_Literal 0x0 0086 4812 |H | Short_Literal 0x12 0087 00da | | Load_Top At_Offset_2 0088 02a0 | | Declare_Subprogram Null_Subprogram 0089 4801 |H | Short_Literal 0x1 008a 035d | ] | Declare_Type Array,Defined 008b 4800 |H | Short_Literal 0x0 008c 4802 |H | Short_Literal 0x2 008d e002 | | Load 0x0,0x2 008e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 008f 02a0 | | Declare_Subprogram Null_Subprogram 0090 4801 |H | Short_Literal 0x1 0091 035d | ] | Declare_Type Array,Defined 0092 4801 |H | Short_Literal 0x1 0093 49ae |I | Short_Literal 0x1ae 0094 e002 | | Load 0x0,0x2 0095 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0096 02a0 | | Declare_Subprogram Null_Subprogram 0097 4801 |H | Short_Literal 0x1 0098 035d | ] | Declare_Type Array,Defined 0099 e407 | | Load 0x2,0x7 009a e408 | | Load 0x2,0x8 009b e409 | | Load 0x2,0x9 009c e40a | | Load 0x2,0xa 009d e40c | | Load 0x2,0xc 009e e002 | | Load 0x0,0x2 009f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a0 e002 | | Load 0x0,0x2 00a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a2 e408 | | Load 0x2,0x8 00a3 e002 | | Load 0x0,0x2 00a4 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a5 e002 | | Load 0x0,0x2 00a6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a7 e40d | | Load 0x2,0xd 00a8 e40e | | Load 0x2,0xe 00a9 02a0 | | Declare_Subprogram Null_Subprogram 00aa 480c |H | Short_Literal 0xc 00ab 032d | - | Declare_Type Record,Defined 00ac a003 | | Store_Unchecked 0x0,0x3 00ad 00c6 | | Action Check_Subprogram_Elaborated 00ae e405 | | Load 0x2,0x5 00af 00d9 | | Load_Top At_Offset_1 00b0 e004 | | Load 0x0,0x4 00b1 e005 | | Load 0x0,0x5 00b2 4814 |H | Short_Literal 0x14 00b3 0007 | | Action Break_Optional 00b4 e40f | | Load 0x2,0xf 00b5 0322 | " | Declare_Variable Record 00b6 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 00b8 BODY_0050: 00b8 8416 | | Call 0x2,0x16 00b9 00d9 | | Load_Top At_Offset_1 00ba 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00bb 0b00 | | Execute_Immediate Case_Compare,0x0 00bc 7008 |p | Jump_Nonzero 0xc5 00bd 0b02 | | Execute_Immediate Case_Compare,0x2 00be 700a |p | Jump_Nonzero 0xc9 00bf 0b03 | | Execute_Immediate Case_Compare,0x3 00c0 700c |p | Jump_Nonzero 0xcd 00c1 0f04 | | Execute_Immediate Equal,0x4 00c2 7014 |p | Jump_Nonzero 0xd7 00c3 e20e | | Load 0x1,0xe 00c4 0257 | W | Execute Discrete,Raise 00c5 00d1 | | Pop_Control Pop_Count_1 00c6 4800 |H | Short_Literal 0x0 00c7 a402 | | Store_Unchecked 0x2,0x2 00c8 7816 |x | Jump 0xdf 00c9 00d1 | | Pop_Control Pop_Count_1 00ca 4801 |H | Short_Literal 0x1 00cb a402 | | Store_Unchecked 0x2,0x2 00cc 7812 |x | Jump 0xdf 00cd 00d1 | | Pop_Control Pop_Count_1 00ce 00d9 | | Load_Top At_Offset_1 00cf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00d0 7003 |p | Jump_Nonzero 0xd4 00d1 4802 |H | Short_Literal 0x2 00d2 a402 | | Store_Unchecked 0x2,0x2 00d3 780b |x | Jump 0xdf 00d4 4802 |H | Short_Literal 0x2 00d5 a402 | | Store_Unchecked 0x2,0x2 00d6 7808 |x | Jump 0xdf 00d7 00d9 | | Load_Top At_Offset_1 00d8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00d9 7003 |p | Jump_Nonzero 0xdd 00da 4804 |H | Short_Literal 0x4 00db a402 | | Store_Unchecked 0x2,0x2 00dc 7802 |x | Jump 0xdf 00dd 4804 |H | Short_Literal 0x4 00de a402 | | Store_Unchecked 0x2,0x2 00df e402 | | Load 0x2,0x2 00e0 00ca | | Action Exit_Nullary_Function 00e1 0000 0000 | | .BLANK 0000[0x7] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00cf | | Action Mark_Auxiliary 00ec 49ff |I | Short_Literal 0x1ff 00ed 4800 |H | Short_Literal 0x0 00ee 0007 | | Action Break_Optional 00ef 00d8 | | Load_Top At_Offset_0 00f0 e403 | | Load 0x2,0x3 00f1 e002 | | Load 0x0,0x2 00f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f3 00d9 | | Load_Top At_Offset_1 00f4 e406 | | Load 0x2,0x6 00f5 01d6 | | Execute Vector,Field_Write 00f6 00c8 | | Action Pop_Auxiliary_Range 00f7 3ff7 |? | Loop_Increasing 0xef 00f8 00ce | | Action Pop_Auxiliary 00f9 e406 | | Load 0x2,0x6 00fa e410 | | Load 0x2,0x10 00fb e411 | | Load 0x2,0x11 00fc 4812 |H | Short_Literal 0x12 00fd 4802 |H | Short_Literal 0x2 00fe 0099 | | Action Reference_Dynamic 00ff 8003 | | Call 0x0,0x3 0100 e415 | | Load 0x2,0x15 0101 017d | } | Execute Record,Structure_Write 0102 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0103 ; -------------------------------------------------------------------------------------- 0103 ; STRING TABLE 0103 ; -------------------------------------------------------------------------------------- 0103 000e | | .STRTAB 0x000e->0x010a ; "M100" 0104 0010 | | .STRTAB 0x0010->0x010c ; "M200" 0105 0012 | | .STRTAB 0x0012->0x010e ; "M300S" 0106 0015 | | .STRTAB 0x0015->0x0110 ; "M300C" 0107 0018 | | .STRTAB 0x0018->0x0113 ; "M400S" 0108 001b | | .STRTAB 0x001b->0x0115 ; "M400C" 0109 001e | | .STREND 0x001e->0x0118 010a 4d31 3030 |M100| .STRTAB_STRINGS 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 0011 | | .DEBUG4 0x0004,0x0011,0x349e,0x0000,0x0001,0x0000 011e 2885 0d3d |( =| .XXX[0xe2] 0120 3535 0539 |55 9| 0122 114c b931 | L 1| 0124 2539 2d4c |%9-L| 0126 9d4d 4115 | MA | 0128 0c29 1951 | ) Q| 012a 417d 4149 |A}AI| 012c 3d19 2531 |= %1| 012e 1428 8551 | ( Q| 0130 3d3d 314c |==1L| 0132 b939 1551 | 9 Q| 0134 5d3d 492d |]=I-| 0136 2539 1cb9 |%9 | 0138 1951 417d | QA}| 013a 4149 3d19 |AI= | 013c 2531 149d |%1 | 013e 4d41 150c |MA | 0140 2911 2505 |) % | 0142 3904 2885 |9 ( | 0144 2535 4131 |%5A1| 0146 1535 1539 | 5 9| 0148 5105 5125 |Q Q%| 014a 3d38 b911 |=8 | 014c 2505 3904 |% 9 | 014e 9d4d 4115 | MA | 0150 0c29 0d3d | ) =| 0152 3535 3d38 |55=8| 0154 2885 0d3d |( =| 0156 3535 0539 |55 9| 0158 114c b90d | L | 015a 3d35 353d |=55=| 015c 389d 4d41 |8 MA| 015e 150c 290d | ) | 0160 3559 0d7d |5Y }| 0162 2535 4131 |%5A1| 0164 1535 1539 | 5 9| 0166 5105 5125 |Q Q%| 0168 3d39 7d15 |=9} | 016a 4949 3d49 |II=I| 016c 4c28 8525 |L( %| 016e 3541 3115 |5A1 | 0170 3515 3951 |5 9Q| 0172 0551 253d | Q%=| 0174 38b9 0d35 |8 5| 0176 590d 7d25 |Y }%| 0178 3541 3115 |5A1 | 017a 3515 3951 |5 9Q| 017c 0551 253d | Q%=| 017e 397d 1549 |9} I| 0180 493d 494c |I=IL| 0182 9d4d 4115 | MA | 0184 0c28 2885 | (( | 0186 0d3d 3535 | =55| 0188 0539 114c | 9 L| 018a b94d 2535 | M%5| 018c 4cb9 4915 |L I | 018e 58e5 7cc9 |X | | 0190 7d4d 4115 |}MA | 0192 0cb9 4d51 | MQ| 0194 0551 14b9 | Q | 0196 0d3d 3541 | =5A| 0198 2531 1549 |%1 I| 019a 7d4d 5d25 |}M]%| 019c 510d 2115 |Q ! | 019e 4c28 8535 |L( 5| 01a0 050d 2125 | !%| 01a2 3914 b911 |9 | 01a4 194c b949 | L I| 01a6 1558 cd7c | X || 01a8 c17d 4d41 | }MA| 01aa 150c 295d | )]| 01ac f1f1 f080 | | 01ae d0bc c4cc | | 01b0 bce4 c880 | | 01b2 c4d8 e8c8 | | 01b4 c8e8 d0c1 | | 01b6 f14d 4115 | MA | 01b8 0d7d 5925 | }Y%| 01ba 155d f1f1 | ] | 01bc f029 0539 | ) 9| 01be 1551 5d3d | Q]=| 01c0 492d 7d41 |I-}A| 01c2 5509 3125 |U 1%| 01c4 0cf4 f949 | I| 01c6 0d3d 10b1 | = | 01c8 4155 0931 |AU 1| 01ca 250c f4f9 |% | 01cc 490d 3d11 |I = | 01ce f111 3915 | 9 | 01d0 515d 3d49 |Q]=I| 01d2 2d7d 4155 |-}AU| 01d4 0931 250c | 1% | 01d6 f4f9 495c | I\| 01d8 b141 5509 | AU | 01da 3125 0cf4 |1% | 01dc f949 5df1 | I] | 01de 5148 c4c0 |QH | 01e0 c0c1 f028 | (| 01e2 8535 050d | 5 | 01e4 2125 3914 |!%9 | 01e6 b911 194c | L| 01e8 b949 1558 | I X| 01ea cd7c c17d | | }| 01ec 4d41 150c |MA | 01ee 2964 2829 |)d()| 01f0 5149 0539 |QI 9| 01f2 4d41 3d49 |MA=I| 01f4 517d 3905 |Q}9 | 01f6 3514 2885 |5 ( | 01f8 513d 3d31 |Q==1| 01fa 4cb9 3915 |L 9 | 01fc 515d 3d49 |Q]=I| 01fe 2d25 391c |-%9 |