|
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 - metrics - 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 01e0 | | .CONST 0x01e0 ; 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 8001 | | .CONST 0x8001 ; 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 0f03 | | Execute_Immediate Equal,0x3 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 015f | _| Action Push_String_Extended,0x15f ; "Name" 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 0160 | `| Action Push_String_Extended,0x160 ; "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 582e |X. | Indirect_Literal Float,0x94,15.0 0066 4802 |H | Short_Literal 0x2 0067 0092 0161 | a| Action Push_String_Extended,0x161 ; "Source CI" 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 5828 |X( | Indirect_Literal Float,0x98,20.0 0070 4802 |H | Short_Literal 0x2 0071 0092 0162 | b| Action Push_String_Extended,0x162 ; "Destination CI(s)" 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 5822 |X" | Indirect_Literal Float,0x9c,10.0 007a 4802 |H | Short_Literal 0x2 007b 0092 0163 | c| Action Push_String_Extended,0x163 ; "Frequency" 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 5818 |X | Indirect_Literal Float,0x9c,10.0 0084 4802 |H | Short_Literal 0x2 0085 0092 0164 | d| Action Push_String_Extended,0x164 ; "Legality\x0aChecks" 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 0165 | e| Action Push_String_Extended,0x165 ; "Priority" 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 00c1 | | .CONST 0x00c1 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0005 | | .CONST 0x0005 ; 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 e024 | $ | Load 0x0,0x24 00aa 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00ab 02c7 | | Declare_Variable Any 00ac e022 | " | Load 0x0,0x22 00ad 1b8b | | Execute Package,Field_Read,Field_Number 0x8b 00ae 00da | | Load_Top At_Offset_2 00af e02d | - | Load 0x0,0x2d 00b0 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 00b1 e024 | $ | Load 0x0,0x24 00b2 1872 | r | Execute Package,Field_Execute,Field_Number 0x72 00b3 a603 | | Store_Unchecked 0x3,0x3 00b4 e02c | , | Load 0x0,0x2c 00b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00b6 02c7 | | Declare_Variable Any 00b7 e022 | " | Load 0x0,0x22 00b8 1b8a | | Execute Package,Field_Read,Field_Number 0x8a 00b9 00db | | Load_Top At_Offset_3 00ba e02d | - | Load 0x0,0x2d 00bb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00bc e02c | , | Load 0x0,0x2c 00bd 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 00be a604 | | Store_Unchecked 0x3,0x4 00bf 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 00c1 BODY_00a0: 00c1 4801 |H | Short_Literal 0x1 00c2 480d |H | Short_Literal 0xd 00c3 e022 | " | Load 0x0,0x22 00c4 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00c5 00ea | | Load_Encached Null_String_Cache 00c6 4804 |H | Short_Literal 0x4 00c7 e602 | | Load 0x3,0x2 00c8 e022 | " | Load 0x0,0x22 00c9 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00ca 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00cb 4804 |H | Short_Literal 0x4 00cc e602 | | Load 0x3,0x2 00cd e022 | " | Load 0x0,0x22 00ce 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00cf 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00d0 820f | | Call 0x1,0xf 00d1 4801 |H | Short_Literal 0x1 00d2 480d |H | Short_Literal 0xd 00d3 e022 | " | Load 0x0,0x22 00d4 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00d5 00ea | | Load_Encached Null_String_Cache 00d6 4800 |H | Short_Literal 0x0 00d7 e602 | | Load 0x3,0x2 00d8 e022 | " | Load 0x0,0x22 00d9 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00da 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00db 4801 |H | Short_Literal 0x1 00dc e602 | | Load 0x3,0x2 00dd e022 | " | Load 0x0,0x22 00de 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00df 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e0 820f | | Call 0x1,0xf 00e1 4801 |H | Short_Literal 0x1 00e2 480d |H | Short_Literal 0xd 00e3 e022 | " | Load 0x0,0x22 00e4 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00e5 00ea | | Load_Encached Null_String_Cache 00e6 4800 |H | Short_Literal 0x0 00e7 e604 | | Load 0x3,0x4 00e8 e022 | " | Load 0x0,0x22 00e9 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00ea 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00eb 4801 |H | Short_Literal 0x1 00ec e604 | | Load 0x3,0x4 00ed e022 | " | Load 0x0,0x22 00ee 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f0 820f | | Call 0x1,0xf 00f1 8605 | | Call 0x3,0x5 00f2 4801 |H | Short_Literal 0x1 00f3 480d |H | Short_Literal 0xd 00f4 e022 | " | Load 0x0,0x22 00f5 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00f6 00ea | | Load_Encached Null_String_Cache 00f7 4831 |H1 | Short_Literal 0x31 00f8 e602 | | Load 0x3,0x2 00f9 e022 | " | Load 0x0,0x22 00fa 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00fb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00fc 4831 |H1 | Short_Literal 0x31 00fd e602 | | Load 0x3,0x2 00fe e022 | " | Load 0x0,0x22 00ff 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0100 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0101 820f | | Call 0x1,0xf 0102 4801 |H | Short_Literal 0x1 0103 480d |H | Short_Literal 0xd 0104 e022 | " | Load 0x0,0x22 0105 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0106 00ea | | Load_Encached Null_String_Cache 0107 4832 |H2 | Short_Literal 0x32 0108 e602 | | Load 0x3,0x2 0109 e022 | " | Load 0x0,0x22 010a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 010b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 010c 4832 |H2 | Short_Literal 0x32 010d e602 | | Load 0x3,0x2 010e e022 | " | Load 0x0,0x22 010f 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0110 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0111 820f | | Call 0x1,0xf 0112 4801 |H | Short_Literal 0x1 0113 480d |H | Short_Literal 0xd 0114 e022 | " | Load 0x0,0x22 0115 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0116 00ea | | Load_Encached Null_String_Cache 0117 4821 |H! | Short_Literal 0x21 0118 e602 | | Load 0x3,0x2 0119 e022 | " | Load 0x0,0x22 011a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 011b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 011c 4821 |H! | Short_Literal 0x21 011d e602 | | Load 0x3,0x2 011e e022 | " | Load 0x0,0x22 011f 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0120 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0121 820f | | Call 0x1,0xf 0122 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 013e | > | .CONST 0x013e ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e022 | " | Load 0x0,0x22 012c 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 012d 02ff | | Declare_Variable Variant_Record 012e 4801 |H | Short_Literal 0x1 012f 4803 |H | Short_Literal 0x3 0130 e022 | " | Load 0x0,0x22 0131 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0132 1c08 | | Execute_Immediate Run_Utility,0x8 0133 e603 | | Load 0x3,0x3 0134 e022 | " | Load 0x0,0x22 0135 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0136 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4 0137 0119 | | Execute Any,Check_In_Formal_Type 0138 00d9 | | Load_Top At_Offset_1 0139 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4 013a e022 | " | Load 0x0,0x22 013b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 013c 00d9 | | Load_Top At_Offset_1 013d 016d | m | Execute Variant_Record,Structure_Write 013e BODY_0128: 013e 00d8 | | Load_Top At_Offset_0 013f e022 | " | Load 0x0,0x22 0140 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0141 700e |p | Jump_Nonzero 0x150 0142 4801 |H | Short_Literal 0x1 0143 480d |H | Short_Literal 0xd 0144 e022 | " | Load 0x0,0x22 0145 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0146 0092 0166 | f| Action Push_String_Extended,0x166 ; "This interface data item has no destination because its interface is currently unused by other components. Use Definition to visit and verify this data item." 0148 4800 |H | Short_Literal 0x0 0149 e602 | | Load 0x3,0x2 014a e022 | " | Load 0x0,0x22 014b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 014c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 014d e237 | 7 | Load 0x1,0x37 014e 820f | | Call 0x1,0xf 014f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0150 4800 |H | Short_Literal 0x0 0151 480d |H | Short_Literal 0xd 0152 e022 | " | Load 0x0,0x22 0153 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0154 00ea | | Load_Encached Null_String_Cache 0155 00db | | Load_Top At_Offset_3 0156 e022 | " | Load 0x0,0x22 0157 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0158 4801 |H | Short_Literal 0x1 0159 e235 | 5 | Load 0x1,0x35 015a e802 | | Load 0x4,0x2 015b e022 | " | Load 0x0,0x22 015c 187a | z | Execute Package,Field_Execute,Field_Number 0x7a 015d 820f | | Call 0x1,0xf 015e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015f ; -------------------------------------------------------------------------------------- 015f ; STRING TABLE 015f ; -------------------------------------------------------------------------------------- 015f 0012 | | .STRTAB 0x0012->0x0168 ; "Name" 0160 0014 | | .STRTAB 0x0014->0x016a ; "Description" 0161 001d | | .STRTAB 0x001d->0x016f ; "Source CI" 0162 0024 | $ | .STRTAB 0x0024->0x0174 ; "Destination CI(s)" 0163 0033 | 3 | .STRTAB 0x0033->0x017c ; "Frequency" 0164 003a | : | .STRTAB 0x003a->0x0181 ; "Legality\x0aChecks" 0165 0047 | G | .STRTAB 0x0047->0x0188 ; "Priority" 0166 004d | M | .STRTAB 0x004d->0x018c ; "This interface data item has no destination because its interface is currently unused by other components. Use Definition to visit and verify this data item." 0167 00e9 | | .STREND 0x00e9->0x01db 0168 4e61 6d65 |Name| .STRTAB_STRINGS 01dc 0000 0000 | | .BLANK 0000[0x4] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; Debug Table 01e0 ; -------------------------------------------------------------------------------------- 01e0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc8c,0x0000,0x0001,0x0000 01e6 0000 0000 | | .BLANK 0000[0x1a]