|
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
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0080 | | .CONST 0x0080 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 e001 | | Load 0x0,0x1 0011 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0012 0266 | f | Execute Discrete,Bounds 0013 e001 | | Load 0x0,0x1 0014 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4801 |H | Short_Literal 0x1 0017 035e | ^ | Declare_Type Array,Defined,Visible 0018 c210 | | Store 0x1,0x10 0019 4800 |H | Short_Literal 0x0 001a 4be8 |K | Short_Literal 0x3e8 001b 00e3 | | Load_Encached Natural_Cache 001c 03f9 | | Declare_Type Discrete,Constrained,Visible 001d c20e | | Store 0x1,0xe 001e e20e | | Load 0x1,0xe 001f 00d8 | | Load_Top At_Offset_0 0020 e001 | | Load 0x0,0x1 0021 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0022 e001 | | Load 0x0,0x1 0023 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0024 00e1 | | Load_Encached Boolean_Cache 0025 e210 | | Load 0x1,0x10 0026 4801 |H | Short_Literal 0x1 0027 4be8 |K | Short_Literal 0x3e8 0028 00e9 | | Load_Encached String_Cache 0029 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 002a 4801 |H | Short_Literal 0x1 002b 4be8 |K | Short_Literal 0x3e8 002c 00e9 | | Load_Encached String_Cache 002d 034f | O | Declare_Type Array,Constrained,Visible,Bounds_With_Object 002e 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 0030 4800 |H | Short_Literal 0x0 0031 4802 |H | Short_Literal 0x2 0032 4804 |H | Short_Literal 0x4 0033 4800 |H | Short_Literal 0x0 0034 4802 |H | Short_Literal 0x2 0035 4802 |H | Short_Literal 0x2 0036 031e | | Declare_Type Variant_Record,Defined,Visible 0037 c211 | | Store 0x1,0x11 0038 00bf | | Action Accept_Activation 0039 BODY_0008: 0039 00bc | | Action Signal_Activated 003a 00bb | | Action Signal_Completion 003b 0000 0000 | | .BLANK 0000[0x5] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4608 |F | Jump_Case 0x9 0044 7808 |x | Jump 0x4d ; case 0x0 0045 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0046 7831 |x1 | Jump 0x78 ; case 0x2 0047 7830 |x0 | Jump 0x78 ; case 0x3 0048 782f |x/ | Jump 0x78 ; case 0x4 0049 782e |x. | Jump 0x78 ; case 0x5 004a 782d |x- | Jump 0x78 ; case 0x6 004b 780e |x | Jump 0x5a ; case 0x7 004c 781b |x | Jump 0x68 ; case 0x8 004d e5ff | | Load 0x2,-0x1 004e 016c | l | Execute Variant_Record,Is_Constrained 004f 7009 |p | Jump_Nonzero 0x59 0050 00cf | | Action Mark_Auxiliary 0051 4be8 |K | Short_Literal 0x3e8 0052 4be8 |K | Short_Literal 0x3e8 0053 e5ff | | Load 0x2,-0x1 0054 1c08 | | Execute_Immediate Run_Utility,0x8 0055 00d8 | | Load_Top At_Offset_0 0056 1c00 | | Execute_Immediate Run_Utility,0x0 0057 c5ff | | Store 0x2,-0x1 0058 00ce | | Action Pop_Auxiliary 0059 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 005a e5fd | | Load 0x2,-0x3 005b e5fe | | Load 0x2,-0x2 005c 4801 |H | Short_Literal 0x1 005d e5fd | | Load 0x2,-0x3 005e 00e9 | | Load_Encached String_Cache 005f 035b | [ | Declare_Type Array,Constrained 0060 4801 |H | Short_Literal 0x1 0061 e5fe | | Load 0x2,-0x2 0062 00e9 | | Load_Encached String_Cache 0063 035b | [ | Declare_Type Array,Constrained 0064 4802 |H | Short_Literal 0x2 0065 e5ff | | Load 0x2,-0x1 0066 031b | | Declare_Type Variant_Record,Constrained 0067 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0068 e5fd | | Load 0x2,-0x3 0069 e5fe | | Load 0x2,-0x2 006a e5ff | | Load 0x2,-0x1 006b 02fc | | Declare_Variable Variant_Record,With_Constraint 006c 4801 |H | Short_Literal 0x1 006d e5fd | | Load 0x2,-0x3 006e 00e9 | | Load_Encached String_Cache 006f 0334 | 4 | Declare_Variable Array,With_Constraint 0070 2d07 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7 0071 4801 |H | Short_Literal 0x1 0072 e5fe | | Load 0x2,-0x2 0073 00e9 | | Load_Encached String_Cache 0074 0334 | 4 | Declare_Variable Array,With_Constraint 0075 2d08 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x8 0076 016a | j | QQ_execute Variant_Record,XXX 0077 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0078 0869 | i | Execute_Immediate Raise,0x69 0079 0000 0000 | | .BLANK 0000[0x7] 0080 ; -------------------------------------------------------------------------------------- 0080 ; Debug Table 0080 ; -------------------------------------------------------------------------------------- 0080 0004 000f | | .DEBUG4 0x0004,0x000f,0x42fa,0x0000,0x0001,0x0000 0086 20b2 3090 | 0 | .XXX[0x10e] 0088 3ab7 34ba |: 4 | 008a 3990 3a34 |9 :4| 008c 30ba 1034 |0 4| 008e 30bb 3290 |0 2 | 0090 3a34 3290 |:42 | 0092 39b0 b6b2 |9 | 0094 9037 30b6 | 70 | 0096 b290 30b9 | 0 | 0098 9030 9037 | 0 7| 009a 32bb b63c |2 <| 009c 9031 b932 | 1 2| 009e b0ba 32b2 | 2 | 00a0 103a b734 | : 4| 00a2 ba10 30b9 | 0 | 00a4 3280 0000 |2 | 00a6 3700 0000 |7 | 00a8 2390 22bc |# " | 00aa 34b9 ba34 |4 4| 00ac b733 9020 | 3 | 00ae b230 903a | 0 :| 00b0 b734 ba39 | 4 9| 00b2 903a 3430 | :40| 00b4 ba10 3430 | 40| 00b6 bb32 903a | 2 :| 00b8 3432 9039 |42 9| 00ba b0b6 b290 | | 00bc 3730 b6b2 |70 | 00be 9030 b990 | 0 | 00c0 3090 3732 |0 72| 00c2 bbb6 3c90 | < | 00c4 31b9 32b0 |1 2 | 00c6 ba32 b210 | 2 | 00c8 3ab7 34ba |: 4 | 00ca 1030 b932 | 0 2| 00cc 8000 0037 | 7| 00ce 0000 0023 | #| 00d0 9022 bc34 | " 4| 00d2 b9ba 34b7 | 4 | 00d4 3390 20b2 |3 | 00d6 3090 3ab7 |0 : | 00d8 34ba 3990 |4 9 | 00da 3a34 30ba |:40 | 00dc 1034 30bb | 40 | 00de 3290 3a34 |2 :4| 00e0 3290 39b0 |2 9 | 00e2 b6b2 9037 | 7| 00e4 30b6 b290 |0 | 00e6 30b9 9030 |0 0| 00e8 9037 32bb | 72 | 00ea b63c 9031 | < 1| 00ec b932 b0ba | 2 | 00ee 32b2 103a |2 :| 00f0 b734 ba10 | 4 | 00f2 30b9 3280 |0 2 | 00f4 0000 1b80 | | 00f6 0000 2336 | #6| 00f8 b0b2 3290 | 2 | 00fa 37b1 39b7 |7 9 | 00fc b632 ba32 | 2 2| 00fe 9030 b732 | 0 2| 0100 1030 b932 | 0 2| 0102 9032 32b6 | 22 | 0104 32ba 32b2 |2 2 | 0106 1033 3937 | 397| 0108 b690 3a34 | :4| 010a 3290 3634 |2 64| 010c b139 30b9 | 90 | 010e 3c97 102a |< *| 0110 3432 9037 |42 7| 0112 b934 b3b4 | 4 | 0114 b730 b610 | 0 | 0116 3a32 bc3a |:2 :| 0118 1033 34b6 | 34 | 011a 3280 0000 |2 | 011c 1b00 0000 | | 011e 2390 36b0 |# 6 | 0120 b232 9037 | 2 7| 0122 b139 b7b6 | 9 | 0124 32ba 3290 |2 2 | 0126 30b7 3210 |0 2 | 0128 30b9 3290 |0 2 | 012a 3232 b632 |22 2| 012c ba32 b210 | 2 | 012e 3339 37b6 |397 | 0130 903a 3432 | :42| 0132 9036 34b1 | 64 | 0134 3930 b93c |90 <| 0136 9710 2a34 | *4| 0138 3290 37b9 |2 7 | 013a 34b3 b4b7 |4 | 013c 30b6 103a |0 :| 013e 32bc 3a10 |2 : | 0140 3334 b632 |34 2| 0142 8000 001b | | 0144 0000 0023 | #| 0146 9036 b0b2 | 6 | 0148 3290 37b1 |2 7 | 014a 39b7 b632 |9 2| 014c ba32 9030 | 2 0| 014e b732 1030 | 2 0| 0150 b932 9032 | 2 2| 0152 32b6 32ba |2 2 | 0154 32b2 1033 |2 3| 0156 3937 b690 |97 | 0158 3a34 3290 |:42 | 015a 3634 b139 |64 9| 015c 30b9 3c97 |0 < | 015e 102a 3432 | *42| 0160 9037 b934 | 7 4| 0162 b3b4 b730 | 0| 0164 b610 3a32 | :2| 0166 bc3a 1033 | : 3| 0168 34b6 3280 |4 2 | 016a 0000 3f80 | ? | 016c 0000 0939 | 9| 016e 32b6 b0b4 |2 | 0170 b739 903a | 9 :| 0172 b731 b430 | 1 0| 0174 b733 b2b2 | 3 | 0176 1700 0000 | | 0178 3f00 0000 |? | 017a 0990 3932 | 92| 017c b6b0 b4b7 | | 017e 3990 3ab7 |9 : | 0180 31b4 30b7 |1 0 | 0182 33b2 b217 |3 | 0184 0000 003f | ?| 0186 0000 0009 | | 0188 9039 32b6 | 92 | 018a b0b4 b739 | 9| 018c 903a b731 | : 1| 018e b430 b733 | 0 3| 0190 b2b2 1700 | | 0192 0000 0080 | | 0194 0000 0000 | | .BLANK 0000[0x5] 0199 0900 0000 | | .XXX[0x67] 019b 0000 0000 | | 019d 0880 0000 | | 019f 0a00 0000 | | 01a1 23aa 3434 |# 44| 01a3 b990 3839 | 89| 01a5 37b1 b2b2 |7 | 01a7 3ab9 3290 |: 2 | 01a9 34b9 903a |4 :| 01ab b9b2 b33a | :| 01ad b610 3bb4 | ; | 01af 32b7 103a |2 :| 01b1 3930 b739 |90 9| 01b3 b837 b93a | 7 :| 01b5 34b7 3390 |4 3 | 01b7 20b2 3090 | 0 | 01b9 39b7 bab9 |9 | 01bb 31b2 9031 |1 1| 01bd b7b2 3290 | 2 | 01bf 3339 37b6 |397 | 01c1 9030 b737 | 0 7| 01c3 ba34 32b9 | 42 | 01c5 0000 0009 | | 01c7 8000 0024 | $| 01c9 102a 3434 | *44| 01cb b990 3839 | 89| 01cd 37b1 b2b2 |7 | 01cf 3ab9 3290 |: 2 | 01d1 34b9 903a |4 :| 01d3 b9b2 b33a | :| 01d5 b610 3bb4 | ; | 01d7 32b7 103a |2 :| 01d9 3930 b739 |90 9| 01db b837 b93a | 7 :| 01dd 34b7 3390 |4 3 | 01df 20b2 3090 | 0 | 01e1 39b7 bab9 |9 | 01e3 31b2 9031 |1 1| 01e5 b7b2 3290 | 2 | 01e7 3339 37b6 |397 | 01e9 9030 b737 | 0 7| 01eb ba34 32b9 | 42 | 01ed 0000 0009 | | 01ef 8000 0024 | $| 01f1 102a 3434 | *44| 01f3 b990 3839 | 89| 01f5 37b1 b2b2 |7 | 01f7 3ab9 3290 |: 2 | 01f9 34b9 903a |4 :| 01fb b9b2 b33a | :| 01fd b610 3bb4 | ; | 01ff 32b7 |2 |