|
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_6148f2
└─⟦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 0068 | h | .CONST 0x0068 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 00e3 | | Load_Encached Natural_Cache 000d 00e9 | | Load_Encached String_Cache 000e 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 4801 |H | Short_Literal 0x1 0013 4800 |H | Short_Literal 0x0 0014 4801 |H | Short_Literal 0x1 0015 4801 |H | Short_Literal 0x1 0016 031e | | Declare_Type Variant_Record,Defined,Visible 0017 00d8 | | Load_Top At_Offset_0 0018 02a0 | | Declare_Subprogram Null_Subprogram 0019 481a |H | Short_Literal 0x1a 001a 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 001b 00bf | | Action Accept_Activation 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 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 4608 |F | Jump_Case 0x9 0024 7808 |x | Jump 0x2d ; case 0x0 0025 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0026 783e |x> | Jump 0x65 ; case 0x2 0027 783d |x= | Jump 0x65 ; case 0x3 0028 783c |x< | Jump 0x65 ; case 0x4 0029 783b |x; | Jump 0x65 ; case 0x5 002a 783a |x: | Jump 0x65 ; case 0x6 002b 7826 |x& | Jump 0x52 ; case 0x7 002c 782e |x. | Jump 0x5b ; case 0x8 002d 4800 |H | Short_Literal 0x0 002e 00db | | Load_Top At_Offset_3 002f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0030 00da | | Load_Top At_Offset_2 0031 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0032 0335 | 5 | Declare_Variable Array,Duplicate 0033 00d0 | | Action Swap_Control 0034 00d1 | | Pop_Control Pop_Count_1 0035 00db | | Load_Top At_Offset_3 0036 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0037 01d9 | | Execute Vector,Reverse_Bounds 0038 0263 | c | Execute Discrete,Above_Bound 0039 7005 |p | Jump_Nonzero 0x3f 003a 4800 |H | Short_Literal 0x0 003b 00d9 | | Load_Top At_Offset_1 003c e402 | | Load 0x2,0x2 003d 01d6 | | Execute Vector,Field_Write 003e 3ffb |? | Loop_Increasing 0x3a 003f 00db | | Load_Top At_Offset_3 0040 00d8 | | Load_Top At_Offset_0 0041 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0042 00da | | Load_Top At_Offset_2 0043 01da | | Execute Vector,Bounds 0044 00da | | Load_Top At_Offset_2 0045 01da | | Execute Vector,Bounds 0046 00da | | Load_Top At_Offset_2 0047 027f | | Execute Discrete,Equal 0048 7001 |p | Jump_Nonzero 0x4a 0049 08e0 | | Execute_Immediate Raise,0xe0 004a 00d0 | | Action Swap_Control 004b 00d1 | | Pop_Control Pop_Count_1 004c 027f | | Execute Discrete,Equal 004d 7001 |p | Jump_Nonzero 0x4f 004e 08e0 | | Execute_Immediate Raise,0xe0 004f 00d1 | | Pop_Control Pop_Count_1 0050 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3 0051 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0052 00db | | Load_Top At_Offset_3 0053 4801 |H | Short_Literal 0x1 0054 e5fe | | Load 0x2,-0x2 0055 00e9 | | Load_Encached String_Cache 0056 035b | [ | Declare_Type Array,Constrained 0057 4801 |H | Short_Literal 0x1 0058 e5ff | | Load 0x2,-0x1 0059 031b | | Declare_Type Variant_Record,Constrained 005a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005b 00db | | Load_Top At_Offset_3 005c 00db | | Load_Top At_Offset_3 005d 02fc | | Declare_Variable Variant_Record,With_Constraint 005e 4801 |H | Short_Literal 0x1 005f e5fe | | Load 0x2,-0x2 0060 00e9 | | Load_Encached String_Cache 0061 0334 | 4 | Declare_Variable Array,With_Constraint 0062 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3 0063 016a | j | QQ_execute Variant_Record,XXX 0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0065 0869 | i | Execute_Immediate Raise,0x69 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa8d8,0x0000,0x0001,0x0000 006e 9003 1c74 | t| .XXX[0x6] 0070 a003 1c02 | | 0072 f002 ec00 | | 0074 0000 0000 | | .BLANK 0000[0x6] 007a 0003 ec00 | | .XXX[0x6] 007c 1000 0518 | | 007e 21e0 210c |! ! | 0080 090c 090c | | .BLANK 090c[0x7] 0087 0803 68d0 | h | .XXX[0xe] 0089 0004 9403 | | 008b 68d0 0070 |h p| 008d 0003 68d0 | h | 008f 0404 9403 | | 0091 68d0 0470 |h p| 0093 010c 0800 | | 0095 0000 0000 | | .BLANK 0000[0x5] 009a 0004 6c00 | l | .XXX[0x166] 009c 1000 0518 | | 009e 0d0c 09e0 | | 00a0 09e0 15e0 | | 00a2 2403 6802 |$ h | 00a4 4442 4108 |DBA | 00a6 0403 6c03 | l | 00a8 6c03 8060 |l `| 00aa 6d08 0803 |m | 00ac 6803 8060 |h `| 00ae 7108 0400 |q | 00b0 0000 0000 | | 00b2 0005 0400 | | 00b4 1000 0b88 | | 00b6 5397 f788 |S | 00b8 5003 ac60 |P `| 00ba 4920 0120 |I | 00bc 0b97 fc03 | | 00be ac60 4803 | `H | 00c0 ac60 4a08 | `J | 00c2 bc00 c403 | | 00c4 6388 4003 |c @ | 00c6 ac60 4b97 | `K | 00c8 f520 0520 | | 00ca 0b97 fe08 | | 00cc 5c00 c797 |\ | 00ce f803 6408 | d | 00d0 5ca0 1003 |\ | 00d2 6008 5cb0 |` \ | 00d4 1125 c803 | % | 00d6 ac02 6060 | ``| 00d8 3c03 6110 |< a | 00da 0c05 cc00 | | 00dc 1000 2003 | | 00de b003 b388 | | 00e0 5000 1c03 |P | 00e2 b397 fd25 | %| 00e4 d803 ac02 | | 00e6 6060 4525 |``E%| 00e8 d803 ac02 | | 00ea 6060 5c00 |``\ | 00ec c403 b397 | | 00ee fc00 c797 | | 00f0 fb88 540f | T | 00f2 c400 1c0a | | 00f4 7c3a 0f97 ||: | 00f6 f918 11e0 | | 00f8 81e0 0de1 | | 00fa 89e1 0914 | | 00fc 1f97 ff80 | | 00fe 1c60 3da0 | `= | 0100 1c03 ac60 | `| 0102 4b97 ff80 |K | 0104 1c60 4210 | `B | 0106 2114 1f97 |! | 0108 e803 9c09 | | 010a a790 1608 | | 010c b290 0f90 | | 010e 0c03 ac60 | `| 0110 4dc0 1803 |M | 0112 ac60 4b90 | `K | 0114 0c03 ac62 | b| 0116 f610 2114 | ! | 0118 1f97 e690 | | 011a 1003 3de0 | = | 011c 1790 1008 | | 011e 5cb0 0e90 |\ | 0120 1003 2790 | ' | 0122 1008 5cb0 | \ | 0124 043c 05df | < | 0126 d803 3803 | 8 | 0128 6c03 ac60 |l `| 012a ab90 1008 | | 012c 5cb0 1125 |\ %| 012e c803 ac02 | | 0130 6060 6003 |``` | 0132 ac61 91a0 | a | 0134 2003 6f90 | o | 0136 1008 5cb0 | \ | 0138 1125 c803 | % | 013a ac02 6060 | ``| 013c 4514 1f97 |E | 013e fc03 ac60 | `| 0140 502d 05c0 |P- | 0142 142d 21c0 | -! | 0144 302c f5c0 |0, | 0146 29e0 4d20 |) M | 0148 0801 4c03 | L | 014a ac60 4b97 | `K | 014c fc03 ac63 | c| 014e 3610 21e0 |6 ! | 0150 2920 0801 |) | 0152 4c03 ac60 |L `| 0154 4b97 fc03 |K | 0156 ac63 3803 | c8 | 0158 ac63 6a10 | cj | 015a 2003 4514 | E | 015c 1f97 fc03 | | 015e ac60 502d | `P-| 0160 05c0 a02c | ,| 0162 f9c0 dc2c | ,| 0164 f5c0 d42d | -| 0166 25c0 ec2c |% ,| 0168 fdc1 002c | ,| 016a edc1 0c2d | -| 016c 21c1 182d |! -| 016e 1dc1 942d | -| 0170 19c1 8c2d | -| 0172 39c1 982d |9 -| 0174 29c1 902d |) -| 0176 31c1 882d |1 -| 0178 c9c1 802d | -| 017a 61c1 842c |a ,| 017c 01c1 902e | .| 017e 5dc1 882e |] .| 0180 25c1 802e |% .| 0182 3dc1 902e |= .| 0184 31c1 d02e |1 .| 0186 51c2 4583 |Q E | 0188 9809 5c03 | \ | 018a ac60 4b97 | `K | 018c e803 9c09 | | 018e a790 1780 | | 0190 2060 4610 | `F | 0192 2397 e803 |# | 0194 9c09 a790 | | 0196 1780 2060 | `| 0198 4290 0de2 |B | 019a 4b97 e803 |K | 019c 9c09 a790 | | 019e 1780 2060 | `| 01a0 4290 0de2 |B | 01a2 2b97 fc03 |+ | 01a4 ac63 9403 | c | 01a6 ac62 da90 | b | 01a8 0de2 0f97 | | 01aa fc03 ac63 | c| 01ac 9a90 0de1 | | 01ae fb97 fc03 | | 01b0 ac63 a290 | c | 01b2 0de1 e797 | | 01b4 e408 5cb0 | \ | 01b6 1790 1408 | | 01b8 7dc0 4797 |} G | 01ba e803 9c09 | | 01bc a790 1780 | | 01be 2060 4290 | `B | 01c0 0f90 0c03 | | 01c2 ac60 4dc0 | `M | 01c4 1803 ac60 | `| 01c6 4b90 0c03 |K | 01c8 ac63 6a10 | cj | 01ca 2397 fc03 |# | 01cc ac62 da90 | b | 01ce 0f90 0c03 | | 01d0 ac60 503d | `P=| 01d2 dda1 6514 | e | 01d4 1f97 fc03 | | 01d6 ac62 da90 | b | 01d8 0de1 4f97 | O | 01da fe90 0de1 | | 01dc 4397 fc03 |C | 01de ac63 8290 | c | 01e0 0de1 2c03 | , | 01e2 ac60 4803 | `H | 01e4 ac60 4a10 | `J | 01e6 2114 1f97 |! | 01e8 fc03 ac63 | c| 01ea b290 1803 | | 01ec 6d25 d803 |m% | 01ee ac02 6060 | ``| 01f0 4525 d803 |E% | 01f2 ac02 6060 | ``| 01f4 5e90 1797 |^ | 01f6 ef97 fe10 | | 01f8 2114 1f97 |! | 01fa fc03 ac63 | c| 01fc b290 0b90 | | 01fe 0803 ac60 | `|