|
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_ccb0b3
└─⟦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 0120 | | .CONST 0x0120 ; 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 0026 | & | .CONST 0x0026 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 e001 | | Load 0x0,0x1 0011 e002 | | Load 0x0,0x2 0012 e003 | | Load 0x0,0x3 0013 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0014 e003 | | Load 0x0,0x3 0015 190f | | Execute Package,Field_Reference,Field_Number 0xf 0016 e003 | | Load 0x0,0x3 0017 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0018 e003 | | Load 0x0,0x3 0019 1913 | | Execute Package,Field_Reference,Field_Number 0x13 001a e004 | | Load 0x0,0x4 001b 0387 | | Declare_Variable Package 001c 00d8 | | Load_Top At_Offset_0 001d 020f | | Execute Module,Activate 001e 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 0020 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call 0022 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0025 00c7 | | Action Elaborate_Subprogram 0026 BODY_0008: 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0043 | C | .CONST 0x0043 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0006 | | .CONST 0x0006 ; Number of locals 002b INIT_0028: 002b e20f | | Load 0x1,0xf 002c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 002d 02c7 | | Declare_Variable Any 002e 00d8 | | Load_Top At_Offset_0 002f 1c00 | | Execute_Immediate Run_Utility,0x0 0030 e003 | | Load 0x0,0x3 0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0032 0322 | " | Declare_Variable Record 0033 00d8 | | Load_Top At_Offset_0 0034 1c00 | | Execute_Immediate Run_Utility,0x0 0035 00d8 | | Load_Top At_Offset_0 0036 0322 | " | Declare_Variable Record 0037 00d8 | | Load_Top At_Offset_0 0038 1c00 | | Execute_Immediate Run_Utility,0x0 0039 e20f | | Load 0x1,0xf 003a 1b14 | | Execute Package,Field_Read,Field_Number 0x14 003b 02c7 | | Declare_Variable Any 003c 00d8 | | Load_Top At_Offset_0 003d 1c00 | | Execute_Immediate Run_Utility,0x0 003e e20f | | Load 0x1,0xf 003f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0040 02c7 | | Declare_Variable Any 0041 00d8 | | Load_Top At_Offset_0 0042 1c00 | | Execute_Immediate Run_Utility,0x0 0043 BODY_0028: 0043 00be | | Action Activate_Tasks 0044 e402 | | Load 0x2,0x2 0045 4800 |H | Short_Literal 0x0 0046 e5fe | | Load 0x2,-0x2 0047 4800 |H | Short_Literal 0x0 0048 e5ff | | Load 0x2,-0x1 0049 e005 | | Load 0x0,0x5 004a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 004b 8210 | | Call 0x1,0x10 004c e20f | | Load 0x1,0xf 004d 1819 | | Execute Package,Field_Execute,Field_Number 0x19 004e c402 | | Store 0x2,0x2 004f e5ff | | Load 0x2,-0x1 0050 e403 | | Load 0x2,0x3 0051 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0052 00d8 | | Load_Top At_Offset_0 0053 0120 | | Execute Any,Is_Value 0054 6803 |h | Jump_Zero 0x58 0055 e20f | | Load 0x1,0xf 0056 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0057 7801 |x | Jump 0x59 0058 00d8 | | Load_Top At_Offset_0 0059 00da | | Load_Top At_Offset_2 005a 0120 | | Execute Any,Is_Value 005b 6803 |h | Jump_Zero 0x5f 005c e20f | | Load 0x1,0xf 005d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005e 7801 |x | Jump 0x60 005f 00da | | Load_Top At_Offset_2 0060 e404 | | Load 0x2,0x4 0061 e403 | | Load 0x2,0x3 0062 e402 | | Load 0x2,0x2 0063 e20f | | Load 0x1,0xf 0064 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0065 00d1 | | Pop_Control Pop_Count_1 0066 c405 | | Store 0x2,0x5 0067 c406 | | Store 0x2,0x6 0068 e402 | | Load 0x2,0x2 0069 8211 | | Call 0x1,0x11 006a c402 | | Store 0x2,0x2 006b 00d9 | | Load_Top At_Offset_1 006c e20f | | Load 0x1,0xf 006d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 006e 6802 |h | Jump_Zero 0x71 006f 00ea | | Load_Encached Null_String_Cache 0070 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0071 00da | | Load_Top At_Offset_2 0072 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0073 6807 |h | Jump_Zero 0x7b 0074 4801 |H | Short_Literal 0x1 0075 00db | | Load_Top At_Offset_3 0076 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0077 e404 | | Load 0x2,0x4 0078 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0079 01cf | | Execute Vector,Slice_Read 007a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007b 00ea | | Load_Encached Null_String_Cache 007c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 009b | | .CONST 0x009b ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0006 | | .CONST 0x0006 ; Number of locals 0083 INIT_0080: 0083 e20f | | Load 0x1,0xf 0084 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0085 02c7 | | Declare_Variable Any 0086 00d8 | | Load_Top At_Offset_0 0087 1c00 | | Execute_Immediate Run_Utility,0x0 0088 e003 | | Load 0x0,0x3 0089 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008a 0322 | " | Declare_Variable Record 008b 00d8 | | Load_Top At_Offset_0 008c 1c00 | | Execute_Immediate Run_Utility,0x0 008d 00d8 | | Load_Top At_Offset_0 008e 0322 | " | Declare_Variable Record 008f 00d8 | | Load_Top At_Offset_0 0090 1c00 | | Execute_Immediate Run_Utility,0x0 0091 e20f | | Load 0x1,0xf 0092 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0093 02c7 | | Declare_Variable Any 0094 00d8 | | Load_Top At_Offset_0 0095 1c00 | | Execute_Immediate Run_Utility,0x0 0096 e20f | | Load 0x1,0xf 0097 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0098 02c7 | | Declare_Variable Any 0099 00d8 | | Load_Top At_Offset_0 009a 1c00 | | Execute_Immediate Run_Utility,0x0 009b BODY_0080: 009b 00be | | Action Activate_Tasks 009c 4800 |H | Short_Literal 0x0 009d a5fb | | Store_Unchecked 0x2,-0x5 009e 4800 |H | Short_Literal 0x0 009f a5fa | | Store_Unchecked 0x2,-0x6 00a0 e402 | | Load 0x2,0x2 00a1 4802 |H | Short_Literal 0x2 00a2 e5fc | | Load 0x2,-0x4 00a3 4800 |H | Short_Literal 0x0 00a4 e5ff | | Load 0x2,-0x1 00a5 e005 | | Load 0x0,0x5 00a6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00a7 8210 | | Call 0x1,0x10 00a8 e20f | | Load 0x1,0xf 00a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00aa c402 | | Store 0x2,0x2 00ab e5ff | | Load 0x2,-0x1 00ac e403 | | Load 0x2,0x3 00ad 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ae 00d8 | | Load_Top At_Offset_0 00af 0120 | | Execute Any,Is_Value 00b0 6803 |h | Jump_Zero 0xb4 00b1 e20f | | Load 0x1,0xf 00b2 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00b3 7801 |x | Jump 0xb5 00b4 00d8 | | Load_Top At_Offset_0 00b5 00da | | Load_Top At_Offset_2 00b6 0120 | | Execute Any,Is_Value 00b7 6803 |h | Jump_Zero 0xbb 00b8 e20f | | Load 0x1,0xf 00b9 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00ba 7801 |x | Jump 0xbc 00bb 00da | | Load_Top At_Offset_2 00bc e404 | | Load 0x2,0x4 00bd e403 | | Load 0x2,0x3 00be e402 | | Load 0x2,0x2 00bf e20f | | Load 0x1,0xf 00c0 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c1 00d1 | | Pop_Control Pop_Count_1 00c2 c405 | | Store 0x2,0x5 00c3 c406 | | Store 0x2,0x6 00c4 00d9 | | Load_Top At_Offset_1 00c5 e20f | | Load 0x1,0xf 00c6 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00c7 6818 |h | Jump_Zero 0xe0 00c8 e5fe | | Load 0x2,-0x2 00c9 01db | | Execute Vector,Length 00ca e403 | | Load 0x2,0x3 00cb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00cc e5fe | | Load 0x2,-0x2 00cd 4801 |H | Short_Literal 0x1 00ce e5fe | | Load 0x2,-0x2 00cf 01db | | Execute Vector,Length 00d0 00d8 | | Load_Top At_Offset_0 00d1 00e2 | | Load_Encached Integer_Cache 00d2 0260 | ` | Execute Discrete,In_Type 00d3 7001 |p | Jump_Nonzero 0xd5 00d4 0801 | | Execute_Immediate Raise,0x1 00d5 e403 | | Load 0x2,0x3 00d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d7 01ce | | Execute Vector,Slice_Write 00d8 00d8 | | Load_Top At_Offset_0 00d9 e403 | | Load 0x2,0x3 00da e402 | | Load 0x2,0x2 00db e20f | | Load 0x1,0xf 00dc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00dd 4801 |H | Short_Literal 0x1 00de a5fa | | Store_Unchecked 0x2,-0x6 00df 7819 |x | Jump 0xf9 00e0 e5fd | | Load 0x2,-0x3 00e1 6817 |h | Jump_Zero 0xf9 00e2 e5fe | | Load 0x2,-0x2 00e3 01db | | Execute Vector,Length 00e4 e403 | | Load 0x2,0x3 00e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e6 e5fe | | Load 0x2,-0x2 00e7 4801 |H | Short_Literal 0x1 00e8 e5fe | | Load 0x2,-0x2 00e9 01db | | Execute Vector,Length 00ea 00d8 | | Load_Top At_Offset_0 00eb 00e2 | | Load_Encached Integer_Cache 00ec 0260 | ` | Execute Discrete,In_Type 00ed 7001 |p | Jump_Nonzero 0xef 00ee 0801 | | Execute_Immediate Raise,0x1 00ef e403 | | Load 0x2,0x3 00f0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f1 01ce | | Execute Vector,Slice_Write 00f2 00d9 | | Load_Top At_Offset_1 00f3 e403 | | Load 0x2,0x3 00f4 e402 | | Load 0x2,0x2 00f5 e20f | | Load 0x1,0xf 00f6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f7 4801 |H | Short_Literal 0x1 00f8 a5fa | | Store_Unchecked 0x2,-0x6 00f9 e402 | | Load 0x2,0x2 00fa 8211 | | Call 0x1,0x11 00fb c402 | | Store 0x2,0x2 00fc 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 e006 | | Load 0x0,0x6 0105 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0106 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0107 0092 011a | | Action Push_String_Extended,0x11a ; "." 0109 01cc | | Execute Vector,Catenate 010a e007 | | Load 0x0,0x7 010b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 010c 01cc | | Execute Vector,Catenate 010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0118 | | .CONST 0x0118 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 e20f | | Load 0x1,0xf 0115 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0116 c5ff | | Store 0x2,-0x1 0117 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0118 TRAP_0110: 0118 0007 | | Action Break_Optional 0119 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011a ; -------------------------------------------------------------------------------------- 011a ; STRING TABLE 011a ; -------------------------------------------------------------------------------------- 011a 0004 | | .STRTAB 0x0004->0x011c ; "." 011b 0003 | | .STREND 0x0003->0x011c 011c 2e00 |. | .STRTAB_STRINGS 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ddc,0x0000,0x0001,0x0000 0126 0000 0490 | | .XXX[0x14] 0128 6942 c34f |iB O| 012a bf00 0000 | | 012c 2000 0000 | | 012e 0000 0000 | | 0130 000f 02b6 | | 0132 8500 0000 | | 0134 4012 e7bc |@ | 0136 8500 0000 | | 0138 4000 2600 |@ & | 013a 0000 0000 | | .BLANK 0000[0x4] 013e 0003 c0ad | | .XXX[0x13] 0140 a140 0000 | @ | 0142 1008 1817 | | 0144 2848 0000 |(H | 0146 0001 2000 | | 0148 0000 9000 | | 014a 0cf1 6000 | ` | 014c 0000 2000 | | 014e 0000 4009 | @ | 0150 8000 | | 0151 0000 0000 | | .BLANK 0000[0x8] 0159 0206 05ca | | .XXX[0x13] 015b 1200 0000 | | 015d 0048 0000 | H | 015f 0024 0003 | $ | 0161 3c58 0000 |<X | 0163 0008 0000 | | 0165 0010 0000 | | 0167 0018 0005 | | 0169 7a20 060b |z | 016b 8f70 | p | 016c 0000 0000 | | .BLANK 0000[0x4] 0170 0305 dd04 | | .XXX[0x32] 0172 0007 fceb | | 0174 205f 573c | _W<| 0176 c000 0000 | | 0178 0690 6942 | iB| 017a c304 1f20 | | 017c 0000 2000 | | 017e 0000 0000 | | 0180 0000 000c | | 0182 193c 8580 | < | 0184 0000 4013 | @ | 0186 b36a 8580 | j | 0188 0000 4000 | @ | 018a 2600 1800 |& | 018c 0000 0000 | | 018e 0000 0003 | | 0190 064f 2160 | O!`| 0192 0000 1008 | | 0194 17d5 cf30 | 0| 0196 0000 0001 | | 0198 a000 0000 | | 019a 9000 1243 | C| 019c 6000 0000 |` | 019e 2000 0000 | | 01a0 4009 8006 |@ | 01a2 0000 0000 | | .BLANK 0000[0x8] 01aa 0205 f573 | s| .XXX[0x49] 01ac cc00 0000 | | 01ae 0068 0000 | h | 01b0 0024 0004 | $ | 01b2 90d8 0000 | | 01b4 0008 0000 | | 01b6 0010 0000 | | 01b8 0018 0007 | | 01ba f0c0 060b | | 01bc b7f0 060b | | 01be 8a68 060c | h | 01c0 2c68 0305 |,h | 01c2 f144 000c | D | 01c4 d713 208e | | 01c6 0f03 25db | % | 01c8 0000 0e10 | | 01ca 47c8 3455 |G 4U| 01cc 50e0 0002 |P | 01ce 0400 0000 | | 01d0 0000 0000 | | 01d2 000c 863e | >| 01d4 8500 0000 | | 01d6 400c 8640 |@ @| 01d8 8500 0000 | | 01da 4005 c609 |@ | 01dc f800 0000 | | 01de 0000 0000 | | 01e0 0003 2190 | ! | 01e2 2140 0000 |!@ | 01e4 1008 2304 | # | 01e6 9f64 64b0 | dd | 01e8 0003 8000 | | 01ea 0000 9000 | | 01ec 1389 8000 | | 01ee 0000 2000 | | 01f0 0000 2171 | !q| 01f2 8000 | | 01f3 0000 0000 | | .BLANK 0000[0x8] 01fb 0208 c127 | '| .XXX[0x5] 01fd d919 2c00 | , | 01ff 00e0 | |