|
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_03c0fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0190 | | .CONST 0x0190 ; 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 002e | . | .CONST 0x002e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 4988 |I | Short_Literal 0x188 000f 00e3 | | Load_Encached Natural_Cache 0010 03f1 | | Declare_Variable Discrete,With_Value 0011 00e3 | | Load_Encached Natural_Cache 0012 064f | O | Execute_Immediate Set_Value_Unchecked,0x4f 0013 a002 | | Store_Unchecked 0x0,0x2 0014 00c6 | | Action Check_Subprogram_Elaborated 0015 e003 | | Load 0x0,0x3 0016 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 0017 e004 | | Load 0x0,0x4 0018 e005 | | Load 0x0,0x5 0019 e006 | | Load 0x0,0x6 001a 4800 |H | Short_Literal 0x0 001b 0007 | | Action Break_Optional 001c e003 | | Load 0x0,0x3 001d 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a 001e 012c | , | Execute Any,Size 001f e004 | | Load 0x0,0x4 0020 012c | , | Execute Any,Size 0021 027f | | Execute Discrete,Equal 0022 7001 |p | Jump_Nonzero 0x24 0023 0887 | | Execute_Immediate Raise,0x87 0024 029d 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call 0026 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call 0028 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 002a 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call 002c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002d 00c7 | | Action Elaborate_Subprogram 002e BODY_0008: 002e 00bc | | Action Signal_Activated 002f 00bb | | Action Signal_Completion 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0037 | 7 | .CONST 0x0037 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0002 | | .CONST 0x0002 ; Number of locals 0033 INIT_0030: 0033 e5fd | | Load 0x2,-0x3 0034 e5fe | | Load 0x2,-0x2 0035 e5ff | | Load 0x2,-0x1 0036 8215 | | Call 0x1,0x15 0037 BODY_0030: 0037 e5fd | | Load 0x2,-0x3 0038 6804 |h | Jump_Zero 0x3d 0039 00d8 | | Load_Top At_Offset_0 003a e5fc | | Load 0x2,-0x4 003b 8216 | | Call 0x1,0x16 003c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 003d 00d8 | | Load_Top At_Offset_0 003e e5fc | | Load 0x2,-0x4 003f 8218 | | Call 0x1,0x18 0040 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0041 0000 0000 | | .BLANK 0000[0x7] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b e007 | | Load 0x0,0x7 004c e5fd | | Load 0x2,-0x3 004d 4801 |H | Short_Literal 0x1 004e e5fe | | Load 0x2,-0x2 004f 00d8 | | Load_Top At_Offset_0 0050 e008 | | Load 0x0,0x8 0051 0260 | ` | Execute Discrete,In_Type 0052 7001 |p | Jump_Nonzero 0x54 0053 0801 | | Execute_Immediate Raise,0x1 0054 e5ff | | Load 0x2,-0x1 0055 e210 | | Load 0x1,0x10 0056 e211 | | Load 0x1,0x11 0057 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0058 8002 | | Call 0x0,0x2 0059 8009 | | Call 0x0,0x9 005a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 005b 0000 0000 | | .BLANK 0000[0x5] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0081 | | .CONST 0x0081 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0009 | | .CONST 0x0009 ; Number of locals 0063 INIT_0060: 0063 e5ff | | Load 0x2,-0x1 0064 01db | | Execute Vector,Length 0065 00e3 | | Load_Encached Natural_Cache 0066 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0067 e20e | | Load 0x1,0xe 0068 e00a | | Load 0x0,0xa 0069 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006a 1c08 | | Execute_Immediate Run_Utility,0x8 006b 00d8 | | Load_Top At_Offset_0 006c 1c00 | | Execute_Immediate Run_Utility,0x0 006d 00e3 | | Load_Encached Natural_Cache 006e 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 0070 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0072 a00b | | Store_Unchecked 0x0,0xb 0073 00c6 | | Action Check_Subprogram_Elaborated 0074 4805 |H | Short_Literal 0x5 0075 4802 |H | Short_Literal 0x2 0076 0099 | | Action Reference_Dynamic 0077 0093 0000 | | push_full_address 0x0 0079 6032 |`2 | Indirect_Literal Discrete,0xac,{0x80000000, 0x00020000} 007a 0273 | s | Execute Discrete,Plus 007b e00c | | Load 0x0,0xc 007c 0273 | s | Execute Discrete,Plus 007d e00d | | Load 0x0,0xd 007e 0273 | s | Execute Discrete,Plus 007f 4809 |H | Short_Literal 0x9 0080 0007 | | Action Break_Optional 0081 BODY_0060: 0081 e403 | | Load 0x2,0x3 0082 4820 |H | Short_Literal 0x20 0083 4800 |H | Short_Literal 0x0 0084 e00a | | Load 0x0,0xa 0085 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0086 00d1 | | Pop_Control Pop_Count_1 0087 e402 | | Load 0x2,0x2 0088 0c01 | | Execute_Immediate Greater_Equal,0x1 0089 6803 |h | Jump_Zero 0x8d 008a e402 | | Load 0x2,0x2 008b a404 | | Store_Unchecked 0x2,0x4 008c 7802 |x | Jump 0x8f 008d 4804 |H | Short_Literal 0x4 008e a404 | | Store_Unchecked 0x2,0x4 008f 4800 |H | Short_Literal 0x0 0090 e20f | | Load 0x1,0xf 0091 00d8 | | Load_Top At_Offset_0 0092 00e4 | | Load_Encached Positive_Cache 0093 0260 | ` | Execute Discrete,In_Type 0094 7001 |p | Jump_Nonzero 0x96 0095 0801 | | Execute_Immediate Raise,0x1 0096 e404 | | Load 0x2,0x4 0097 6010 |` | Indirect_Literal Discrete,0xa8,{0x00000000, 0x7fffffff} 0098 4800 |H | Short_Literal 0x0 0099 e5ff | | Load 0x2,-0x1 009a e5fe | | Load 0x2,-0x2 009b 01cc | | Execute Vector,Catenate 009c 4807 |H | Short_Literal 0x7 009d 4802 |H | Short_Literal 0x2 009e 0099 | | Action Reference_Dynamic 009f 4808 |H | Short_Literal 0x8 00a0 4802 |H | Short_Literal 0x2 00a1 0099 | | Action Reference_Dynamic 00a2 800b | | Call 0x0,0xb 00a3 8406 | | Call 0x2,0x6 00a4 e403 | | Load 0x2,0x3 00a5 e00a | | Load 0x0,0xa 00a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 00ac 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c6 | | .CONST 0x00c6 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 4801 |H | Short_Literal 0x1 00b4 e5ff | | Load 0x2,-0x1 00b5 00e9 | | Load_Encached String_Cache 00b6 035b | [ | Declare_Type Array,Constrained 00b7 0337 | 7 | Declare_Variable Array 00b8 00d8 | | Load_Top At_Offset_0 00b9 0335 | 5 | Declare_Variable Array,Duplicate 00ba 00cd | | Action Spare6_Action 00bb e402 | | Load 0x2,0x2 00bc 01d9 | | Execute Vector,Reverse_Bounds 00bd 0263 | c | Execute Discrete,Above_Bound 00be 7005 |p | Jump_Nonzero 0xc4 00bf 482e |H. | Short_Literal 0x2e 00c0 e405 | | Load 0x2,0x5 00c1 e403 | | Load 0x2,0x3 00c2 01d6 | | Execute Vector,Field_Write 00c3 3ffb |? | Loop_Increasing 0xbf 00c4 e402 | | Load 0x2,0x2 00c5 01d4 | | Execute Vector,Structure_Write 00c6 BODY_00b0: 00c6 4820 |H | Short_Literal 0x20 00c7 e402 | | Load 0x2,0x2 00c8 01dc | | Execute Vector,Last 00c9 e402 | | Load 0x2,0x2 00ca 01d6 | | Execute Vector,Field_Write 00cb 00d8 | | Load_Top At_Offset_0 00cc 00e9 | | Load_Encached String_Cache 00cd 01c6 | | Execute Vector,Convert_To_Formal 00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cf 0000 | | .XXX[0x1] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00f3 | | .CONST 0x00f3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0009 | | .CONST 0x0009 ; Number of locals 00d3 INIT_00d0: 00d3 e5ff | | Load 0x2,-0x1 00d4 01db | | Execute Vector,Length 00d5 00e3 | | Load_Encached Natural_Cache 00d6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00d7 00d8 | | Load_Top At_Offset_0 00d8 8217 | | Call 0x1,0x17 00d9 e20f | | Load 0x1,0xf 00da 0901 | | Execute_Immediate Binary_Scale,0x1 00db e00a | | Load 0x0,0xa 00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00dd 1c08 | | Execute_Immediate Run_Utility,0x8 00de 00d8 | | Load_Top At_Offset_0 00df 1c00 | | Execute_Immediate Run_Utility,0x0 00e0 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 00e2 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 00e4 a00e | | Store_Unchecked 0x0,0xe 00e5 00c6 | | Action Check_Subprogram_Elaborated 00e6 4805 |H | Short_Literal 0x5 00e7 4802 |H | Short_Literal 0x2 00e8 0099 | | Action Reference_Dynamic 00e9 0093 0000 | | push_full_address 0x0 00eb 6030 |`0 | Indirect_Literal Discrete,0x11c,{0x80000000, 0x00010000} 00ec 0273 | s | Execute Discrete,Plus 00ed e00c | | Load 0x0,0xc 00ee 0273 | s | Execute Discrete,Plus 00ef e00f | | Load 0x0,0xf 00f0 0273 | s | Execute Discrete,Plus 00f1 4809 |H | Short_Literal 0x9 00f2 0007 | | Action Break_Optional 00f3 BODY_00d0: 00f3 e404 | | Load 0x2,0x4 00f4 4820 |H | Short_Literal 0x20 00f5 4800 |H | Short_Literal 0x0 00f6 e00a | | Load 0x0,0xa 00f7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00f8 00d1 | | Pop_Control Pop_Count_1 00f9 e402 | | Load 0x2,0x2 00fa e5fe | | Load 0x2,-0x2 00fb 01db | | Execute Vector,Length 00fc 0273 | s | Execute Discrete,Plus 00fd e20f | | Load 0x1,0xf 00fe 027a | z | Execute Discrete,Less_Equal 00ff 6804 |h | Jump_Zero 0x104 0100 e5ff | | Load 0x2,-0x1 0101 e5fe | | Load 0x2,-0x2 0102 01cc | | Execute Vector,Catenate 0103 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0104 e20f | | Load 0x1,0xf 0105 00d8 | | Load_Top At_Offset_0 0106 00e4 | | Load_Encached Positive_Cache 0107 0260 | ` | Execute Discrete,In_Type 0108 7001 |p | Jump_Nonzero 0x10a 0109 0801 | | Execute_Immediate Raise,0x1 010a e403 | | Load 0x2,0x3 010b e5ff | | Load 0x2,-0x1 010c e5fe | | Load 0x2,-0x2 010d 01cc | | Execute Vector,Catenate 010e 4807 |H | Short_Literal 0x7 010f 4802 |H | Short_Literal 0x2 0110 0099 | | Action Reference_Dynamic 0111 4808 |H | Short_Literal 0x8 0112 4802 |H | Short_Literal 0x2 0113 0099 | | Action Reference_Dynamic 0114 800e | | Call 0x0,0xe 0115 8406 | | Call 0x2,0x6 0116 e404 | | Load 0x2,0x4 0117 e00a | | Load 0x0,0xa 0118 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0119 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 011a 0000 0000 | | .XXX[0x2] 011c 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 012a | * | .CONST 0x012a ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 e403 | | Load 0x2,0x3 0124 480a |H | Short_Literal 0xa 0125 e7ff | | Load 0x3,-0x1 0126 01cb | | Execute Vector,Append 0127 e00a | | Load 0x0,0xa 0128 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012a TRAP_0120: 012a 010e | | Execute Exception,Is_Constraint_Error 012b 6801 |h | Jump_Zero 0x12d 012c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012d 0100 | | Execute Exception,Raise 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0138 | 8 | .CONST 0x0138 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0002 | | .CONST 0x0002 ; Number of locals 0133 INIT_0130: 0133 e403 | | Load 0x2,0x3 0134 e00a | | Load 0x0,0xa 0135 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0136 00e3 | | Load_Encached Natural_Cache 0137 03f1 | | Declare_Variable Discrete,With_Value 0138 BODY_0130: 0138 00d8 | | Load_Top At_Offset_0 0139 0c01 | | Execute_Immediate Greater_Equal,0x1 013a 6817 |h | Jump_Zero 0x152 013b 00d8 | | Load_Top At_Offset_0 013c 00d8 | | Load_Top At_Offset_0 013d 00e4 | | Load_Encached Positive_Cache 013e 0260 | ` | Execute Discrete,In_Type 013f 7001 |p | Jump_Nonzero 0x141 0140 0801 | | Execute_Immediate Raise,0x1 0141 e403 | | Load 0x2,0x3 0142 e00a | | Load 0x0,0xa 0143 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0144 0f0a | | Execute_Immediate Equal,0xa 0145 680c |h | Jump_Zero 0x152 0146 e403 | | Load 0x2,0x3 0147 4820 |H | Short_Literal 0x20 0148 e602 | | Load 0x3,0x2 0149 0aff | | Execute_Immediate Plus,-0x1 014a 00d8 | | Load_Top At_Offset_0 014b 00e3 | | Load_Encached Natural_Cache 014c 0260 | ` | Execute Discrete,In_Type 014d 7001 |p | Jump_Nonzero 0x14f 014e 0801 | | Execute_Immediate Raise,0x1 014f e00a | | Load 0x0,0xa 0150 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0151 00d1 | | Pop_Control Pop_Count_1 0152 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0153 0000 0000 | | .BLANK 0000[0x5] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0162 | b | .CONST 0x0162 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e404 | | Load 0x2,0x4 015c 480a |H | Short_Literal 0xa 015d e7ff | | Load 0x3,-0x1 015e 01cb | | Execute Vector,Append 015f e00a | | Load 0x0,0xa 0160 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0162 TRAP_0158: 0162 010e | | Execute Exception,Is_Constraint_Error 0163 6801 |h | Jump_Zero 0x165 0164 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0165 0100 | | Execute Exception,Raise 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0170 | p | .CONST 0x0170 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0002 | | .CONST 0x0002 ; Number of locals 016b INIT_0168: 016b e404 | | Load 0x2,0x4 016c e00a | | Load 0x0,0xa 016d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 016e 00e3 | | Load_Encached Natural_Cache 016f 03f1 | | Declare_Variable Discrete,With_Value 0170 BODY_0168: 0170 00d8 | | Load_Top At_Offset_0 0171 0c01 | | Execute_Immediate Greater_Equal,0x1 0172 6817 |h | Jump_Zero 0x18a 0173 00d8 | | Load_Top At_Offset_0 0174 00d8 | | Load_Top At_Offset_0 0175 00e4 | | Load_Encached Positive_Cache 0176 0260 | ` | Execute Discrete,In_Type 0177 7001 |p | Jump_Nonzero 0x179 0178 0801 | | Execute_Immediate Raise,0x1 0179 e404 | | Load 0x2,0x4 017a e00a | | Load 0x0,0xa 017b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 017c 0f0a | | Execute_Immediate Equal,0xa 017d 680c |h | Jump_Zero 0x18a 017e e404 | | Load 0x2,0x4 017f 4820 |H | Short_Literal 0x20 0180 e602 | | Load 0x3,0x2 0181 0aff | | Execute_Immediate Plus,-0x1 0182 00d8 | | Load_Top At_Offset_0 0183 00e3 | | Load_Encached Natural_Cache 0184 0260 | ` | Execute Discrete,In_Type 0185 7001 |p | Jump_Nonzero 0x187 0186 0801 | | Execute_Immediate Raise,0x1 0187 e00a | | Load 0x0,0xa 0188 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0189 00d1 | | Pop_Control Pop_Count_1 018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018b 0000 0000 | | .BLANK 0000[0x5] 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0004 0011 | | .DEBUG4 0x0004,0x0011,0x97a1,0x0000,0x0001,0x0000 0196 0000 0000 | | .BLANK 0000[0x6a]