|
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_0a7cf5
└─⟦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 0110 | | .CONST 0x0110 ; 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 005e | ^ | .CONST 0x005e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 e001 | | Load 0x0,0x1 0014 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0015 e001 | | Load 0x0,0x1 0016 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0017 e001 | | Load 0x0,0x1 0018 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0019 e001 | | Load 0x0,0x1 001a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001b e001 | | Load 0x0,0x1 001c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 001d 02a0 | | Declare_Subprogram Null_Subprogram 001e 4805 |H | Short_Literal 0x5 001f 032e | . | Declare_Type Record,Defined,Visible 0020 c213 | | Store 0x1,0x13 0021 4800 |H | Short_Literal 0x0 0022 0093 00b3 | | push_full_address INIT_00b0 0024 02a0 | | Declare_Subprogram Null_Subprogram 0025 038f | | Declare_Type Package,Defined,Visible 0026 0386 | | Declare_Variable Package,Visible 0027 c210 | | Store 0x1,0x10 0028 e210 | | Load 0x1,0x10 0029 1b0d | | Execute Package,Field_Read,Field_Number 0xd 002a 0129 | ) | Execute Any,Make_Visible 002b c211 | | Store 0x1,0x11 002c e211 | | Load 0x1,0x11 002d 0129 | ) | Execute Any,Make_Visible 002e c212 | | Store 0x1,0x12 002f 00bf | | Action Accept_Activation 0030 4800 |H | Short_Literal 0x0 0031 4840 |H@ | Short_Literal 0x40 0032 00e3 | | Load_Encached Natural_Cache 0033 03f8 | | Declare_Type Discrete,Constrained 0034 00d8 | | Load_Top At_Offset_0 0035 4800 |H | Short_Literal 0x0 0036 4801 |H | Short_Literal 0x1 0037 4801 |H | Short_Literal 0x1 0038 4804 |H | Short_Literal 0x4 0039 0318 | | Declare_Type Variant_Record,Incomplete 003a 029f 008b | | Declare_Subprogram INIT_0088,For_Call 003c 00d9 | | Load_Top At_Offset_1 003d 012a | * | Execute Any,Change_Utility 003e 0007 | | Action Break_Optional 003f 00d8 | | Load_Top At_Offset_0 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 03ad | | Declare_Type Heap_Access,Defined 0042 00d8 | | Load_Top At_Offset_0 0043 0007 | | Action Break_Optional 0044 e211 | | Load 0x1,0x11 0045 e216 | | Load 0x1,0x16 0046 4801 |H | Short_Literal 0x1 0047 4840 |H@ | Short_Literal 0x40 0048 00e9 | | Load_Encached String_Cache 0049 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object 004a 029f 008b | | Declare_Subprogram INIT_0088,For_Call 004c 4800 |H | Short_Literal 0x0 004d 4801 |H | Short_Literal 0x1 004e 4802 |H | Short_Literal 0x2 004f e215 | | Load 0x1,0x15 0050 0307 | | Complete_Type Variant_Record,By_Defining 0051 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0052 00c7 | | Action Elaborate_Subprogram 0053 e215 | | Load 0x1,0x15 0054 e002 | | Load 0x0,0x2 0055 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0056 e216 | | Load 0x1,0x16 0057 e003 | | Load 0x0,0x3 0058 e004 | | Load 0x0,0x4 0059 4806 |H | Short_Literal 0x6 005a e210 | | Load 0x1,0x10 005b 020e | | Execute Module,Augment_Imports 005c e210 | | Load 0x1,0x10 005d 020f | | Execute Module,Activate 005e BODY_0008: 005e 00bc | | Action Signal_Activated 005f 00bb | | Action Signal_Completion 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0068 | h | .CONST 0x0068 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0003 | | .CONST 0x0003 ; Number of locals 0063 INIT_0060: 0063 e216 | | Load 0x1,0x16 0064 0007 | | Action Break_Optional 0065 e5ff | | Load 0x2,-0x1 0066 e002 | | Load 0x0,0x2 0067 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0068 BODY_0060: 0068 e217 | | Load 0x1,0x17 0069 a402 | | Store_Unchecked 0x2,0x2 006a 00cf | | Action Mark_Auxiliary 006b 7812 |x | Jump 0x7e 006c e403 | | Load 0x2,0x3 006d e402 | | Load 0x2,0x2 006e 0217 | | Execute Heap_Access,All_Reference 006f 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0070 01df | | Execute Vector,Equal 0071 6807 |h | Jump_Zero 0x79 0072 e402 | | Load 0x2,0x2 0073 0217 | | Execute Heap_Access,All_Reference 0074 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0075 a212 | | Store_Unchecked 0x1,0x12 0076 4801 |H | Short_Literal 0x1 0077 a5fe | | Store_Unchecked 0x2,-0x2 0078 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0079 e402 | | Load 0x2,0x2 007a 0217 | | Execute Heap_Access,All_Reference 007b 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 007c a402 | | Store_Unchecked 0x2,0x2 007d 00c9 | | Action Pop_Auxiliary_Loop 007e e402 | | Load 0x2,0x2 007f 77ec |w | Jump_Nonzero 0x6c 0080 00ce | | Action Pop_Auxiliary 0081 4800 |H | Short_Literal 0x0 0082 a5fe | | Store_Unchecked 0x2,-0x2 0083 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b BODY_0088: 008b INIT_0088: 008b INIT_0088: 008b 4608 |F | Jump_Case 0x9 008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 008d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 008e 7819 |x | Jump 0xa8 ; case 0x2 008f 7818 |x | Jump 0xa8 ; case 0x3 0090 7817 |x | Jump 0xa8 ; case 0x4 0091 7816 |x | Jump 0xa8 ; case 0x5 0092 7815 |x | Jump 0xa8 ; case 0x6 0093 7801 |x | Jump 0x95 ; case 0x7 0094 7809 |x | Jump 0x9e ; case 0x8 0095 e5fe | | Load 0x2,-0x2 0096 4801 |H | Short_Literal 0x1 0097 e5fe | | Load 0x2,-0x2 0098 00e9 | | Load_Encached String_Cache 0099 035b | [ | Declare_Type Array,Constrained 009a 4801 |H | Short_Literal 0x1 009b e5ff | | Load 0x2,-0x1 009c 031b | | Declare_Type Variant_Record,Constrained 009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009e e5fe | | Load 0x2,-0x2 009f e5ff | | Load 0x2,-0x1 00a0 02fc | | Declare_Variable Variant_Record,With_Constraint 00a1 4801 |H | Short_Literal 0x1 00a2 e5fe | | Load 0x2,-0x2 00a3 00e9 | | Load_Encached String_Cache 00a4 0334 | 4 | Declare_Variable Array,With_Constraint 00a5 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4 00a6 016a | j | QQ_execute Variant_Record,XXX 00a7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a8 0869 | i | Execute_Immediate Raise,0x69 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00d2 | | .CONST 0x00d2 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0018 | | .CONST 0x0018 ; Number of locals 00b3 INIT_00b0: 00b3 00e5 | | Load_Encached Long_Integer_Cache 00b4 0129 | ) | Execute Any,Make_Visible 00b5 00c4 | | Action Make_Default 00b6 00c4 | | Action Make_Default 00b7 00c4 | | Action Make_Default 00b8 00c4 | | Action Make_Default 00b9 00c4 | | Action Make_Default 00ba 00c4 | | Action Make_Default 00bb 00c4 | | Action Make_Default 00bc 00c4 | | Action Make_Default 00bd 00c4 | | Action Make_Default 00be 00c4 | | Action Make_Default 00bf 00c4 | | Action Make_Default 00c0 481a |H | Short_Literal 0x1a 00c1 0093 00db | | push_full_address INIT_00d8 00c3 02a0 | | Declare_Subprogram Null_Subprogram 00c4 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 00c5 c217 | | Store 0x1,0x17 00c6 00bf | | Action Accept_Activation 00c7 e001 | | Load 0x0,0x1 00c8 e002 | | Load 0x0,0x2 00c9 a003 | | Store_Unchecked 0x0,0x3 00ca e004 | | Load 0x0,0x4 00cb e005 | | Load 0x0,0x5 00cc e006 | | Load 0x0,0x6 00cd 4806 |H | Short_Literal 0x6 00ce e217 | | Load 0x1,0x17 00cf 020e | | Execute Module,Augment_Imports 00d0 e217 | | Load 0x1,0x17 00d1 020d | | Execute Module,Elaborate 00d2 BODY_00b0: 00d2 00bc | | Action Signal_Activated 00d3 00bb | | Action Signal_Completion 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00de | | .CONST 0x00de ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0027 | ' | .CONST 0x0027 ; Number of locals 00db INIT_00d8: 00db 029c 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible 00dd 00bf | | Action Accept_Activation 00de BODY_00d8: 00de e226 | & | Load 0x1,0x26 00df 01db | | Execute Vector,Length 00e0 e001 | | Load 0x0,0x1 00e1 1c08 | | Execute_Immediate Run_Utility,0x8 00e2 e226 | & | Load 0x1,0x26 00e3 e002 | | Load 0x0,0x2 00e4 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e5 e228 | ( | Load 0x1,0x28 00e6 00d8 | | Load_Top At_Offset_0 00e7 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 00e8 00da | | Load_Top At_Offset_2 00e9 01da | | Execute Vector,Bounds 00ea 00da | | Load_Top At_Offset_2 00eb 01da | | Execute Vector,Bounds 00ec 00da | | Load_Top At_Offset_2 00ed 027f | | Execute Discrete,Equal 00ee 7001 |p | Jump_Nonzero 0xf0 00ef 08e0 | | Execute_Immediate Raise,0xe0 00f0 00cd | | Action Spare6_Action 00f1 027f | | Execute Discrete,Equal 00f2 7001 |p | Jump_Nonzero 0xf4 00f3 08e0 | | Execute_Immediate Raise,0xe0 00f4 00d2 | | Pop_Control Pop_Count_2 00f5 e228 | ( | Load 0x1,0x28 00f6 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 00f7 8227 | ' | Call 0x1,0x27 00f8 e228 | ( | Load 0x1,0x28 00f9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00fa e003 | | Load 0x0,0x3 00fb e228 | ( | Load 0x1,0x28 00fc 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00fd e004 | | Load 0x0,0x4 00fe e005 | | Load 0x0,0x5 00ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0100 e006 | | Load 0x0,0x6 0101 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0102 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0103 c003 | | Store 0x0,0x3 0104 00bc | | Action Signal_Activated 0105 00bb | | Action Signal_Completion 0106 0000 0000 | | .XXX[0x2] 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 00b6 | | Action Make_Scope 010c 020a | | Execute Module,Get_Name 010d 00ca | | Action Exit_Nullary_Function 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 000f | | .DEBUG4 0x0004,0x000f,0x4317,0x0000,0x0001,0x0000 0116 0000 0000 | | .BLANK 0000[0x24] 013a 0004 00a0 | | .XXX[0xc] 013c 0000 0000 | | 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0140 | @| 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]