|
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_0a70f4
└─⟦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 0170 | p | .CONST 0x0170 ; 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 0068 | h | .CONST 0x0068 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c e002 | | Load 0x0,0x2 000d e20f | | Load 0x1,0xf 000e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 000f e211 | | Load 0x1,0x11 0010 e003 | | Load 0x0,0x3 0011 0386 | | Declare_Variable Package,Visible 0012 00d8 | | Load_Top At_Offset_0 0013 020f | | Execute Module,Activate 0014 00d8 | | Load_Top At_Offset_0 0015 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0016 0129 | ) | Execute Any,Make_Visible 0017 00d9 | | Load_Top At_Offset_1 0018 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0019 0129 | ) | Execute Any,Make_Visible 001a 00da | | Load_Top At_Offset_2 001b 191d | | Execute Package,Field_Reference,Field_Number 0x1d 001c 0129 | ) | Execute Any,Make_Visible 001d 00db | | Load_Top At_Offset_3 001e 191e | | Execute Package,Field_Reference,Field_Number 0x1e 001f 0129 | ) | Execute Any,Make_Visible 0020 e212 | | Load 0x1,0x12 0021 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0022 0129 | ) | Execute Any,Make_Visible 0023 e212 | | Load 0x1,0x12 0024 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0025 0129 | ) | Execute Any,Make_Visible 0026 e212 | | Load 0x1,0x12 0027 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0028 0129 | ) | Execute Any,Make_Visible 0029 e212 | | Load 0x1,0x12 002a 1918 | | Execute Package,Field_Reference,Field_Number 0x18 002b 0129 | ) | Execute Any,Make_Visible 002c e004 | | Load 0x0,0x4 002d 0129 | ) | Execute Any,Make_Visible 002e e005 | | Load 0x0,0x5 002f e006 | | Load 0x0,0x6 0030 e211 | | Load 0x1,0x11 0031 e20f | | Load 0x1,0xf 0032 e213 | | Load 0x1,0x13 0033 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0034 e007 | | Load 0x0,0x7 0035 0386 | | Declare_Variable Package,Visible 0036 00d8 | | Load_Top At_Offset_0 0037 020f | | Execute Module,Activate 0038 00d8 | | Load_Top At_Offset_0 0039 1915 | | Execute Package,Field_Reference,Field_Number 0x15 003a 0129 | ) | Execute Any,Make_Visible 003b 00d9 | | Load_Top At_Offset_1 003c 1916 | | Execute Package,Field_Reference,Field_Number 0x16 003d 0129 | ) | Execute Any,Make_Visible 003e 00da | | Load_Top At_Offset_2 003f 1919 | | Execute Package,Field_Reference,Field_Number 0x19 0040 0129 | ) | Execute Any,Make_Visible 0041 00db | | Load_Top At_Offset_3 0042 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0043 0129 | ) | Execute Any,Make_Visible 0044 e21c | | Load 0x1,0x1c 0045 191f | | Execute Package,Field_Reference,Field_Number 0x1f 0046 0129 | ) | Execute Any,Make_Visible 0047 e21c | | Load 0x1,0x1c 0048 1920 | | Execute Package,Field_Reference,Field_Number 0x20 0049 0129 | ) | Execute Any,Make_Visible 004a e21c | | Load 0x1,0x1c 004b 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21 004c 0129 | ) | Execute Any,Make_Visible 004d e21c | | Load 0x1,0x1c 004e 1922 | " | Execute Package,Field_Reference,Field_Number 0x22 004f 0129 | ) | Execute Any,Make_Visible 0050 4801 |H | Short_Literal 0x1 0051 032b | + | Declare_Type Record,Incomplete,Visible 0052 00d8 | | Load_Top At_Offset_0 0053 02a0 | | Declare_Subprogram Null_Subprogram 0054 03ae | | Declare_Type Heap_Access,Defined,Visible 0055 0007 | | Action Break_Optional 0056 e21c | | Load 0x1,0x1c 0057 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0058 02a0 | | Declare_Subprogram Null_Subprogram 0059 00db | | Load_Top At_Offset_3 005a 0326 | & | Complete_Type Record,By_Defining 005b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 005d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 005f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0061 00bf | | Action Accept_Activation 0062 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0063 00c7 | | Action Elaborate_Subprogram 0064 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0065 00c7 | | Action Elaborate_Subprogram 0066 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0067 00c7 | | Action Elaborate_Subprogram 0068 BODY_0008: 0068 00bc | | Action Signal_Activated 0069 00bb | | Action Signal_Completion 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 e226 | & | Load 0x1,0x26 0074 0007 | | Action Break_Optional 0075 BODY_0070: 0075 e226 | & | Load 0x1,0x26 0076 e008 | | Load 0x0,0x8 0077 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0078 e009 | | Load 0x0,0x9 0079 1811 | | Execute Package,Field_Execute,Field_Number 0x11 007a 039c | | Declare_Variable Heap_Access,By_Allocation 007b 0031 | 1 | Store_Top Heap_Access,At_Offset_1 007c 0007 | | Action Break_Optional 007d 00d8 | | Load_Top At_Offset_0 007e 0219 | | Execute Heap_Access,All_Read 007f e21c | | Load 0x1,0x1c 0080 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0081 e21c | | Load 0x1,0x1c 0082 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0083 00d9 | | Load_Top At_Offset_1 0084 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0085 00d1 | | Pop_Control Pop_Count_1 0086 00d8 | | Load_Top At_Offset_0 0087 a5ff | | Store_Unchecked 0x2,-0x1 0088 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0096 | | .CONST 0x0096 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 00e1 | | Load_Encached Boolean_Cache 0094 e213 | | Load 0x1,0x13 0095 0007 | | Action Break_Optional 0096 BODY_0090: 0096 00e1 | | Load_Encached Boolean_Cache 0097 00d9 | | Load_Top At_Offset_1 0098 e5fe | | Load 0x2,-0x2 0099 e20f | | Load 0x1,0xf 009a 0119 | | Execute Any,Check_In_Formal_Type 009b e5ff | | Load 0x2,-0x1 009c 0217 | | Execute Heap_Access,All_Reference 009d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009e e21c | | Load 0x1,0x1c 009f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a0 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00a1 005a | Z | Store_Top Discrete,At_Offset_2 00a2 00d9 | | Load_Top At_Offset_1 00a3 7017 |p | Jump_Nonzero 0xbb 00a4 e212 | | Load 0x1,0x12 00a5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00a6 e008 | | Load 0x0,0x8 00a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a8 e009 | | Load 0x0,0x9 00a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00aa e212 | | Load 0x1,0x12 00ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ac 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00ad e5ff | | Load 0x2,-0x1 00ae 0219 | | Execute Heap_Access,All_Read 00af 00d8 | | Load_Top At_Offset_0 00b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b1 4800 |H | Short_Literal 0x0 00b2 00db | | Load_Top At_Offset_3 00b3 e5fe | | Load 0x2,-0x2 00b4 e20f | | Load 0x1,0xf 00b5 0119 | | Execute Any,Check_In_Formal_Type 00b6 e21c | | Load 0x1,0x1c 00b7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00b8 00d9 | | Load_Top At_Offset_1 00b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ba 00d1 | | Pop_Control Pop_Count_1 00bb 00d8 | | Load_Top At_Offset_0 00bc e5fd | | Load 0x2,-0x3 00bd e20f | | Load 0x1,0xf 00be 0119 | | Execute Any,Check_In_Formal_Type 00bf e212 | | Load 0x1,0x12 00c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c1 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c2 00e1 | | Load_Encached Boolean_Cache 00c3 00d9 | | Load_Top At_Offset_1 00c4 e5fd | | Load 0x2,-0x3 00c5 e20f | | Load 0x1,0xf 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 e5ff | | Load 0x2,-0x1 00c8 0217 | | Execute Heap_Access,All_Reference 00c9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ca e21c | | Load 0x1,0x1c 00cb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00cc 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00cd 005a | Z | Store_Top Discrete,At_Offset_2 00ce 00d9 | | Load_Top At_Offset_1 00cf 7017 |p | Jump_Nonzero 0xe7 00d0 e212 | | Load 0x1,0x12 00d1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d2 e008 | | Load 0x0,0x8 00d3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d4 e009 | | Load 0x0,0x9 00d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d6 e212 | | Load 0x1,0x12 00d7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d8 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00d9 e5ff | | Load 0x2,-0x1 00da 0219 | | Execute Heap_Access,All_Read 00db 00d8 | | Load_Top At_Offset_0 00dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00dd 4800 |H | Short_Literal 0x0 00de 00db | | Load_Top At_Offset_3 00df e5fd | | Load 0x2,-0x3 00e0 e20f | | Load 0x1,0xf 00e1 0119 | | Execute Any,Check_In_Formal_Type 00e2 e21c | | Load 0x1,0x1c 00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e4 00d9 | | Load_Top At_Offset_1 00e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e6 00d1 | | Pop_Control Pop_Count_1 00e7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f4 | | .CONST 0x00f4 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0005 | | .CONST 0x0005 ; Number of locals 00eb INIT_00e8: 00eb e21c | | Load 0x1,0x1c 00ec 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00ed 0322 | " | Declare_Variable Record 00ee e213 | | Load 0x1,0x13 00ef 0007 | | Action Break_Optional 00f0 e213 | | Load 0x1,0x13 00f1 0007 | | Action Break_Optional 00f2 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 00f4 BODY_00e8: 00f4 e212 | | Load 0x1,0x12 00f5 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00f6 e008 | | Load 0x0,0x8 00f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f8 e009 | | Load 0x0,0x9 00f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00fa e212 | | Load 0x1,0x12 00fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00fc 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00fd e212 | | Load 0x1,0x12 00fe 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ff e008 | | Load 0x0,0x8 0100 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0101 e009 | | Load 0x0,0x9 0102 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0103 e212 | | Load 0x1,0x12 0104 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0105 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0106 00db | | Load_Top At_Offset_3 0107 e5ff | | Load 0x2,-0x1 0108 0217 | | Execute Heap_Access,All_Reference 0109 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010a e21c | | Load 0x1,0x1c 010b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 010c 00d1 | | Pop_Control Pop_Count_1 010d 00cf | | Action Mark_Auxiliary 010e 780b |x | Jump 0x11a 010f e402 | | Load 0x2,0x2 0110 e21c | | Load 0x1,0x1c 0111 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0112 e20f | | Load 0x1,0xf 0113 0119 | | Execute Any,Check_In_Formal_Type 0114 8405 | | Call 0x2,0x5 0115 e402 | | Load 0x2,0x2 0116 e21c | | Load 0x1,0x1c 0117 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0118 00d1 | | Pop_Control Pop_Count_1 0119 00c9 | | Action Pop_Auxiliary_Loop 011a e402 | | Load 0x2,0x2 011b e21c | | Load 0x1,0x1c 011c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 011d 6ff1 |o | Jump_Zero 0x10f 011e 00ce | | Action Pop_Auxiliary 011f 00da | | Load_Top At_Offset_2 0120 a5fe | | Store_Unchecked 0x2,-0x2 0121 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012f | / | .CONST 0x012f ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e214 | | Load 0x1,0x14 012c 0322 | " | Declare_Variable Record 012d 00d8 | | Load_Top At_Offset_0 012e 1c00 | | Execute_Immediate Run_Utility,0x0 012f BODY_0128: 012f 00db | | Load_Top At_Offset_3 0130 e20f | | Load 0x1,0xf 0131 0119 | | Execute Any,Check_In_Formal_Type 0132 e403 | | Load 0x2,0x3 0133 e212 | | Load 0x1,0x12 0134 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0135 6801 |h | Jump_Zero 0x137 0136 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0137 00db | | Load_Top At_Offset_3 0138 e20f | | Load 0x1,0xf 0139 0119 | | Execute Any,Check_In_Formal_Type 013a e404 | | Load 0x2,0x4 013b e212 | | Load 0x1,0x12 013c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 013d 6802 |h | Jump_Zero 0x140 013e e21b | | Load 0x1,0x1b 013f 0257 | W | Execute Discrete,Raise 0140 00d8 | | Load_Top At_Offset_0 0141 e7ff | | Load 0x3,-0x1 0142 e20f | | Load 0x1,0xf 0143 0119 | | Execute Any,Check_In_Formal_Type 0144 e5ff | | Load 0x2,-0x1 0145 0217 | | Execute Heap_Access,All_Reference 0146 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0147 e21c | | Load 0x1,0x1c 0148 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0149 8215 | | Call 0x1,0x15 014a 00d1 | | Pop_Control Pop_Count_1 014b e404 | | Load 0x2,0x4 014c e7ff | | Load 0x3,-0x1 014d e20f | | Load 0x1,0xf 014e 0119 | | Execute Any,Check_In_Formal_Type 014f e212 | | Load 0x1,0x12 0150 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0151 c404 | | Store 0x2,0x4 0152 00cf | | Action Mark_Auxiliary 0153 7809 |x | Jump 0x15d 0154 00d9 | | Load_Top At_Offset_1 0155 8217 | | Call 0x1,0x17 0156 e20f | | Load 0x1,0xf 0157 0119 | | Execute Any,Check_In_Formal_Type 0158 8405 | | Call 0x2,0x5 0159 00d9 | | Load_Top At_Offset_1 015a 8216 | | Call 0x1,0x16 015b 00d1 | | Pop_Control Pop_Count_1 015c 00c9 | | Action Pop_Auxiliary_Loop 015d 00d9 | | Load_Top At_Offset_1 015e 8218 | | Call 0x1,0x18 015f 6ff4 |o | Jump_Zero 0x154 0160 00ce | | Action Pop_Auxiliary 0161 e403 | | Load 0x2,0x3 0162 e7ff | | Load 0x3,-0x1 0163 e20f | | Load 0x1,0xf 0164 0119 | | Execute Any,Check_In_Formal_Type 0165 e212 | | Load 0x1,0x12 0166 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0167 c403 | | Store 0x2,0x3 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug Table 0170 ; -------------------------------------------------------------------------------------- 0170 0004 0004 | | .DEBUG4 0x0004,0x0004,0x704e,0x0000,0x0001,0x0000 0176 8080 8080 | | .BLANK 8080[0x5] 017b 8111 a5c9 | | .XXX[0x14] 017d 958d d1a5 | | 017f bdb8 8080 | | 0181 8080 e881 | | 0183 bdd5 d081 | | 0185 617d 19bd |a} | 0187 b9d1 7d11 | } | 0189 a5c9 958d | | 018b d1a5 bdb8 | | 018d ec80 8028 | (| 018f 8080 8080 | | .BLANK 8080[0x11] 01a0 8081 19bd | | .XXX[0x10] 01a2 b9d1 7d05 | } | 01a4 cd8d 95b9 | | 01a6 d080 80e8 | | 01a8 81bd d5d0 | | 01aa 814d 7d4d | M}M| 01ac a1bd c9d0 | | 01ae ec80 8028 | (| 01b0 8080 8080 | | .BLANK 8080[0x11] 01c1 8081 19bd | | .XXX[0x10] 01c3 b9d1 7d11 | } | 01c5 95cd 8d95 | | 01c7 b9d0 80e8 | | 01c9 81bd d5d0 | | 01cb 814d 7d4d | M}M| 01cd a1bd c9d0 | | 01cf ec80 8028 | (| 01d1 8080 8080 | | .BLANK 8080[0x11] 01e2 8081 3dd9 | = | .XXX[0x1e] 01e4 95c9 85b1 | | 01e6 b080 8080 | | 01e8 8080 80e8 | | 01ea 81bd d5d0 | | 01ec 8161 7d0d | a} | 01ee a185 c97d | }| 01f0 4dd1 c9d5 |M | 01f2 8dd0 a480 | | 01f4 8028 8080 | ( | 01f6 8080 8080 | | 01f8 8081 c995 | | 01fa b985 b595 | | 01fc cc81 61b1 | a | 01fe 89c1 7d51 | }Q|