|
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 0128 | ( | .CONST 0x0128 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call 001a 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 0034 | 4 | .CONST 0x0034 ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0003 | | .CONST 0x0003 ; Number of locals 002b INIT_0028: 002b 00da | | Load_Top At_Offset_2 002c 8002 | | Call 0x0,0x2 002d e003 | | Load 0x0,0x3 002e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0030 02c7 | | Declare_Variable Any 0031 00d9 | | Load_Top At_Offset_1 0032 8004 | | Call 0x0,0x4 0033 a403 | | Store_Unchecked 0x2,0x3 0034 BODY_0028: 0034 00d8 | | Load_Top At_Offset_0 0035 e003 | | Load 0x0,0x3 0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0037 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0038 e003 | | Load 0x0,0x3 0039 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 003b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003c 0000 0000 | | .BLANK 0000[0x4] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0057 | W | .CONST 0x0057 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0005 | | .CONST 0x0005 ; Number of locals 0043 INIT_0040: 0043 00da | | Load_Top At_Offset_2 0044 8002 | | Call 0x0,0x2 0045 e003 | | Load 0x0,0x3 0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0047 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0048 02c7 | | Declare_Variable Any 0049 00d9 | | Load_Top At_Offset_1 004a 8004 | | Call 0x0,0x4 004b a403 | | Store_Unchecked 0x2,0x3 004c 00d8 | | Load_Top At_Offset_0 004d e003 | | Load 0x0,0x3 004e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 004f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0050 00d9 | | Load_Top At_Offset_1 0051 e003 | | Load 0x0,0x3 0052 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0053 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0054 e003 | | Load 0x0,0x3 0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0056 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0057 BODY_0040: 0057 00d9 | | Load_Top At_Offset_1 0058 01dd | | Execute Vector,First 0059 00d9 | | Load_Top At_Offset_1 005a 01db | | Execute Vector,Length 005b 0273 | s | Execute Discrete,Plus 005c 0a01 | | Execute_Immediate Plus,0x1 005d 00d8 | | Load_Top At_Offset_0 005e 00e2 | | Load_Encached Integer_Cache 005f 0260 | ` | Execute Discrete,In_Type 0060 7001 |p | Jump_Nonzero 0x62 0061 0801 | | Execute_Immediate Raise,0x1 0062 00da | | Load_Top At_Offset_2 0063 01dc | | Execute Vector,Last 0064 00db | | Load_Top At_Offset_3 0065 01cf | | Execute Vector,Slice_Read 0066 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 008c | | .CONST 0x008c ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0007 | | .CONST 0x0007 ; Number of locals 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 006c 8002 | | Call 0x0,0x2 006d e003 | | Load 0x0,0x3 006e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0070 02c7 | | Declare_Variable Any 0071 00d9 | | Load_Top At_Offset_1 0072 8004 | | Call 0x0,0x4 0073 a403 | | Store_Unchecked 0x2,0x3 0074 00d8 | | Load_Top At_Offset_0 0075 e003 | | Load 0x0,0x3 0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0077 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0078 e5ff | | Load 0x2,-0x1 0079 8211 | | Call 0x1,0x11 007a 00d8 | | Load_Top At_Offset_0 007b 8212 | | Call 0x1,0x12 007c 00d8 | | Load_Top At_Offset_0 007d 01dd | | Execute Vector,First 007e 00db | | Load_Top At_Offset_3 007f 01db | | Execute Vector,Length 0080 0273 | s | Execute Discrete,Plus 0081 0a01 | | Execute_Immediate Plus,0x1 0082 00d8 | | Load_Top At_Offset_0 0083 00e2 | | Load_Encached Integer_Cache 0084 0260 | ` | Execute Discrete,In_Type 0085 7001 |p | Jump_Nonzero 0x87 0086 0801 | | Execute_Immediate Raise,0x1 0087 00d9 | | Load_Top At_Offset_1 0088 01dc | | Execute Vector,Last 0089 00da | | Load_Top At_Offset_2 008a 01cf | | Execute Vector,Slice_Read 008b 0007 | | Action Break_Optional 008c BODY_0068: 008c 00d8 | | Load_Top At_Offset_0 008d 01db | | Execute Vector,Length 008e 6802 |h | Jump_Zero 0x91 008f 00d8 | | Load_Top At_Offset_0 0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0091 00db | | Load_Top At_Offset_3 0092 e003 | | Load 0x0,0x3 0093 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0094 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0096 0000 0000 | | .XXX[0x2] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a2 | | .CONST 0x00a2 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0003 | | .CONST 0x0003 ; Number of locals 009b INIT_0098: 009b e005 | | Load 0x0,0x5 009c 0322 | " | Declare_Variable Record 009d 00db | | Load_Top At_Offset_3 009e 00d9 | | Load_Top At_Offset_1 009f 017d | } | Execute Record,Structure_Write 00a0 00e3 | | Load_Encached Natural_Cache 00a1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00a2 BODY_0098: 00a2 00cf | | Action Mark_Auxiliary 00a3 7807 |x | Jump 0xab 00a4 00d9 | | Load_Top At_Offset_1 00a5 0a01 | | Execute_Immediate Plus,0x1 00a6 005a | Z | Store_Top Discrete,At_Offset_2 00a7 00da | | Load_Top At_Offset_2 00a8 8006 | | Call 0x0,0x6 00a9 00d1 | | Pop_Control Pop_Count_1 00aa 00c9 | | Action Pop_Auxiliary_Loop 00ab 00da | | Load_Top At_Offset_2 00ac 8007 | | Call 0x0,0x7 00ad 6ff6 |o | Jump_Zero 0xa4 00ae 00ce | | Action Pop_Auxiliary 00af 00d8 | | Load_Top At_Offset_0 00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00c1 | | .CONST 0x00c1 ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0003 | | .CONST 0x0003 ; Number of locals 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc 8008 | | Call 0x0,0x8 00bd e009 | | Load 0x0,0x9 00be 02ff | | Declare_Variable Variant_Record 00bf 00d8 | | Load_Top At_Offset_0 00c0 1c00 | | Execute_Immediate Run_Utility,0x0 00c1 BODY_00b8: 00c1 00cf | | Action Mark_Auxiliary 00c2 784a |xJ | Jump 0x10d 00c3 00da | | Load_Top At_Offset_2 00c4 800a | | Call 0x0,0xa 00c5 00da | | Load_Top At_Offset_2 00c6 016d | m | Execute Variant_Record,Structure_Write 00c7 00d9 | | Load_Top At_Offset_1 00c8 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00c9 4606 |F | Jump_Case 0x7 00ca 783d |x= | Jump 0x108 ; case 0x0 00cb 783c |x< | Jump 0x108 ; case 0x1 00cc 780d |x | Jump 0xda ; case 0x2 00cd 7804 |x | Jump 0xd2 ; case 0x3 00ce 7839 |x9 | Jump 0x108 ; case 0x4 00cf 7838 |x8 | Jump 0x108 ; case 0x5 00d0 7837 |x7 | Jump 0x108 ; case 0x6 00d1 7836 |x6 | .XXX[0x1] 00d2 00d9 | | Load_Top At_Offset_1 00d3 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 00d4 0f0e | | Execute_Immediate Equal,0xe 00d5 7001 |p | Jump_Nonzero 0xd7 00d6 7831 |x1 | Jump 0x108 00d7 00da | | Load_Top At_Offset_2 00d8 800b | | Call 0x0,0xb 00d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00da 00d9 | | Load_Top At_Offset_1 00db 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 00dc 4626 |F& | Jump_Case 0x27 00dd 782a |x* | Jump 0x108 ; case 0x0 00de 7829 |x) | Jump 0x108 ; case 0x1 00df 7828 |x( | Jump 0x108 ; case 0x2 00e0 7827 |x' | Jump 0x108 ; case 0x3 00e1 7826 |x& | Jump 0x108 ; case 0x4 00e2 7825 |x% | Jump 0x108 ; case 0x5 00e3 7824 |x$ | Jump 0x108 ; case 0x6 00e4 7823 |x# | Jump 0x108 ; case 0x7 00e5 781f |x | Jump 0x105 ; case 0x8 00e6 781e |x | Jump 0x105 ; case 0x9 00e7 7820 |x | Jump 0x108 ; case 0xa 00e8 781c |x | Jump 0x105 ; case 0xb 00e9 781e |x | Jump 0x108 ; case 0xc 00ea 781a |x | Jump 0x105 ; case 0xd 00eb 781c |x | Jump 0x108 ; case 0xe 00ec 781b |x | Jump 0x108 ; case 0xf 00ed 781a |x | Jump 0x108 ; case 0x10 00ee 7819 |x | Jump 0x108 ; case 0x11 00ef 7818 |x | Jump 0x108 ; case 0x12 00f0 7817 |x | Jump 0x108 ; case 0x13 00f1 7816 |x | Jump 0x108 ; case 0x14 00f2 7815 |x | Jump 0x108 ; case 0x15 00f3 7814 |x | Jump 0x108 ; case 0x16 00f4 7813 |x | Jump 0x108 ; case 0x17 00f5 7812 |x | Jump 0x108 ; case 0x18 00f6 7811 |x | Jump 0x108 ; case 0x19 00f7 780d |x | Jump 0x105 ; case 0x1a 00f8 780f |x | Jump 0x108 ; case 0x1b 00f9 780e |x | Jump 0x108 ; case 0x1c 00fa 780d |x | Jump 0x108 ; case 0x1d 00fb 780c |x | Jump 0x108 ; case 0x1e 00fc 780b |x | Jump 0x108 ; case 0x1f 00fd 780a |x | Jump 0x108 ; case 0x20 00fe 7809 |x | Jump 0x108 ; case 0x21 00ff 7808 |x | Jump 0x108 ; case 0x22 0100 7807 |x | Jump 0x108 ; case 0x23 0101 7806 |x | Jump 0x108 ; case 0x24 0102 7805 |x | Jump 0x108 ; case 0x25 0103 7804 |x | Jump 0x108 ; case 0x26 0104 7803 |x | .XXX[0x1] 0105 00da | | Load_Top At_Offset_2 0106 800b | | Call 0x0,0xb 0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0108 00da | | Load_Top At_Offset_2 0109 00eb | | Load_Encached Diana_Cache 010a 18ec | | Execute Package,Field_Execute,Field_Number 0xec 010b 0033 | 3 | Store_Top Heap_Access,At_Offset_3 010c 00c9 | | Action Pop_Auxiliary_Loop 010d 00da | | Load_Top At_Offset_2 010e 77b4 |w | Jump_Nonzero 0xc3 010f 00ce | | Action Pop_Auxiliary 0110 00d9 | | Load_Top At_Offset_1 0111 800b | | Call 0x0,0xb 0112 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011c | | .CONST 0x011c ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 00ec | | Load_Encached Diana_Tree_Cache 011c BODY_0118: 011c 00db | | Load_Top At_Offset_3 011d 8008 | | Call 0x0,0x8 011e 4976 |Iv | Short_Literal 0x176 011f 00eb | | Load_Encached Diana_Cache 0120 0098 | | Execute Package,Field_Read_Dynamic 0121 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0122 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0123 00d8 | | Load_Top At_Offset_0 0124 e00c | | Load 0x0,0xc 0125 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0126 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0128 ; -------------------------------------------------------------------------------------- 0128 ; Debug Table 0128 ; -------------------------------------------------------------------------------------- 0128 0004 0009 | | .DEBUG4 0x0004,0x0009,0x94b9,0x0000,0x0001,0x0000 012e 0000 0000 | | .BLANK 0000[0xd2]