|
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 0180 | | .CONST 0x0180 ; 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 002b | + | .CONST 0x002b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000b | | .CONST 0x000b ; Number of locals 000b INIT_0008: 000b e011 | | Load 0x0,0x11 000c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 000d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 000e e00f | | Load 0x0,0xf 000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0010 02c7 | | Declare_Variable Any 0011 00d8 | | Load_Top At_Offset_0 0012 1c00 | | Execute_Immediate Run_Utility,0x0 0013 e003 | | Load 0x0,0x3 0014 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0015 02ff | | Declare_Variable Variant_Record 0016 00d8 | | Load_Top At_Offset_0 0017 1c00 | | Execute_Immediate Run_Utility,0x0 0018 00e1 | | Load_Encached Boolean_Cache 0019 00e1 | | Load_Encached Boolean_Cache 001a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001b 00e1 | | Load_Encached Boolean_Cache 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d e003 | | Load 0x0,0x3 001e 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 001f 02ff | | Declare_Variable Variant_Record 0020 00d8 | | Load_Top At_Offset_0 0021 1c00 | | Execute_Immediate Run_Utility,0x0 0022 e003 | | Load 0x0,0x3 0023 1b8f | | Execute Package,Field_Read,Field_Number 0x8f 0024 02ff | | Declare_Variable Variant_Record 0025 00d8 | | Load_Top At_Offset_0 0026 1c00 | | Execute_Immediate Run_Utility,0x0 0027 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0029 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 002b BODY_0008: 002b 4810 |H | Short_Literal 0x10 002c e9ff | | Load 0x4,-0x1 002d e003 | | Load 0x0,0x3 002e 189b | | Execute Package,Field_Execute,Field_Number 0x9b 002f e808 | | Load 0x4,0x8 0030 016d | m | Execute Variant_Record,Structure_Write 0031 4801 |H | Short_Literal 0x1 0032 e406 | | Load 0x2,0x6 0033 e001 | | Load 0x0,0x1 0034 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0035 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0036 00db | | Load_Top At_Offset_3 0037 e003 | | Load 0x0,0x3 0038 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0039 0c01 | | Execute_Immediate Greater_Equal,0x1 003a 6844 |hD | Jump_Zero 0x7f 003b 4806 |H | Short_Literal 0x6 003c e003 | | Load 0x0,0x3 003d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 003e 00ea | | Load_Encached Null_String_Cache 003f 480f |H | Short_Literal 0xf 0040 e9ff | | Load 0x4,-0x1 0041 e003 | | Load 0x0,0x3 0042 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0043 0092 0156 | V| Action Push_String_Extended,0x156 ; "External Interfaces Used by " 0045 4808 |H | Short_Literal 0x8 0046 e9ff | | Load 0x4,-0x1 0047 e003 | | Load 0x0,0x3 0048 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0049 01cc | | Execute Vector,Catenate 004a e003 | | Load 0x0,0x3 004b 1881 | | Execute Package,Field_Execute,Field_Number 0x81 004c 4801 |H | Short_Literal 0x1 004d a806 | | Store_Unchecked 0x4,0x6 004e 4801 |H | Short_Literal 0x1 004f a807 | | Store_Unchecked 0x4,0x7 0050 00cf | | Action Mark_Auxiliary 0051 e808 | | Load 0x4,0x8 0052 e003 | | Load 0x0,0x3 0053 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0054 e808 | | Load 0x4,0x8 0055 e003 | | Load 0x0,0x3 0056 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0057 0263 | c | Execute Discrete,Above_Bound 0058 7025 |p% | Jump_Nonzero 0x7e 0059 00d8 | | Load_Top At_Offset_0 005a e808 | | Load 0x4,0x8 005b e003 | | Load 0x0,0x3 005c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 005d e804 | | Load 0x4,0x4 005e 016d | m | Execute Variant_Record,Structure_Write 005f 4807 |H | Short_Literal 0x7 0060 e003 | | Load 0x0,0x3 0061 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0062 00ea | | Load_Encached Null_String_Cache 0063 4800 |H | Short_Literal 0x0 0064 e804 | | Load 0x4,0x4 0065 e003 | | Load 0x0,0x3 0066 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0067 4801 |H | Short_Literal 0x1 0068 e804 | | Load 0x4,0x4 0069 e003 | | Load 0x0,0x3 006a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 006b e003 | | Load 0x0,0x3 006c 1882 | | Execute Package,Field_Execute,Field_Number 0x82 006d 4801 |H | Short_Literal 0x1 006e 480e |H | Short_Literal 0xe 006f e003 | | Load 0x0,0x3 0070 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0071 00ea | | Load_Encached Null_String_Cache 0072 4814 |H | Short_Literal 0x14 0073 e804 | | Load 0x4,0x4 0074 e003 | | Load 0x0,0x3 0075 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0076 4814 |H | Short_Literal 0x14 0077 e804 | | Load 0x4,0x4 0078 e003 | | Load 0x0,0x3 0079 181f | | Execute Package,Field_Execute,Field_Number 0x1f 007a e003 | | Load 0x0,0x3 007b 1886 | | Execute Package,Field_Execute,Field_Number 0x86 007c 00c8 | | Action Pop_Auxiliary_Range 007d 3fdb |? | Loop_Increasing 0x59 007e 00ce | | Action Pop_Auxiliary 007f 00cf | | Action Mark_Auxiliary 0080 e409 | | Load 0x2,0x9 0081 e003 | | Load 0x0,0x3 0082 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0083 e409 | | Load 0x2,0x9 0084 e003 | | Load 0x0,0x3 0085 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0086 0263 | c | Execute Discrete,Above_Bound 0087 7075 |pu | Jump_Nonzero 0xfd 0088 480f |H | Short_Literal 0xf 0089 00d9 | | Load_Top At_Offset_1 008a e409 | | Load 0x2,0x9 008b e003 | | Load 0x0,0x3 008c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 008d e003 | | Load 0x0,0x3 008e 189b | | Execute Package,Field_Execute,Field_Number 0x9b 008f e809 | | Load 0x4,0x9 0090 016d | m | Execute Variant_Record,Structure_Write 0091 e809 | | Load 0x4,0x9 0092 e003 | | Load 0x0,0x3 0093 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0094 0c01 | | Execute_Immediate Greater_Equal,0x1 0095 6865 |he | Jump_Zero 0xfb 0096 00cf | | Action Mark_Auxiliary 0097 e809 | | Load 0x4,0x9 0098 e003 | | Load 0x0,0x3 0099 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 009a e809 | | Load 0x4,0x9 009b e003 | | Load 0x0,0x3 009c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 009d 0263 | c | Execute Discrete,Above_Bound 009e 705b |p[ | Jump_Nonzero 0xfa 009f 4800 |H | Short_Literal 0x0 00a0 a805 | | Store_Unchecked 0x4,0x5 00a1 00d8 | | Load_Top At_Offset_0 00a2 e809 | | Load 0x4,0x9 00a3 e003 | | Load 0x0,0x3 00a4 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00a5 e804 | | Load 0x4,0x4 00a6 016d | m | Execute Variant_Record,Structure_Write 00a7 e804 | | Load 0x4,0x4 00a8 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 00a9 e023 | # | Load 0x0,0x23 00aa 184a | J | Execute Package,Field_Execute,Field_Number 0x4a 00ab e018 | | Load 0x0,0x18 00ac 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00ad c803 | | Store 0x4,0x3 00ae e803 | | Load 0x4,0x3 00af e024 | $ | Load 0x0,0x24 00b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00b1 483f |H? | Short_Literal 0x3f 00b2 e016 | | Load 0x0,0x16 00b3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00b4 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b5 a802 | | Store_Unchecked 0x4,0x2 00b6 e802 | | Load 0x4,0x2 00b7 e011 | | Load 0x0,0x11 00b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00b9 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00ba 7001 |p | Jump_Nonzero 0xbc 00bb 880b | | Call 0x4,0xb 00bc e805 | | Load 0x4,0x5 00bd 683a |h: | Jump_Zero 0xf8 00be e804 | | Load 0x4,0x4 00bf e003 | | Load 0x0,0x3 00c0 1899 | | Execute Package,Field_Execute,Field_Number 0x99 00c1 7036 |p6 | Jump_Nonzero 0xf8 00c2 4801 |H | Short_Literal 0x1 00c3 a806 | | Store_Unchecked 0x4,0x6 00c4 e807 | | Load 0x4,0x7 00c5 7015 |p | Jump_Nonzero 0xdb 00c6 4806 |H | Short_Literal 0x6 00c7 e003 | | Load 0x0,0x3 00c8 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00c9 00ea | | Load_Encached Null_String_Cache 00ca 480f |H | Short_Literal 0xf 00cb e9ff | | Load 0x4,-0x1 00cc e003 | | Load 0x0,0x3 00cd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ce 0092 0156 | V| Action Push_String_Extended,0x156 ; "External Interfaces Used by " 00d0 4808 |H | Short_Literal 0x8 00d1 e9ff | | Load 0x4,-0x1 00d2 e003 | | Load 0x0,0x3 00d3 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00d4 01cc | | Execute Vector,Catenate 00d5 e003 | | Load 0x0,0x3 00d6 1881 | | Execute Package,Field_Execute,Field_Number 0x81 00d7 4801 |H | Short_Literal 0x1 00d8 a806 | | Store_Unchecked 0x4,0x6 00d9 4801 |H | Short_Literal 0x1 00da a807 | | Store_Unchecked 0x4,0x7 00db 4807 |H | Short_Literal 0x7 00dc e003 | | Load 0x0,0x3 00dd 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00de 00ea | | Load_Encached Null_String_Cache 00df 4800 |H | Short_Literal 0x0 00e0 e804 | | Load 0x4,0x4 00e1 e003 | | Load 0x0,0x3 00e2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 00e3 4801 |H | Short_Literal 0x1 00e4 e804 | | Load 0x4,0x4 00e5 e003 | | Load 0x0,0x3 00e6 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00e7 e003 | | Load 0x0,0x3 00e8 1882 | | Execute Package,Field_Execute,Field_Number 0x82 00e9 4801 |H | Short_Literal 0x1 00ea 480e |H | Short_Literal 0xe 00eb e003 | | Load 0x0,0x3 00ec 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ed 00ea | | Load_Encached Null_String_Cache 00ee 4814 |H | Short_Literal 0x14 00ef e804 | | Load 0x4,0x4 00f0 e003 | | Load 0x0,0x3 00f1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f2 4814 |H | Short_Literal 0x14 00f3 e804 | | Load 0x4,0x4 00f4 e003 | | Load 0x0,0x3 00f5 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f6 e003 | | Load 0x0,0x3 00f7 1886 | | Execute Package,Field_Execute,Field_Number 0x86 00f8 00c8 | | Action Pop_Auxiliary_Range 00f9 3fa5 |? | Loop_Increasing 0x9f 00fa 00ce | | Action Pop_Auxiliary 00fb 00c8 | | Action Pop_Auxiliary_Range 00fc 3f8b |? | Loop_Increasing 0x88 00fd 00ce | | Action Pop_Auxiliary 00fe e806 | | Load 0x4,0x6 00ff 6807 |h | Jump_Zero 0x107 0100 e003 | | Load 0x0,0x3 0101 1b64 | d | Execute Package,Field_Read,Field_Number 0x64 0102 e003 | | Load 0x0,0x3 0103 1b65 | e | Execute Package,Field_Read,Field_Number 0x65 0104 e003 | | Load 0x0,0x3 0105 186e | n | Execute Package,Field_Execute,Field_Number 0x6e 0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0107 4801 |H | Short_Literal 0x1 0108 480e |H | Short_Literal 0xe 0109 e003 | | Load 0x0,0x3 010a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 010b e001 | | Load 0x0,0x1 010c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 010d 0092 0157 | W| Action Push_String_Extended,0x157 ; "This CSCI uses no external interfaces." 010f e003 | | Load 0x0,0x3 0110 1886 | | Execute Package,Field_Execute,Field_Number 0x86 0111 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011e | | .CONST 0x011e ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b 00e2 | | Load_Encached Integer_Cache 011c 0092 0158 | X| Action Push_String_Extended,0x158 ; "EXTERNAL" 011e BODY_0118: 011e ebff | | Load 0x5,-0x1 011f 01db | | Execute Vector,Length 0120 0e08 | | Execute_Immediate Not_Equal,0x8 0121 6802 |h | Jump_Zero 0x124 0122 4800 |H | Short_Literal 0x0 0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0124 4801 |H | Short_Literal 0x1 0125 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0126 00cf | | Action Mark_Auxiliary 0127 ebff | | Load 0x5,-0x1 0128 01dc | | Execute Vector,Last 0129 ebff | | Load 0x5,-0x1 012a 01dd | | Execute Vector,First 012b 0263 | c | Execute Discrete,Above_Bound 012c 7011 |p | Jump_Nonzero 0x13e 012d ea02 | | Load 0x5,0x2 012e ea03 | | Load 0x5,0x3 012f 01d7 | | Execute Vector,Field_Read 0130 00d9 | | Load_Top At_Offset_1 0131 ebff | | Load 0x5,-0x1 0132 01d7 | | Execute Vector,Field_Read 0133 e014 | | Load 0x0,0x14 0134 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0135 027e | ~ | Execute Discrete,Not_Equal 0136 6802 |h | Jump_Zero 0x139 0137 4800 |H | Short_Literal 0x0 0138 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0139 ea02 | | Load 0x5,0x2 013a 0a01 | | Execute_Immediate Plus,0x1 013b ca02 | | Store 0x5,0x2 013c 00c8 | | Action Pop_Auxiliary_Range 013d 3fef |? | Loop_Increasing 0x12d 013e 00ce | | Action Pop_Auxiliary 013f 4801 |H | Short_Literal 0x1 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0150 | P | .CONST 0x0150 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b 00ea | | Load_Encached Null_String_Cache 014c e802 | | Load 0x4,0x2 014d e016 | | Load 0x0,0x16 014e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 014f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0150 BODY_0148: 0150 00d8 | | Load_Top At_Offset_0 0151 880a | | Call 0x4,0xa 0152 6802 |h | Jump_Zero 0x155 0153 4801 |H | Short_Literal 0x1 0154 a805 | | Store_Unchecked 0x4,0x5 0155 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0156 ; -------------------------------------------------------------------------------------- 0156 ; STRING TABLE 0156 ; -------------------------------------------------------------------------------------- 0156 0008 | | .STRTAB 0x0008->0x015a ; "External Interfaces Used by " 0157 0022 | " | .STRTAB 0x0022->0x0168 ; "This CSCI uses no external interfaces." 0158 0046 | F | .STRTAB 0x0046->0x017b ; "EXTERNAL" 0159 004c | L | .STREND 0x004c->0x017f 015a 4578 7465 |Exte| .STRTAB_STRINGS 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug Table 0180 ; -------------------------------------------------------------------------------------- 0180 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcc0,0x0000,0x0001,0x0000 0186 0904 d509 | | .XXX[0x7a] 0188 150d 08c1 | | 018a 04e1 14c4 | | 018c d4c0 cd0c | | 018e ccd4 c10c | | 0190 ccc0 d0c4 | | 0192 dd0d 10c0 | | 0194 c515 04d0 | | 0196 d4d4 cd10 | | 0198 e504 c4cc | | 019a e4d4 e0c9 | | 019c 14dc e4d9 | | 019e 08c1 1114 | | 01a0 dd08 d510 | | 01a2 c4c4 c0e1 | | 01a4 0d08 dce1 | | 01a6 0909 1510 | | 01a8 c4e4 e4d0 | | 01aa d4e5 18e4 | | 01ac d910 d8e5 | | 01ae 04e4 e0cc | | 01b0 dd10 cd04 | | 01b2 d8d0 dccc | | 01b4 d911 1114 | | 01b6 c118 c114 | | 01b8 e0cd 08c0 | | 01ba ccd0 d0e0 | | 01bc c0cc d8dd | | 01be 18cc d90c | | 01c0 d0d1 10cc | | 01c2 c110 dce1 | | 01c4 0d15 0915 | | 01c6 14d8 c0e4 | | 01c8 c505 0514 | | 01ca c504 c8c9 | | 01cc 04c4 c4c8 | | 01ce cd0d 0ce4 | | 01d0 dd0c e0e5 | | 01d2 04c0 d8e0 | | 01d4 e0c0 d0d0 | | 01d6 d0c8 e10d | | 01d8 1508 d0c5 | | 01da 10e0 c8d4 | | 01dc c114 d0c1 | | 01de 14e5 1518 | | 01e0 c504 cd04 | | 01e2 e4c0 c4c8 | | 01e4 e4dc c0c0 | | 01e6 e4dd 050d | | 01e8 0cd9 1918 | | 01ea d0d5 1118 | | 01ec e0e0 d4dd | | 01ee 04e0 c4dd | | 01f0 10c8 dd05 | | 01f2 18dc dccc | | 01f4 d0c1 04e4 | | 01f6 d4c8 d0e4 | | 01f8 d4cd 090c | | 01fa d4d4 d8c0 | | 01fc d115 14c9 | | 01fe 0d0c e4e4 | |