|
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_779ce4
└─⟦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 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0051 | Q | .CONST 0x0051 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 0129 | ) | Execute Any,Make_Visible 000d 4800 |H | Short_Literal 0x0 000e 4801 |H | Short_Literal 0x1 000f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0011 03fe | | Declare_Type Discrete,Defined,Visible 0012 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0014 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0016 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0018 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001a 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 001c 4800 |H | Short_Literal 0x0 001d 0093 00cb | | push_full_address INIT_00c8 001f 02a0 | | Declare_Subprogram Null_Subprogram 0020 038f | | Declare_Type Package,Defined,Visible 0021 0386 | | Declare_Variable Package,Visible 0022 00bf | | Action Accept_Activation 0023 e003 | | Load 0x0,0x3 0024 0266 | f | Execute Discrete,Bounds 0025 e20e | | Load 0x1,0xe 0026 02a0 | | Declare_Subprogram Null_Subprogram 0027 4801 |H | Short_Literal 0x1 0028 035d | ] | Declare_Type Array,Defined 0029 00d8 | | Load_Top At_Offset_0 002a 0337 | 7 | Declare_Variable Array 002b 00d8 | | Load_Top At_Offset_0 002c 0335 | 5 | Declare_Variable Array,Duplicate 002d 00cd | | Action Spare6_Action 002e 4800 |H | Short_Literal 0x0 002f 4800 |H | Short_Literal 0x0 0030 00da | | Load_Top At_Offset_2 0031 01d6 | | Execute Vector,Field_Write 0032 4801 |H | Short_Literal 0x1 0033 4801 |H | Short_Literal 0x1 0034 00da | | Load_Top At_Offset_2 0035 01d6 | | Execute Vector,Field_Write 0036 00d9 | | Load_Top At_Offset_1 0037 01d4 | | Execute Vector,Structure_Write 0038 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0039 00c7 | | Action Elaborate_Subprogram 003a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003b 00c7 | | Action Elaborate_Subprogram 003c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003d 00c7 | | Action Elaborate_Subprogram 003e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003f 00c7 | | Action Elaborate_Subprogram 0040 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0041 00c7 | | Action Elaborate_Subprogram 0042 a004 | | Store_Unchecked 0x0,0x4 0043 e005 | | Load 0x0,0x5 0044 a006 | | Store_Unchecked 0x0,0x6 0045 a007 | | Store_Unchecked 0x0,0x7 0046 a008 | | Store_Unchecked 0x0,0x8 0047 a009 | | Store_Unchecked 0x0,0x9 0048 a00a | | Store_Unchecked 0x0,0xa 0049 a00b | | Store_Unchecked 0x0,0xb 004a a00c | | Store_Unchecked 0x0,0xc 004b a00d | | Store_Unchecked 0x0,0xd 004c 480a |H | Short_Literal 0xa 004d e214 | | Load 0x1,0x14 004e 020e | | Execute Module,Augment_Imports 004f 00da | | Load_Top At_Offset_2 0050 020f | | Execute Module,Activate 0051 BODY_0008: 0051 00bc | | Action Signal_Activated 0052 00bb | | Action Signal_Completion 0053 0000 0000 | | .BLANK 0000[0x5] 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 4607 |F | Jump_Case 0x8 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7807 |x | Jump 0x65 ; case 0x1 005e 780a |x | Jump 0x69 ; case 0x2 005f 780e |x | Jump 0x6e ; case 0x3 0060 7811 |x | Jump 0x72 ; case 0x4 0061 7812 |x | Jump 0x74 ; case 0x5 0062 7813 |x | Jump 0x76 ; case 0x6 0063 7816 |x | Jump 0x7a ; case 0x7 0064 4302 |C | .XXX[0x1] 0065 00da | | Load_Top At_Offset_2 0066 0091 016a | j| Action Push_String_Extended_Indexed,0x16a ; "SEGMENT" 0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0069 00db | | Load_Top At_Offset_3 006a 00db | | Load_Top At_Offset_3 006b 00e0 | | Load_Encached Standard_Cache 006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 00da | | Load_Top At_Offset_2 006f 00e0 | | Load_Encached Standard_Cache 0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0072 00db | | Load_Top At_Offset_3 0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0074 00db | | Load_Top At_Offset_3 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 e20e | | Load 0x1,0xe 0077 00dc | | Load_Top At_Offset_4 0078 0267 | g | Execute Discrete,Predecessor 0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007a e20e | | Load 0x1,0xe 007b 00dc | | Load_Top At_Offset_4 007c 0268 | h | Execute Discrete,Successor 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 0000 0000 | | .XXX[0x2] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0085 | | .CONST 0x0085 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e20d | | Load 0x1,0xd 0084 0007 | | Action Break_Optional 0085 BODY_0080: 0085 00db | | Load_Top At_Offset_3 0086 800e | | Call 0x0,0xe 0087 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0088 00d8 | | Load_Top At_Offset_0 0089 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0095 | | .CONST 0x0095 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 0007 | | Action Break_Optional 0095 BODY_0090: 0095 00d8 | | Load_Top At_Offset_0 0096 800f | | Call 0x0,0xf 0097 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0098 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 00a4 8010 | | Call 0x0,0x10 00a5 e216 | | Load 0x1,0x16 00a6 01d7 | | Execute Vector,Field_Read 00a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ad | | .CONST 0x00ad ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e011 | | Load 0x0,0x11 00ac 0007 | | Action Break_Optional 00ad BODY_00a8: 00ad 00d8 | | Load_Top At_Offset_0 00ae e5ff | | Load 0x2,-0x1 00af 8012 | | Call 0x0,0x12 00b0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00b1 00d8 | | Load_Top At_Offset_0 00b2 8013 | | Call 0x0,0x13 00b3 a5fe | | Store_Unchecked 0x2,-0x2 00b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bd | | .CONST 0x00bd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e014 | | Load 0x0,0x14 00bc 0007 | | Action Break_Optional 00bd BODY_00b8: 00bd 00d8 | | Load_Top At_Offset_0 00be e5ff | | Load 0x2,-0x1 00bf 8015 | | Call 0x0,0x15 00c0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c1 00d8 | | Load_Top At_Offset_0 00c2 8016 | | Call 0x0,0x16 00c3 a5fe | | Store_Unchecked 0x2,-0x2 00c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c5 0000 0000 | | .XXX[0x3] 00c7 0000 | | 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00f0 | | .CONST 0x00f0 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0015 | | .CONST 0x0015 ; Number of locals 00cb INIT_00c8: 00cb 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 00cd 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 00cf 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 00d1 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 00d3 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 00d5 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 00d7 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 00d9 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 00db 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 00dd 00bf | | Action Accept_Activation 00de 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00df 00c7 | | Action Elaborate_Subprogram 00e0 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00e1 00c7 | | Action Elaborate_Subprogram 00e2 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00e3 00c7 | | Action Elaborate_Subprogram 00e4 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00e5 00c7 | | Action Elaborate_Subprogram 00e6 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00e7 00c7 | | Action Elaborate_Subprogram 00e8 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00e9 00c7 | | Action Elaborate_Subprogram 00ea 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00eb 00c7 | | Action Elaborate_Subprogram 00ec 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00ed 00c7 | | Action Elaborate_Subprogram 00ee 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00ef 00c7 | | Action Elaborate_Subprogram 00f0 BODY_00c8: 00f0 00bc | | Action Signal_Activated 00f1 00bb | | Action Signal_Completion 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00db | | Load_Top At_Offset_3 00fc 00db | | Load_Top At_Offset_3 00fd 8001 | | Call 0x0,0x1 00fe c5fe | | Store 0x2,-0x2 00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 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 e5fd | | Load 0x2,-0x3 0104 e002 | | Load 0x0,0x2 0105 0216 | | Execute Heap_Access,Convert 0106 e5fe | | Load 0x2,-0x2 0107 e5ff | | Load 0x2,-0x1 0108 8003 | | Call 0x0,0x3 0109 c5fd | | Store 0x2,-0x3 010a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00db | | Load_Top At_Offset_3 0114 e002 | | Load 0x0,0x2 0115 0216 | | Execute Heap_Access,Convert 0116 00db | | Load_Top At_Offset_3 0117 8004 | | Call 0x0,0x4 0118 c5fe | | Store 0x2,-0x2 0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011a 0000 0000 | | .BLANK 0000[0x6] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 8005 | | Call 0x0,0x5 0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0126 0000 0000 | | .XXX[0x2] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 00da | | Load_Top At_Offset_2 012c e002 | | Load 0x0,0x2 012d 0216 | | Execute Heap_Access,Convert 012e 8006 | | Call 0x0,0x6 012f 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0130 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00db | | Load_Top At_Offset_3 013c e002 | | Load 0x0,0x2 013d 0216 | | Execute Heap_Access,Convert 013e 00db | | Load_Top At_Offset_3 013f 8007 | | Call 0x0,0x7 0140 c5fe | | Store 0x2,-0x2 0141 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0142 0000 0000 | | .BLANK 0000[0x6] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00db | | Load_Top At_Offset_3 014c e002 | | Load 0x0,0x2 014d 0216 | | Execute Heap_Access,Convert 014e 4800 |H | Short_Literal 0x0 014f 8008 | | Call 0x0,0x8 0150 c5fe | | Store 0x2,-0x2 0151 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c 8009 | | Call 0x0,0x9 015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00db | | Load_Top At_Offset_3 0164 e002 | | Load 0x0,0x2 0165 0216 | | Execute Heap_Access,Convert 0166 00db | | Load_Top At_Offset_3 0167 800a | | Call 0x0,0xa 0168 c5fe | | Store 0x2,-0x2 0169 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016a ; -------------------------------------------------------------------------------------- 016a ; STRING TABLE 016a ; -------------------------------------------------------------------------------------- 016a 0006 | | .STRTAB 0x0006->0x016d ; "SEGMENT" 016b 000b | | .STRTAB 0x000b->0x0170 ; "DECISION" 016c 0011 | | .STREND 0x0011->0x0174 016d 5345 474d |SEGM| .STRTAB_STRINGS 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; Debug Table 0178 ; -------------------------------------------------------------------------------------- 0178 0004 000a | | .DEBUG4 0x0004,0x000a,0x7a75,0x0000,0x0001,0x0000 017e 0000 0000 | | .BLANK 0000[0x82]