|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0118 | | .CONST 0x0118 ; 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 004b | K | .CONST 0x004b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 0011 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001b 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 001d 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0021 4818 |H | Short_Literal 0x18 0022 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0023 e20e | | Load 0x1,0xe 0024 00d9 | | Load_Top At_Offset_1 0025 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0027 4802 |H | Short_Literal 0x2 0028 032e | . | Declare_Type Record,Defined,Visible 0029 00d8 | | Load_Top At_Offset_0 002a 02a0 | | Declare_Subprogram Null_Subprogram 002b 00db | | Load_Top At_Offset_3 002c 03c7 | | Complete_Type Access,By_Defining 002d 00d9 | | Load_Top At_Offset_1 002e 00da | | Load_Top At_Offset_2 002f 02a0 | | Declare_Subprogram Null_Subprogram 0030 4802 |H | Short_Literal 0x2 0031 032e | . | Declare_Type Record,Defined,Visible 0032 00d8 | | Load_Top At_Offset_0 0033 0129 | ) | Execute Any,Make_Visible 0034 00bf | | Action Accept_Activation 0035 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0036 00c7 | | Action Elaborate_Subprogram 0037 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0038 00c7 | | Action Elaborate_Subprogram 0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003a 00c7 | | Action Elaborate_Subprogram 003b 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003c 00c7 | | Action Elaborate_Subprogram 003d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003e 00c7 | | Action Elaborate_Subprogram 003f 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0040 00c7 | | Action Elaborate_Subprogram 0041 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0042 00c7 | | Action Elaborate_Subprogram 0043 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0044 00c7 | | Action Elaborate_Subprogram 0045 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0046 00c7 | | Action Elaborate_Subprogram 0047 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0048 00c7 | | Action Elaborate_Subprogram 0049 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004a 00c7 | | Action Elaborate_Subprogram 004b BODY_0008: 004b 00bc | | Action Signal_Activated 004c 00bb | | Action Signal_Completion 004d 0000 0000 | | .XXX[0x3] 004f 0000 | | 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0054 0000 0000 | | .BLANK 0000[0x4] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 005d 022d | - | Execute Access,Is_Null 005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005f 0000 | | .XXX[0x1] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e21a | | Load 0x1,0x1a 0064 00db | | Load_Top At_Offset_3 0065 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0066 e21a | | Load 0x1,0x1a 0067 00db | | Load_Top At_Offset_3 0068 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0069 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006a 0000 0000 | | .BLANK 0000[0x6] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0075 | u | .CONST 0x0075 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e21d | | Load 0x1,0x1d 0074 0322 | " | Declare_Variable Record 0075 BODY_0070: 0075 e5fe | | Load 0x2,-0x2 0076 8211 | | Call 0x1,0x11 0077 00d1 | | Pop_Control Pop_Count_1 0078 00d8 | | Load_Top At_Offset_0 0079 e5ff | | Load 0x2,-0x1 007a 8216 | | Call 0x1,0x16 007b 00d1 | | Pop_Control Pop_Count_1 007c 00cf | | Action Mark_Auxiliary 007d 780b |x | Jump 0x89 007e e5fe | | Load 0x2,-0x2 007f 00da | | Load_Top At_Offset_2 0080 8218 | | Call 0x1,0x18 0081 e20e | | Load 0x1,0xe 0082 0119 | | Execute Any,Check_In_Formal_Type 0083 8213 | | Call 0x1,0x13 0084 00d1 | | Pop_Control Pop_Count_1 0085 00d9 | | Load_Top At_Offset_1 0086 8217 | | Call 0x1,0x17 0087 00d1 | | Pop_Control Pop_Count_1 0088 00c9 | | Action Pop_Auxiliary_Loop 0089 00d9 | | Load_Top At_Offset_1 008a 8219 | | Call 0x1,0x19 008b 6ff2 |o | Jump_Zero 0x7e 008c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 00a0 | | .CONST 0x00a0 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 e21b | | Load 0x1,0x1b 0094 0322 | " | Declare_Variable Record 0095 00db | | Load_Top At_Offset_3 0096 e21b | | Load 0x1,0x1b 0097 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0098 0119 | | Execute Any,Check_In_Formal_Type 0099 00d9 | | Load_Top At_Offset_1 009a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009b e21a | | Load 0x1,0x1a 009c 00d9 | | Load_Top At_Offset_1 009d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009e e21a | | Load 0x1,0x1a 009f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00a0 BODY_0090: 00a0 e5fe | | Load 0x2,-0x2 00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a2 7004 |p | Jump_Nonzero 0xa7 00a3 00d8 | | Load_Top At_Offset_0 00a4 e5fe | | Load 0x2,-0x2 00a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a6 7805 |x | Jump 0xac 00a7 00d8 | | Load_Top At_Offset_0 00a8 e5fe | | Load 0x2,-0x2 00a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00aa 0227 | ' | Execute Access,All_Reference 00ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ac 00d8 | | Load_Top At_Offset_0 00ad e5fe | | Load 0x2,-0x2 00ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00af 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b6 | | .CONST 0x00b6 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b5 0007 | | Action Break_Optional 00b6 BODY_00b0: 00b6 00d8 | | Load_Top At_Offset_0 00b7 0227 | ' | Execute Access,All_Reference 00b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b9 e5ff | | Load 0x2,-0x1 00ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00bb e21a | | Load 0x1,0x1a 00bc 00d9 | | Load_Top At_Offset_1 00bd 0227 | ' | Execute Access,All_Reference 00be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bf 00db | | Load_Top At_Offset_3 00c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c1 7003 |p | Jump_Nonzero 0xc5 00c2 e21a | | Load 0x1,0x1a 00c3 e5ff | | Load 0x2,-0x1 00c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c6 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 00cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00cd 0227 | ' | Execute Access,All_Reference 00ce 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00cf 00d8 | | Load_Top At_Offset_0 00d0 0120 | | Execute Any,Is_Value 00d1 7002 |p | Jump_Nonzero 0xd4 00d2 00d8 | | Load_Top At_Offset_0 00d3 011e | | Execute Any,Convert 00d4 e20e | | Load 0x1,0xe 00d5 0119 | | Execute Any,Check_In_Formal_Type 00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d7 0000 | | .XXX[0x1] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc e5fe | | Load 0x2,-0x2 00dd 017d | } | Execute Record,Structure_Write 00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 00da | | Load_Top At_Offset_2 00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e5 0227 | ' | Execute Access,All_Reference 00e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e7 00db | | Load_Top At_Offset_3 00e8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 00da | | Load_Top At_Offset_2 00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f5 0227 | ' | Execute Access,All_Reference 00f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f7 00d8 | | Load_Top At_Offset_0 00f8 0120 | | Execute Any,Is_Value 00f9 7002 |p | Jump_Nonzero 0xfc 00fa 00d8 | | Load_Top At_Offset_0 00fb 011e | | Execute Any,Convert 00fc e20e | | Load 0x1,0xe 00fd 0119 | | Execute Any,Check_In_Formal_Type 00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0105 022d | - | Execute Access,Is_Null 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 4601 |F | Jump_Case 0x2 010c 7801 |x | Jump 0x10e ; case 0x0 010d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 010e 00da | | Load_Top At_Offset_2 010f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0110 0125 | % | Execute Any,Set_Constraint 0111 00da | | Load_Top At_Offset_2 0112 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0113 1c00 | | Execute_Immediate Run_Utility,0x0 0114 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; Debug Table 0118 ; -------------------------------------------------------------------------------------- 0118 0004 0002 | | .DEBUG4 0x0004,0x0002,0x2e94,0x0000,0x0001,0x0000 011e d195 c985 | | .XXX[0x4e] 0120 d1bd c828 | (| 0122 81d1 e5c1 | | 0124 9481 5195 | Q | 0126 c9b5 a5b9 | | 0128 85b1 7d25 | }%| 012a d195 c985 | | 012c d1bd c828 | (| 012e 8199 d5b9 | | 0130 8dd1 a5bd | | 0132 b881 5985 | Y | 0134 b1d5 9428 | (| 0136 2828 2881 |((( | 0138 01b9 bd91 | | 013a 9480 8551 | Q| 013c bdbd b1cc | | 013e b94d e5cd | M | 0140 d195 b57d | }| 0142 55d1 a5b1 |U | 0144 a5d1 a595 | | 0146 ccb9 15b1 | | 0148 85c1 cd95 | | 014a 9028 2881 | (( | 014c 99d5 b98d | | 014e d1a5 bdb8 | | 0150 8115 b185 | | 0152 c1cd 9590 | | 0154 80a1 19bd | | 0156 c97d 29bd | }) | 0158 8880 e881 | | 015a 29bd 897d |) }| 015c 2590 80e8 |% | 015e f481 4de5 | M | 0160 cdd1 95b5 | | 0162 7d55 d1a5 |}U | 0164 b1a5 d1a5 | | 0166 95cc b91d | | 0168 95d1 7d29 | })| 016a bd88 a428 | (| 016c 8080 8080 | | .BLANK 8080[0x17] 0183 8081 c995 | | .XXX[0x7d] 0185 d1d5 c9b8 | | 0187 8111 d5c9 | | 0189 85d1 a5bd | | 018b b8ec 2828 | ((| 018d 8111 154d | M| 018f 0d49 2541 | I%A| 0191 5125 3d38 |Q%=8| 0193 2828 8149 |(( I| 0195 95d1 d5c9 | | 0197 b9cc 81d1 | | 0199 a194 8195 | | 019b b185 c1cd | | 019d 9590 81d1 | | 019f a5b5 9481 | | 01a1 d1a1 85d0 | | 01a3 81d1 a194 | | 01a5 81cd c195 | | 01a7 8da5 99a5 | | 01a9 9590 81a9 | | 01ab bd88 81a1 | | 01ad 85cc 8195 | | 01af e1a5 cdd1 | | 01b1 9590 b828 | (| 01b3 2881 51a1 |( Q | 01b5 a5cc 8199 | | 01b7 d5b9 8dd1 | | 01b9 a5bd b881 | | 01bb c995 d1d5 | | 01bd c9b9 cc81 | | 01bf d1a1 9481 | | 01c1 d1a5 b594 | | 01c3 81d1 a185 | | 01c5 d081 d1a1 | | 01c7 9481 cdc1 | | 01c9 958d a599 | | 01cb a595 9081 | | 01cd a9bd 8881 | | 01cf a185 cc81 | | 01d1 8995 95b8 | | 01d3 81a5 b828 | (| 01d5 8195 e1a5 | | 01d7 cdd1 95b9 | | 01d9 8d94 b881 | | 01db 09e4 8191 | | 01dd 9599 85d5 | | 01df b1d0 b081 | | 01e1 d1a1 9481 | | 01e3 99d5 b98d | | 01e5 d1a5 bdb8 | | 01e7 81c9 95d1 | | 01e9 d5c9 b9cc | | 01eb 81d1 a194 | | 01ed 8195 b185 | | 01ef c1cd 9590 | | 01f1 81d1 a5b5 | | 01f3 9481 bd98 | | 01f5 81d1 a194 | | 01f7 2881 8dd5 |( | 01f9 c9c9 95b9 | | 01fb d081 a9bd | | 01fd 88b8 2828 | ((| 01ff 8139 | 9 |