|
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_191cd7
└─⟦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 0158 | X | .CONST 0x0158 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00da | | .CONST 0x00da ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0032 | 2 | .CONST 0x0032 ; Number of locals 000b INIT_0008: 000b e002 | | Load 0x0,0x2 000c 00d8 | | Load_Top At_Offset_0 000d e003 | | Load 0x0,0x3 000e 00d8 | | Load_Top At_Offset_0 000f e002 | | Load 0x0,0x2 0010 00d8 | | Load_Top At_Offset_0 0011 02a0 | | Declare_Subprogram Null_Subprogram 0012 4806 |H | Short_Literal 0x6 0013 032e | . | Declare_Type Record,Defined,Visible 0014 e004 | | Load 0x0,0x4 0015 0266 | f | Execute Discrete,Bounds 0016 00da | | Load_Top At_Offset_2 0017 02a0 | | Declare_Subprogram Null_Subprogram 0018 4801 |H | Short_Literal 0x1 0019 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 001a 00d8 | | Load_Top At_Offset_0 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4818 |H | Short_Literal 0x18 001d 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 001e 00d8 | | Load_Top At_Offset_0 001f 0221 | ! | Execute Access,Allow_Deallocate 0020 0007 | | Action Break_Optional 0021 00da | | Load_Top At_Offset_2 0022 0322 | " | Declare_Variable Record 0023 4800 |H | Short_Literal 0x0 0024 00d9 | | Load_Top At_Offset_1 0025 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0026 4800 |H | Short_Literal 0x0 0027 00d9 | | Load_Top At_Offset_1 0028 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0029 4800 |H | Short_Literal 0x0 002a 00d9 | | Load_Top At_Offset_1 002b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 002c 4800 |H | Short_Literal 0x0 002d 00d9 | | Load_Top At_Offset_1 002e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 002f 4800 |H | Short_Literal 0x0 0030 00d9 | | Load_Top At_Offset_1 0031 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0032 4800 |H | Short_Literal 0x0 0033 00d9 | | Load_Top At_Offset_1 0034 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0035 0129 | ) | Execute Any,Make_Visible 0036 0007 | | Action Break_Optional 0037 a005 | | Store_Unchecked 0x0,0x5 0038 00c6 | | Action Check_Subprogram_Elaborated 0039 00da | | Load_Top At_Offset_2 003a 0129 | ) | Execute Any,Make_Visible 003b 00da | | Load_Top At_Offset_2 003c 0129 | ) | Execute Any,Make_Visible 003d e006 | | Load 0x0,0x6 003e 0129 | ) | Execute Any,Make_Visible 003f e007 | | Load 0x0,0x7 0040 0129 | ) | Execute Any,Make_Visible 0041 4800 |H | Short_Literal 0x0 0042 0129 | ) | Execute Any,Make_Visible 0043 4808 |H | Short_Literal 0x8 0044 4800 |H | Short_Literal 0x0 0045 4801 |H | Short_Literal 0x1 0046 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 0048 03fb | | Declare_Type Discrete,Defined,Visible,With_Size 0049 0007 | | Action Break_Optional 004a e002 | | Load 0x0,0x2 004b 00d8 | | Load_Top At_Offset_0 004c 02a0 | | Declare_Subprogram Null_Subprogram 004d 4802 |H | Short_Literal 0x2 004e 032e | . | Declare_Type Record,Defined,Visible 004f e004 | | Load 0x0,0x4 0050 0266 | f | Execute Discrete,Bounds 0051 00da | | Load_Top At_Offset_2 0052 02a0 | | Declare_Subprogram Null_Subprogram 0053 4801 |H | Short_Literal 0x1 0054 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0055 00d8 | | Load_Top At_Offset_0 0056 02a0 | | Declare_Subprogram Null_Subprogram 0057 4818 |H | Short_Literal 0x18 0058 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 0059 00d8 | | Load_Top At_Offset_0 005a 0221 | ! | Execute Access,Allow_Deallocate 005b 0007 | | Action Break_Optional 005c 00da | | Load_Top At_Offset_2 005d 0322 | " | Declare_Variable Record 005e 4800 |H | Short_Literal 0x0 005f 00d9 | | Load_Top At_Offset_1 0060 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0061 4800 |H | Short_Literal 0x0 0062 00d9 | | Load_Top At_Offset_1 0063 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0064 0129 | ) | Execute Any,Make_Visible 0065 0007 | | Action Break_Optional 0066 a005 | | Store_Unchecked 0x0,0x5 0067 00c6 | | Action Check_Subprogram_Elaborated 0068 00da | | Load_Top At_Offset_2 0069 0129 | ) | Execute Any,Make_Visible 006a 00da | | Load_Top At_Offset_2 006b 0129 | ) | Execute Any,Make_Visible 006c e008 | | Load 0x0,0x8 006d 0129 | ) | Execute Any,Make_Visible 006e e009 | | Load 0x0,0x9 006f 0129 | ) | Execute Any,Make_Visible 0070 4800 |H | Short_Literal 0x0 0071 0129 | ) | Execute Any,Make_Visible 0072 4808 |H | Short_Literal 0x8 0073 4800 |H | Short_Literal 0x0 0074 4802 |H | Short_Literal 0x2 0075 029f 010b | | Declare_Subprogram INIT_0108,For_Call 0077 03fb | | Declare_Type Discrete,Defined,Visible,With_Size 0078 0007 | | Action Break_Optional 0079 e002 | | Load 0x0,0x2 007a 00d8 | | Load_Top At_Offset_0 007b e003 | | Load 0x0,0x3 007c 00d8 | | Load_Top At_Offset_0 007d 02a0 | | Declare_Subprogram Null_Subprogram 007e 4804 |H | Short_Literal 0x4 007f 032e | . | Declare_Type Record,Defined,Visible 0080 e004 | | Load 0x0,0x4 0081 0266 | f | Execute Discrete,Bounds 0082 00da | | Load_Top At_Offset_2 0083 02a0 | | Declare_Subprogram Null_Subprogram 0084 4801 |H | Short_Literal 0x1 0085 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0086 00d8 | | Load_Top At_Offset_0 0087 02a0 | | Declare_Subprogram Null_Subprogram 0088 4818 |H | Short_Literal 0x18 0089 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 008a 00d8 | | Load_Top At_Offset_0 008b 0221 | ! | Execute Access,Allow_Deallocate 008c 0007 | | Action Break_Optional 008d 00da | | Load_Top At_Offset_2 008e 0322 | " | Declare_Variable Record 008f 4800 |H | Short_Literal 0x0 0090 00d9 | | Load_Top At_Offset_1 0091 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0092 4800 |H | Short_Literal 0x0 0093 00d9 | | Load_Top At_Offset_1 0094 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0095 4800 |H | Short_Literal 0x0 0096 00d9 | | Load_Top At_Offset_1 0097 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0098 4800 |H | Short_Literal 0x0 0099 00d9 | | Load_Top At_Offset_1 009a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 009b 0129 | ) | Execute Any,Make_Visible 009c 0007 | | Action Break_Optional 009d a005 | | Store_Unchecked 0x0,0x5 009e 00c6 | | Action Check_Subprogram_Elaborated 009f 00da | | Load_Top At_Offset_2 00a0 0129 | ) | Execute Any,Make_Visible 00a1 00da | | Load_Top At_Offset_2 00a2 0129 | ) | Execute Any,Make_Visible 00a3 e00a | | Load 0x0,0xa 00a4 0129 | ) | Execute Any,Make_Visible 00a5 e00b | | Load 0x0,0xb 00a6 0129 | ) | Execute Any,Make_Visible 00a7 4800 |H | Short_Literal 0x0 00a8 0129 | ) | Execute Any,Make_Visible 00a9 e002 | | Load 0x0,0x2 00aa 00d8 | | Load_Top At_Offset_0 00ab e002 | | Load 0x0,0x2 00ac 00d8 | | Load_Top At_Offset_0 00ad 02a0 | | Declare_Subprogram Null_Subprogram 00ae 4804 |H | Short_Literal 0x4 00af 032e | . | Declare_Type Record,Defined,Visible 00b0 e004 | | Load 0x0,0x4 00b1 0266 | f | Execute Discrete,Bounds 00b2 00da | | Load_Top At_Offset_2 00b3 02a0 | | Declare_Subprogram Null_Subprogram 00b4 4801 |H | Short_Literal 0x1 00b5 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00b6 00d8 | | Load_Top At_Offset_0 00b7 02a0 | | Declare_Subprogram Null_Subprogram 00b8 4818 |H | Short_Literal 0x18 00b9 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 00ba 00d8 | | Load_Top At_Offset_0 00bb 0221 | ! | Execute Access,Allow_Deallocate 00bc 0007 | | Action Break_Optional 00bd 00da | | Load_Top At_Offset_2 00be 0322 | " | Declare_Variable Record 00bf 4800 |H | Short_Literal 0x0 00c0 00d9 | | Load_Top At_Offset_1 00c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c2 4800 |H | Short_Literal 0x0 00c3 00d9 | | Load_Top At_Offset_1 00c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c5 4800 |H | Short_Literal 0x0 00c6 00d9 | | Load_Top At_Offset_1 00c7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c8 4800 |H | Short_Literal 0x0 00c9 00d9 | | Load_Top At_Offset_1 00ca 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00cb 0129 | ) | Execute Any,Make_Visible 00cc 0007 | | Action Break_Optional 00cd a005 | | Store_Unchecked 0x0,0x5 00ce 00c6 | | Action Check_Subprogram_Elaborated 00cf 00da | | Load_Top At_Offset_2 00d0 0129 | ) | Execute Any,Make_Visible 00d1 00da | | Load_Top At_Offset_2 00d2 0129 | ) | Execute Any,Make_Visible 00d3 e00c | | Load 0x0,0xc 00d4 0129 | ) | Execute Any,Make_Visible 00d5 e00d | | Load 0x0,0xd 00d6 0129 | ) | Execute Any,Make_Visible 00d7 4800 |H | Short_Literal 0x0 00d8 0129 | ) | Execute Any,Make_Visible 00d9 00bf | | Action Accept_Activation 00da BODY_0008: 00da 00bc | | Action Signal_Activated 00db 00bb | | Action Signal_Completion 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 4607 |F | Jump_Case 0x8 00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00e5 7807 |x | Jump 0xed ; case 0x1 00e6 780a |x | Jump 0xf1 ; case 0x2 00e7 780e |x | Jump 0xf6 ; case 0x3 00e8 7811 |x | Jump 0xfa ; case 0x4 00e9 7812 |x | Jump 0xfc ; case 0x5 00ea 7813 |x | Jump 0xfe ; case 0x6 00eb 7816 |x | Jump 0x102 ; case 0x7 00ec 4302 |C | .XXX[0x1] 00ed 00da | | Load_Top At_Offset_2 00ee 0091 012e | .| Action Push_String_Extended_Indexed,0x12e ; "COORD_MODE_ORIGIN" 00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f1 00db | | Load_Top At_Offset_3 00f2 00db | | Load_Top At_Offset_3 00f3 00e0 | | Load_Encached Standard_Cache 00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 00da | | Load_Top At_Offset_2 00f7 00e0 | | Load_Encached Standard_Cache 00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00fa 00db | | Load_Top At_Offset_3 00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fc 00db | | Load_Top At_Offset_3 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe e216 | | Load 0x1,0x16 00ff 00dc | | Load_Top At_Offset_4 0100 0267 | g | Execute Discrete,Predecessor 0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0102 e216 | | Load 0x1,0x16 0103 00dc | | Load_Top At_Offset_4 0104 0268 | h | Execute Discrete,Successor 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 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 4607 |F | Jump_Case 0x8 010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 010d 7807 |x | Jump 0x115 ; case 0x1 010e 780a |x | Jump 0x119 ; case 0x2 010f 780e |x | Jump 0x11e ; case 0x3 0110 7811 |x | Jump 0x122 ; case 0x4 0111 7812 |x | Jump 0x124 ; case 0x5 0112 7813 |x | Jump 0x126 ; case 0x6 0113 7816 |x | Jump 0x12a ; case 0x7 0114 4302 |C | .XXX[0x1] 0115 00da | | Load_Top At_Offset_2 0116 0091 0130 | 0| Action Push_String_Extended_Indexed,0x130 ; "COMPLEX" 0118 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0119 00db | | Load_Top At_Offset_3 011a 00db | | Load_Top At_Offset_3 011b 00e0 | | Load_Encached Standard_Cache 011c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 011e 00da | | Load_Top At_Offset_2 011f 00e0 | | Load_Encached Standard_Cache 0120 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0121 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0122 00db | | Load_Top At_Offset_3 0123 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0124 00db | | Load_Top At_Offset_3 0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0126 e220 | | Load 0x1,0x20 0127 00dc | | Load_Top At_Offset_4 0128 0267 | g | Execute Discrete,Predecessor 0129 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012a e220 | | Load 0x1,0x20 012b 00dc | | Load_Top At_Offset_4 012c 0268 | h | Execute Discrete,Successor 012d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012e ; -------------------------------------------------------------------------------------- 012e ; STRING TABLE 012e ; -------------------------------------------------------------------------------------- 012e 000c | | .STRTAB 0x000c->0x0134 ; "COORD_MODE_ORIGIN" 012f 001b | | .STRTAB 0x001b->0x013c ; "COORD_MODE_PREVIOUS" 0130 002c | , | .STRTAB 0x002c->0x0146 ; "COMPLEX" 0131 0031 | 1 | .STRTAB 0x0031->0x0149 ; "NONCONVEX" 0132 0038 | 8 | .STRTAB 0x0038->0x014e ; "CONVEX" 0133 003c | < | .STREND 0x003c->0x0151 0134 434f 4f52 |COOR| .STRTAB_STRINGS 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug Table 0158 ; -------------------------------------------------------------------------------------- 0158 0004 0000 | | .DEBUG4 0x0004,0x0000,0x48d2,0x0000,0x0001,0x0003 015e 000b 016a | j| .DBG4T 0x000b,0x016a,0x8000,0x0000 0162 00e3 0000 | | .DBG4T 0x00e3,0x0000,0x0005,0x0000 0166 010b 0000 | | .DBG4T 0x010b,0x0000,0x0005,0x0000 016a ; -------------------------------------------------------------------------------------- 016a ; Debug chain 016a ; -------------------------------------------------------------------------------------- 016a 0020 0000 | | .DBGLEN 0x0020,0x0000 016c 000b 0014 | | .DBGLNO 0x000b,0x0014,0x001a,0x0020,0x0021,0x0036,0x0037,0x0043,0x0049,0x004a,0x004f,0x0055,0x005b,0x005c,0x0065,0x0066,0x0072,0x0078,0x0079,0x0080,0x0086,0x008c,0x008d,0x009c,0x009d,0x00a9,0x00b0,0x00b6,0x00bc,0x00bd,0x00cc,0x00cd 018c 0000 0000 | | .BLANK 0000[0x74]