|
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 0178 | x | .CONST 0x0178 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000d | | .CONST 0x000d ; Number of locals 000b INIT_0008: 000b 00da | | Load_Top At_Offset_2 000c e001 | | Load 0x0,0x1 000d 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 000e e001 | | Load 0x0,0x1 000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0010 011e | | Execute Any,Convert 0011 00d8 | | Load_Top At_Offset_0 0012 e001 | | Load 0x0,0x1 0013 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0014 e215 | | Load 0x1,0x15 0015 0322 | " | Declare_Variable Record 0016 00d8 | | Load_Top At_Offset_0 0017 1c00 | | Execute_Immediate Run_Utility,0x0 0018 e001 | | Load 0x0,0x1 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a 02c7 | | Declare_Variable Any 001b 00d8 | | Load_Top At_Offset_0 001c 1c00 | | Execute_Immediate Run_Utility,0x0 001d e5ff | | Load 0x2,-0x1 001e e001 | | Load 0x0,0x1 001f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0020 e264 | d | Load 0x1,0x64 0021 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0022 0322 | " | Declare_Variable Record 0023 e5fd | | Load 0x2,-0x3 0024 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0025 0007 | | Action Break_Optional 0026 e266 | f | Load 0x1,0x66 0027 e5fd | | Load 0x2,-0x3 0028 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 0029 0039 | 9 | Store_Top Access,At_Offset_1 002a 00d8 | | Load_Top At_Offset_0 002b 0227 | ' | Execute Access,All_Reference 002c 01dd | | Execute Vector,First 002d e218 | | Load 0x1,0x18 002e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 002f 00e1 | | Load_Encached Boolean_Cache 0030 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0032 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 0034 BODY_0008: 0034 e5ff | | Load 0x2,-0x1 0035 e001 | | Load 0x0,0x1 0036 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0037 0f07 | | Execute_Immediate Equal,0x7 0038 0f00 | | Execute_Immediate Equal,0x0 0039 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 003a e407 | | Load 0x2,0x7 003b e408 | | Load 0x2,0x8 003c e264 | d | Load 0x1,0x64 003d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 003e 00d1 | | Pop_Control Pop_Count_1 003f 00cf | | Action Mark_Auxiliary 0040 782b |x+ | Jump 0x6c 0041 e407 | | Load 0x2,0x7 0042 e264 | d | Load 0x1,0x64 0043 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0044 e408 | | Load 0x2,0x8 0045 e264 | d | Load 0x1,0x64 0046 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0047 e404 | | Load 0x2,0x4 0048 017d | } | Execute Record,Structure_Write 0049 e404 | | Load 0x2,0x4 004a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 004b e5fe | | Load 0x2,-0x2 004c 027f | | Execute Discrete,Equal 004d 6819 |h | Jump_Zero 0x67 004e e404 | | Load 0x2,0x4 004f 8248 | H | Call 0x1,0x48 0050 c405 | | Store 0x2,0x5 0051 e404 | | Load 0x2,0x4 0052 8224 | $ | Call 0x1,0x24 0053 6813 |h | Jump_Zero 0x67 0054 e5fd | | Load 0x2,-0x3 0055 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0056 e5ff | | Load 0x2,-0x1 0057 840c | | Call 0x2,0xc 0058 840d | | Call 0x2,0xd 0059 7007 |p | Jump_Nonzero 0x61 005a e406 | | Load 0x2,0x6 005b 7005 |p | Jump_Nonzero 0x61 005c e404 | | Load 0x2,0x4 005d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 005e e402 | | Load 0x2,0x2 005f 012f | / | Execute Any,Equal 0060 6806 |h | Jump_Zero 0x67 0061 e40a | | Load 0x2,0xa 0062 e409 | | Load 0x2,0x9 0063 e404 | | Load 0x2,0x4 0064 82af | | Call 0x1,0xaf 0065 c409 | | Store 0x2,0x9 0066 c40a | | Store 0x2,0xa 0067 e407 | | Load 0x2,0x7 0068 e264 | d | Load 0x1,0x64 0069 181d | | Execute Package,Field_Execute,Field_Number 0x1d 006a 00d1 | | Pop_Control Pop_Count_1 006b 00c9 | | Action Pop_Auxiliary_Loop 006c e407 | | Load 0x2,0x7 006d e264 | d | Load 0x1,0x64 006e 181f | | Execute Package,Field_Execute,Field_Number 0x1f 006f 6fd1 |o | Jump_Zero 0x41 0070 00ce | | Action Pop_Auxiliary 0071 00db | | Load_Top At_Offset_3 0072 82ad | | Call 0x1,0xad 0073 6836 |h6 | Jump_Zero 0xaa 0074 e406 | | Load 0x2,0x6 0075 6813 |h | Jump_Zero 0x89 0076 4800 |H | Short_Literal 0x0 0077 4800 |H | Short_Literal 0x0 0078 4805 |H | Short_Literal 0x5 0079 0092 0124 | $| Action Push_String_Extended,0x124 ; "The iterator of defined " 007b e5fe | | Load 0x2,-0x2 007c e28d | | Load 0x1,0x8d 007d 01d7 | | Execute Vector,Field_Read 007e 0217 | | Execute Heap_Access,All_Reference 007f 01cc | | Execute Vector,Catenate 0080 0092 0125 | %| Action Push_String_Extended,0x125 ; " requirements is incomplete" 0082 01cc | | Execute Vector,Catenate 0083 0092 0126 | &| Action Push_String_Extended,0x126 ; " because of previous errors" 0085 01cc | | Execute Vector,Catenate 0086 00ea | | Load_Encached Null_String_Cache 0087 829d | | Call 0x1,0x9d 0088 781f |x | Jump 0xa8 0089 4800 |H | Short_Literal 0x0 008a 4800 |H | Short_Literal 0x0 008b 4805 |H | Short_Literal 0x5 008c 0092 0124 | $| Action Push_String_Extended,0x124 ; "The iterator of defined " 008e e5fe | | Load 0x2,-0x2 008f e28d | | Load 0x1,0x8d 0090 01d7 | | Execute Vector,Field_Read 0091 0217 | | Execute Heap_Access,All_Reference 0092 01cc | | Execute Vector,Catenate 0093 0092 0127 | '| Action Push_String_Extended,0x127 ; " requirements for " 0095 01cc | | Execute Vector,Catenate 0096 e5ff | | Load 0x2,-0x1 0097 e001 | | Load 0x0,0x1 0098 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0099 e001 | | Load 0x0,0x1 009a 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 009b 01cc | | Execute Vector,Catenate 009c 0092 0128 | (| Action Push_String_Extended,0x128 ; " component \x22" 009e 01cc | | Execute Vector,Catenate 009f e5ff | | Load 0x2,-0x1 00a0 e001 | | Load 0x0,0x1 00a1 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00a2 01cc | | Execute Vector,Catenate 00a3 0092 0129 | )| Action Push_String_Extended,0x129 ; "\x22 is incomplete because of previous errors" 00a5 01cc | | Execute Vector,Catenate 00a6 00ea | | Load_Encached Null_String_Cache 00a7 829d | | Call 0x1,0x9d 00a8 821a | | Call 0x1,0x1a 00a9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00aa e409 | | Load 0x2,0x9 00ab 0229 | ) | Execute Access,All_Read 00ac e409 | | Load 0x2,0x9 00ad 0227 | ' | Execute Access,All_Reference 00ae 01dd | | Execute Vector,First 00af e40a | | Load 0x2,0xa 00b0 0aff | | Execute_Immediate Plus,-0x1 00b1 00da | | Load_Top At_Offset_2 00b2 035b | [ | Declare_Type Array,Constrained 00b3 00d0 | | Action Swap_Control 00b4 01cd | | Execute Vector,Slice_Reference 00b5 00d8 | | Load_Top At_Offset_0 00b6 8271 | q | Call 0x1,0x71 00b7 00d2 | | Pop_Control Pop_Count_2 00b8 e409 | | Load 0x2,0x9 00b9 0227 | ' | Execute Access,All_Reference 00ba 01dd | | Execute Vector,First 00bb e40a | | Load 0x2,0xa 00bc 0aff | | Execute_Immediate Plus,-0x1 00bd e409 | | Load 0x2,0x9 00be 0227 | ' | Execute Access,All_Reference 00bf 01cf | | Execute Vector,Slice_Read 00c0 0335 | 5 | Declare_Variable Array,Duplicate 00c1 00cd | | Action Spare6_Action 00c2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00c3 0000 0000 | | .BLANK 0000[0x5] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb e40b | | Load 0x2,0xb 00cc 6805 |h | Jump_Zero 0xd2 00cd 00db | | Load_Top At_Offset_3 00ce 00db | | Load_Top At_Offset_3 00cf e001 | | Load 0x0,0x1 00d0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 00d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d2 00db | | Load_Top At_Offset_3 00d3 00db | | Load_Top At_Offset_3 00d4 e001 | | Load 0x0,0x1 00d5 1880 | | Execute Package,Field_Execute,Field_Number 0x80 00d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d7 0000 | | .XXX[0x1] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e0 | | .CONST 0x00e0 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0003 | | .CONST 0x0003 ; Number of locals 00db INIT_00d8: 00db e405 | | Load 0x2,0x5 00dc e001 | | Load 0x0,0x1 00dd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 00de 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 00e0 BODY_00d8: 00e0 e403 | | Load 0x2,0x3 00e1 00da | | Load_Top At_Offset_2 00e2 01df | | Execute Vector,Equal 00e3 6802 |h | Jump_Zero 0xe6 00e4 4801 |H | Short_Literal 0x1 00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e6 00cf | | Action Mark_Auxiliary 00e7 e7ff | | Load 0x3,-0x1 00e8 01d9 | | Execute Vector,Reverse_Bounds 00e9 0263 | c | Execute Discrete,Above_Bound 00ea 701b |p | Jump_Nonzero 0x106 00eb e602 | | Load 0x3,0x2 00ec 00d9 | | Load_Top At_Offset_1 00ed e7ff | | Load 0x3,-0x1 00ee 01d5 | | Execute Vector,Field_Reference 00ef e001 | | Load 0x0,0x1 00f0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00f1 01df | | Execute Vector,Equal 00f2 6802 |h | Jump_Zero 0xf5 00f3 4801 |H | Short_Literal 0x1 00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f5 00d8 | | Load_Top At_Offset_0 00f6 e7ff | | Load 0x3,-0x1 00f7 01d5 | | Execute Vector,Field_Reference 00f8 e001 | | Load 0x0,0x1 00f9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 00fa 0f08 | | Execute_Immediate Equal,0x8 00fb 7007 |p | Jump_Nonzero 0x103 00fc 00d8 | | Load_Top At_Offset_0 00fd e7ff | | Load 0x3,-0x1 00fe 01d5 | | Execute Vector,Field_Reference 00ff e001 | | Load 0x0,0x1 0100 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0101 0f07 | | Execute_Immediate Equal,0x7 0102 6801 |h | Jump_Zero 0x104 0103 8603 | | Call 0x3,0x3 0104 00c8 | | Action Pop_Auxiliary_Range 0105 3fe5 |? | Loop_Increasing 0xeb 0106 00ce | | Action Pop_Auxiliary 0107 4800 |H | Short_Literal 0x0 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0119 | | .CONST 0x0119 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e5fd | | Load 0x2,-0x3 0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0115 e606 | | Load 0x3,0x6 0116 e7ff | | Load 0x3,-0x1 0117 01d5 | | Execute Vector,Field_Reference 0118 840c | | Call 0x2,0xc 0119 BODY_0110: 0119 00d8 | | Load_Top At_Offset_0 011a e001 | | Load 0x0,0x1 011b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 011c 7006 |p | Jump_Nonzero 0x123 011d 00d8 | | Load_Top At_Offset_0 011e 840d | | Call 0x2,0xd 011f 6803 |h | Jump_Zero 0x123 0120 4801 |H | Short_Literal 0x1 0121 00cb | | Action Pop_Block_With_Result 0122 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0123 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0124 ; -------------------------------------------------------------------------------------- 0124 ; STRING TABLE 0124 ; -------------------------------------------------------------------------------------- 0124 000e | | .STRTAB 0x000e->0x012b ; "The iterator of defined " 0125 0024 | $ | .STRTAB 0x0024->0x0137 ; " requirements is incomplete" 0126 003d | = | .STRTAB 0x003d->0x0144 ; " because of previous errors" 0127 0056 | V | .STRTAB 0x0056->0x0152 ; " requirements for " 0128 0066 | f | .STRTAB 0x0066->0x015b ; " component \x22" 0129 0070 | p | .STRTAB 0x0070->0x0161 ; "\x22 is incomplete because of previous errors" 012a 0098 | | .STREND 0x0098->0x0176 012b 5468 6520 |The | .STRTAB_STRINGS 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc5a7,0x0000,0x0001,0x0000 017e c754 0401 | T | .XXX[0x82] 0180 34d6 9feb |4 | 0182 33b0 a040 |3 @| 0184 02b5 42b0 | B | 0186 7229 3699 |r)6 | 0188 644f 03e4 |dO | 018a 2401 6011 |$ ` | 018c c004 aa15 | | 018e 027e 7f3d | ~ =| 0190 6f05 3302 |o 3 | 0192 6df1 3e60 |m >`| 0194 2558 fdb8 |%X | 0196 09ca 29c6 | ) | 0198 9c2a 8026 | * &| 019a 81ac f85d | ]| 019c 0350 8201 | P | 019e 6702 905d |g ]| 01a0 1374 2371 | t#q| 01a2 eca0 02e9 | | 01a4 168c 0340 | @| 01a6 90a2 01e5 | | 01a8 01b1 c146 | F| 01aa f892 04fb | | 01ac 49a8 29d6 |I ) | 01ae 79e9 6c35 |y l5| 01b0 a3d1 5b9e | [ | 01b2 1b00 0381 | | 01b4 a9af d594 | | 01b6 856f f4a8 | o | 01b8 215c 0ea7 |!\ | 01ba cf53 87ab | S | 01bc 4f9a cae9 |O | 01be 6475 8694 |du | 01c0 17e2 a8ae | | 01c2 1610 5d84 | ] | 01c4 d587 8680 | | 01c6 8657 f57a | W z| 01c8 6424 7925 |d$y%| 01ca b001 9bd7 | | 01cc a992 8c04 | | 01ce 2942 dd02 |)B | 01d0 aea4 e7f9 | | 01d2 84ee 5302 | S | 01d4 6836 1b40 |h6 @| 01d6 c13d 6c28 | =l(| 01d8 2057 300a | W0 | 01da a736 3a81 | 6: | 01dc 9966 c299 | f | 01de 416e a047 |An G| 01e0 59b8 1fdd |Y | 01e2 d049 a987 | I | 01e4 74b5 c962 |t b| 01e6 3c04 835a |< Z| 01e8 f3aa 25d7 | % | 01ea 439e bd92 |C | 01ec c019 358a | 5 | 01ee b25e 242b | ^$+| 01f0 ad98 d70f | | 01f2 6848 86d7 |hH | 01f4 e560 0c19 | ` | 01f6 0b5b cfab | [ | 01f8 9fc8 03b9 | | 01fa 7bb4 5331 |{ S1| 01fc 5c7c d3db |\| | 01fe 5607 5b9e |V [ |