|
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_0a7cf5
└─⟦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 0150 | P | .CONST 0x0150 ; 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 000f | | .CONST 0x000f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0003 | | .CONST 0x0003 ; Number of locals 000b INIT_0008: 000b 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 000d 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 000f BODY_0008: 000f e5ff | | Load 0x2,-0x1 0010 0f05 | | Execute_Immediate Equal,0x5 0011 7001 |p | Jump_Nonzero 0x13 0012 08e2 | | Execute_Immediate Raise,0xe2 0013 e5fe | | Load 0x2,-0x2 0014 e022 | " | Load 0x0,0x22 0015 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0016 700b |p | Jump_Nonzero 0x22 0017 e023 | # | Load 0x0,0x23 0018 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0019 e023 | # | Load 0x0,0x23 001a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 001b e5fb | | Load 0x2,-0x5 001c e022 | " | Load 0x0,0x22 001d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 001e e023 | # | Load 0x0,0x23 001f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0020 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0021 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0022 8402 | | Call 0x2,0x2 0023 00cf | | Action Mark_Auxiliary 0024 e5fe | | Load 0x2,-0x2 0025 e022 | " | Load 0x0,0x22 0026 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0027 e5fe | | Load 0x2,-0x2 0028 e022 | " | Load 0x0,0x22 0029 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 002a 0263 | c | Execute Discrete,Above_Bound 002b 7007 |p | Jump_Nonzero 0x33 002c 00d8 | | Load_Top At_Offset_0 002d e5fe | | Load 0x2,-0x2 002e e022 | " | Load 0x0,0x22 002f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0030 8403 | | Call 0x2,0x3 0031 00c8 | | Action Pop_Auxiliary_Range 0032 3ff9 |? | Loop_Increasing 0x2c 0033 00ce | | Action Pop_Auxiliary 0034 e023 | # | Load 0x0,0x23 0035 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0036 e023 | # | Load 0x0,0x23 0037 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0038 8210 | | Call 0x1,0x10 0039 4506 |E | Exit_Suprogram New_Top_Offset 0x6 003a 0000 0000 | | .BLANK 0000[0x6] 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 480a |H | Short_Literal 0xa 0044 e022 | " | Load 0x0,0x22 0045 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0046 e023 | # | Load 0x0,0x23 0047 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0048 4800 |H | Short_Literal 0x0 0049 e5fc | | Load 0x2,-0x4 004a e5fd | | Load 0x2,-0x3 004b 820d | | Call 0x1,0xd 004c 480b |H | Short_Literal 0xb 004d e022 | " | Load 0x0,0x22 004e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 004f e023 | # | Load 0x0,0x23 0050 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0051 584a |XJ | Indirect_Literal Float,0x9c,10.0 0052 4802 |H | Short_Literal 0x2 0053 0092 011a | | Action Push_String_Extended,0x11a ; "Identifier" 0055 820e | | Call 0x1,0xe 0056 480b |H | Short_Literal 0xb 0057 e022 | " | Load 0x0,0x22 0058 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0059 e023 | # | Load 0x0,0x23 005a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 005b 583c |X< | Indirect_Literal Float,0x98,20.0 005c 4802 |H | Short_Literal 0x2 005d 0092 011b | | Action Push_String_Extended,0x11b ; "Description" 005f 820e | | Call 0x1,0xe 0060 480b |H | Short_Literal 0xb 0061 e022 | " | Load 0x0,0x22 0062 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0063 e023 | # | Load 0x0,0x23 0064 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0065 5836 |X6 | Indirect_Literal Float,0x9c,10.0 0066 4802 |H | Short_Literal 0x2 0067 0092 011c | | Action Push_String_Extended,0x11c ; "Frequency" 0069 820e | | Call 0x1,0xe 006a 480b |H | Short_Literal 0xb 006b e022 | " | Load 0x0,0x22 006c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 006d e023 | # | Load 0x0,0x23 006e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 006f 582c |X, | Indirect_Literal Float,0x9c,10.0 0070 4802 |H | Short_Literal 0x2 0071 0092 011d | | Action Push_String_Extended,0x11d ; "Legality Checks" 0073 820e | | Call 0x1,0xe 0074 480b |H | Short_Literal 0xb 0075 e022 | " | Load 0x0,0x22 0076 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0077 e023 | # | Load 0x0,0x23 0078 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0079 581a |X | Indirect_Literal Float,0x94,15.0 007a 4802 |H | Short_Literal 0x2 007b 0092 011e | | Action Push_String_Extended,0x11e ; "Source CSU" 007d 820e | | Call 0x1,0xe 007e 480b |H | Short_Literal 0xb 007f e022 | " | Load 0x0,0x22 0080 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0081 e023 | # | Load 0x0,0x23 0082 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0083 5814 |X | Indirect_Literal Float,0x98,20.0 0084 4802 |H | Short_Literal 0x2 0085 0092 011f | | Action Push_String_Extended,0x11f ; "Destination CSU(s)" 0087 820e | | Call 0x1,0xe 0088 480b |H | Short_Literal 0xb 0089 e022 | " | Load 0x0,0x22 008a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 008b e023 | # | Load 0x0,0x23 008c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 008d 5806 |X | Indirect_Literal Float,0x94,15.0 008e 4802 |H | Short_Literal 0x2 008f 0092 0120 | | Action Push_String_Extended,0x120 ; "Data Source" 0091 820e | | Call 0x1,0xe 0092 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0093 0000 | | .XXX[0x1] 0094 402e 0000 |@. | .DBL 15.0 0096 0000 0000 | | 0098 4034 0000 |@4 | .DBL 20.0 009a 0000 0000 | | 009c 4024 0000 |@$ | .DBL 10.0 009e 0000 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a9 | | .CONST 0x00a9 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e02d | - | Load 0x0,0x2d 00a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00a5 02c7 | | Declare_Variable Any 00a6 00db | | Load_Top At_Offset_3 00a7 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 00a8 a602 | | Store_Unchecked 0x3,0x2 00a9 BODY_00a0: 00a9 4801 |H | Short_Literal 0x1 00aa 480d |H | Short_Literal 0xd 00ab e022 | " | Load 0x0,0x22 00ac 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ad 00ea | | Load_Encached Null_String_Cache 00ae 4804 |H | Short_Literal 0x4 00af e602 | | Load 0x3,0x2 00b0 e022 | " | Load 0x0,0x22 00b1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00b2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00b3 4804 |H | Short_Literal 0x4 00b4 e602 | | Load 0x3,0x2 00b5 e022 | " | Load 0x0,0x22 00b6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00b8 820f | | Call 0x1,0xf 00b9 4801 |H | Short_Literal 0x1 00ba 480d |H | Short_Literal 0xd 00bb e022 | " | Load 0x0,0x22 00bc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00bd 00ea | | Load_Encached Null_String_Cache 00be 4800 |H | Short_Literal 0x0 00bf e602 | | Load 0x3,0x2 00c0 e022 | " | Load 0x0,0x22 00c1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00c2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00c3 4801 |H | Short_Literal 0x1 00c4 e602 | | Load 0x3,0x2 00c5 e022 | " | Load 0x0,0x22 00c6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00c7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00c8 820f | | Call 0x1,0xf 00c9 4801 |H | Short_Literal 0x1 00ca 480d |H | Short_Literal 0xd 00cb e022 | " | Load 0x0,0x22 00cc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00cd 00ea | | Load_Encached Null_String_Cache 00ce 4831 |H1 | Short_Literal 0x31 00cf e602 | | Load 0x3,0x2 00d0 e022 | " | Load 0x0,0x22 00d1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00d2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00d3 4831 |H1 | Short_Literal 0x31 00d4 e602 | | Load 0x3,0x2 00d5 e022 | " | Load 0x0,0x22 00d6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00d7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d8 820f | | Call 0x1,0xf 00d9 4801 |H | Short_Literal 0x1 00da 480d |H | Short_Literal 0xd 00db e022 | " | Load 0x0,0x22 00dc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00dd 00ea | | Load_Encached Null_String_Cache 00de 4832 |H2 | Short_Literal 0x32 00df e602 | | Load 0x3,0x2 00e0 e022 | " | Load 0x0,0x22 00e1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00e2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00e3 4832 |H2 | Short_Literal 0x32 00e4 e602 | | Load 0x3,0x2 00e5 e022 | " | Load 0x0,0x22 00e6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e8 820f | | Call 0x1,0xf 00e9 4801 |H | Short_Literal 0x1 00ea 480d |H | Short_Literal 0xd 00eb e022 | " | Load 0x0,0x22 00ec 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ed 00ea | | Load_Encached Null_String_Cache 00ee 4826 |H& | Short_Literal 0x26 00ef e602 | | Load 0x3,0x2 00f0 e022 | " | Load 0x0,0x22 00f1 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00f2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00f3 4826 |H& | Short_Literal 0x26 00f4 e602 | | Load 0x3,0x2 00f5 e022 | " | Load 0x0,0x22 00f6 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00f7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f8 820f | | Call 0x1,0xf 00f9 4801 |H | Short_Literal 0x1 00fa 480d |H | Short_Literal 0xd 00fb e022 | " | Load 0x0,0x22 00fc 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00fd 00ea | | Load_Encached Null_String_Cache 00fe 4827 |H' | Short_Literal 0x27 00ff e602 | | Load 0x3,0x2 0100 e022 | " | Load 0x0,0x22 0101 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0102 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0103 4827 |H' | Short_Literal 0x27 0104 e602 | | Load 0x3,0x2 0105 e022 | " | Load 0x0,0x22 0106 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0107 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0108 820f | | Call 0x1,0xf 0109 4801 |H | Short_Literal 0x1 010a 480d |H | Short_Literal 0xd 010b e022 | " | Load 0x0,0x22 010c 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 010d 00ea | | Load_Encached Null_String_Cache 010e 4824 |H$ | Short_Literal 0x24 010f e602 | | Load 0x3,0x2 0110 e022 | " | Load 0x0,0x22 0111 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0112 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0113 4824 |H$ | Short_Literal 0x24 0114 e602 | | Load 0x3,0x2 0115 e022 | " | Load 0x0,0x22 0116 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0117 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0118 820f | | Call 0x1,0xf 0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011a ; -------------------------------------------------------------------------------------- 011a ; STRING TABLE 011a ; -------------------------------------------------------------------------------------- 011a 0010 | | .STRTAB 0x0010->0x0122 ; "Identifier" 011b 0018 | | .STRTAB 0x0018->0x0127 ; "Description" 011c 0021 | ! | .STRTAB 0x0021->0x012c ; "Frequency" 011d 0028 | ( | .STRTAB 0x0028->0x0131 ; "Legality Checks" 011e 0035 | 5 | .STRTAB 0x0035->0x0138 ; "Source CSU" 011f 003d | = | .STRTAB 0x003d->0x013d ; "Destination CSU(s)" 0120 004d | M | .STRTAB 0x004d->0x0146 ; "Data Source" 0121 0056 | V | .STREND 0x0056->0x014c 0122 4964 656e |Iden| .STRTAB_STRINGS 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; Debug Table 0150 ; -------------------------------------------------------------------------------------- 0150 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc91,0x0000,0x0001,0x0000 0156 049f 1860 | `| .XXX[0xaa] 0158 dab7 a511 | | 015a 382c ee05 |8, | 015c a490 8104 | | 015e 9e28 4df6 | (M | 0160 9a82 5b1d | [ | 0162 a2a1 55a9 | U | 0164 f1a5 d4c2 | | 0166 4968 c4f9 |Ih | 0168 c35a 33bf | Z3 | 016a 4d63 4e49 |McNI| 016c abc4 9ed1 | | 016e f6b7 1a7a | z| 0170 5959 2f17 |YY/ | 0172 0357 293c | W)<| 0174 b087 2969 | )i| 0176 80b6 9619 | | 0178 632d 1946 |c- F| 017a 3509 4980 |5 I | 017c a278 623c | xb<| 017e 0ed7 5816 | X | 0180 8eb6 d6c9 | | 0182 e9ad f454 | T| 0184 3574 4e28 |5tN(| 0186 4e16 b489 |N | 0188 0587 5da9 | ] | 018a 4430 a3c9 |D0 | 018c 6b18 b0d1 |k | 018e 7efb a9c7 |~ | 0190 835e ebd0 | ^ | 0192 d6da 79f0 | y | 0194 b82b 0b58 | + X| 0196 738b 2add |s * | 0198 a921 b106 | ! | 019a d889 0d34 | 4| 019c fb07 5b8f | [ | 019e 811e 869c | | 01a0 63c9 46d9 |c F | 01a2 e852 3e0c | R> | 01a4 8815 982e | .| 01a6 f696 87a1 | | 01a8 b346 d7a2 | F | 01aa 368a b505 |6 | 01ac 1651 4538 | QE8| 01ae 47a1 cdb5 |G | 01b0 b6da e052 | R| 01b2 aeb5 117e | ~| 01b4 fe45 37c7 | E7 | 01b6 7829 5250 |x)RP| 01b8 a76a 3662 | j6b| 01ba f910 15ab | | 01bc adf7 c29a | | 01be 61e3 a6da |a | 01c0 f96f 1eb7 | o | 01c2 d60d bd2d | -| 01c4 dd53 71c9 | Sq | 01c6 5810 aa11 |X | 01c8 6c88 078b |l | 01ca 5b3d 1aaa |[= | 01cc e296 c032 | 2| 01ce 10ab c01a | | 01d0 caf9 5e17 | ^ | 01d2 1645 4947 | EIG| 01d4 7549 e6a4 |uI | 01d6 2916 3aa0 |) : | 01d8 1f60 5aa2 | `Z | 01da 8959 c7b1 | Y | 01dc ed13 406c | @l| 01de 0c57 6ab5 | Wj | 01e0 fc5d df2f | ] /| 01e2 9423 6928 | #i(| 01e4 e60a de28 | (| 01e6 5488 0717 |T | 01e8 5e3a beee |^: | 01ea 96ae 20fa | | 01ec b2df a91c | | 01ee ee8c 044b | K| 01f0 1d45 5606 | EV | 01f2 0c81 64a6 | d | 01f4 f8c9 2042 | B| 01f6 93ec 58eb | X | 01f8 8972 46b9 | rF | 01fa 00eb 6adc | j | 01fc 817a a829 | z )| 01fe b916 012f | /|