|
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_57d8a8
└─⟦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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 00bf | | Action Accept_Activation 000c 029d 001b | | Declare_Subprogram INIT_0018,For_Outer_Call 000e 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call 0010 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call 0012 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call 0014 BODY_0008: 0014 00bc | | Action Signal_Activated 0015 00bb | | Action Signal_Completion 0016 0000 0000 | | .XXX[0x2] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b 4802 |H | Short_Literal 0x2 001c 00db | | Load_Top At_Offset_3 001d e001 | | Load 0x0,0x1 001e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 001f e002 | | Load 0x0,0x2 0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0021 016f | o | Execute Variant_Record,Equal 0022 683f |h? | Jump_Zero 0x62 0023 e002 | | Load 0x0,0x2 0024 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0025 4800 |H | Short_Literal 0x0 0026 e5ff | | Load 0x2,-0x1 0027 e001 | | Load 0x0,0x1 0028 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0029 e003 | | Load 0x0,0x3 002a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 002b 180e | | Execute Package,Field_Execute,Field_Number 0xe 002c 6833 |h3 | Jump_Zero 0x60 002d 4801 |H | Short_Literal 0x1 002e e5fe | | Load 0x2,-0x2 002f e004 | | Load 0x0,0x4 0030 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0031 4800 |H | Short_Literal 0x0 0032 e005 | | Load 0x0,0x5 0033 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0034 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0035 016f | o | Execute Variant_Record,Equal 0036 6827 |h' | Jump_Zero 0x5e 0037 4800 |H | Short_Literal 0x0 0038 00db | | Load_Top At_Offset_3 0039 e001 | | Load 0x0,0x1 003a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 003b 4800 |H | Short_Literal 0x0 003c e5fe | | Load 0x2,-0x2 003d e004 | | Load 0x0,0x4 003e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 003f e003 | | Load 0x0,0x3 0040 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0041 180f | | Execute Package,Field_Execute,Field_Number 0xf 0042 6819 |h | Jump_Zero 0x5c 0043 4800 |H | Short_Literal 0x0 0044 e5fd | | Load 0x2,-0x3 0045 e006 | | Load 0x0,0x6 0046 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0047 4801 |H | Short_Literal 0x1 0048 e5ff | | Load 0x2,-0x1 0049 e001 | | Load 0x0,0x1 004a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 004b 016f | o | Execute Variant_Record,Equal 004c 680d |h | Jump_Zero 0x5a 004d 4800 |H | Short_Literal 0x0 004e e5fe | | Load 0x2,-0x2 004f e004 | | Load 0x0,0x4 0050 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0051 4800 |H | Short_Literal 0x0 0052 e5ff | | Load 0x2,-0x1 0053 e001 | | Load 0x0,0x1 0054 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0055 4800 |H | Short_Literal 0x0 0056 e004 | | Load 0x0,0x4 0057 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0058 0f00 | | Execute_Immediate Equal,0x0 0059 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 005a 4800 |H | Short_Literal 0x0 005b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 005c 4800 |H | Short_Literal 0x0 005d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 005e 4800 |H | Short_Literal 0x0 005f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0060 4800 |H | Short_Literal 0x0 0061 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0062 4800 |H | Short_Literal 0x0 0063 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0064 0000 0000 | | .BLANK 0000[0x4] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 4802 |H | Short_Literal 0x2 006c 00db | | Load_Top At_Offset_3 006d e001 | | Load 0x0,0x1 006e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 006f e002 | | Load 0x0,0x2 0070 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0071 016f | o | Execute Variant_Record,Equal 0072 683a |h: | Jump_Zero 0xad 0073 e002 | | Load 0x0,0x2 0074 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0075 4800 |H | Short_Literal 0x0 0076 e5ff | | Load 0x2,-0x1 0077 e001 | | Load 0x0,0x1 0078 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0079 e003 | | Load 0x0,0x3 007a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 007b 180e | | Execute Package,Field_Execute,Field_Number 0xe 007c 682e |h. | Jump_Zero 0xab 007d 4801 |H | Short_Literal 0x1 007e 4802 |H | Short_Literal 0x2 007f e006 | | Load 0x0,0x6 0080 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0081 035b | [ | Declare_Type Array,Constrained 0082 0337 | 7 | Declare_Variable Array 0083 e006 | | Load 0x0,0x6 0084 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0085 0322 | " | Declare_Variable Record 0086 4800 |H | Short_Literal 0x0 0087 00d9 | | Load_Top At_Offset_1 0088 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0089 4802 |H | Short_Literal 0x2 008a 00d9 | | Load_Top At_Offset_1 008b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008c 4801 |H | Short_Literal 0x1 008d e5ff | | Load 0x2,-0x1 008e e001 | | Load 0x0,0x1 008f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0090 00d9 | | Load_Top At_Offset_1 0091 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0092 4801 |H | Short_Literal 0x1 0093 00da | | Load_Top At_Offset_2 0094 01d6 | | Execute Vector,Field_Write 0095 e006 | | Load 0x0,0x6 0096 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0097 0322 | " | Declare_Variable Record 0098 4801 |H | Short_Literal 0x1 0099 00d9 | | Load_Top At_Offset_1 009a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009b 4802 |H | Short_Literal 0x2 009c 00d9 | | Load_Top At_Offset_1 009d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009e 4800 |H | Short_Literal 0x0 009f e007 | | Load 0x0,0x7 00a0 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a2 00d9 | | Load_Top At_Offset_1 00a3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00a4 4802 |H | Short_Literal 0x2 00a5 00da | | Load_Top At_Offset_2 00a6 01d6 | | Execute Vector,Field_Write 00a7 e006 | | Load 0x0,0x6 00a8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00a9 0f00 | | Execute_Immediate Equal,0x0 00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ab 4800 |H | Short_Literal 0x0 00ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ad 4800 |H | Short_Literal 0x0 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4802 |H | Short_Literal 0x2 00b4 00db | | Load_Top At_Offset_3 00b5 e001 | | Load 0x0,0x1 00b6 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b7 e002 | | Load 0x0,0x2 00b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b9 016f | o | Execute Variant_Record,Equal 00ba 683a |h: | Jump_Zero 0xf5 00bb e002 | | Load 0x0,0x2 00bc 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00bd 4800 |H | Short_Literal 0x0 00be e5ff | | Load 0x2,-0x1 00bf e001 | | Load 0x0,0x1 00c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00c1 e003 | | Load 0x0,0x3 00c2 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00c3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c4 682e |h. | Jump_Zero 0xf3 00c5 4801 |H | Short_Literal 0x1 00c6 4802 |H | Short_Literal 0x2 00c7 e004 | | Load 0x0,0x4 00c8 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 00c9 035b | [ | Declare_Type Array,Constrained 00ca 0337 | 7 | Declare_Variable Array 00cb e004 | | Load 0x0,0x4 00cc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00cd 0322 | " | Declare_Variable Record 00ce 4800 |H | Short_Literal 0x0 00cf 00d9 | | Load_Top At_Offset_1 00d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d1 4800 |H | Short_Literal 0x0 00d2 00d9 | | Load_Top At_Offset_1 00d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d4 4800 |H | Short_Literal 0x0 00d5 e5ff | | Load 0x2,-0x1 00d6 e001 | | Load 0x0,0x1 00d7 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d8 00d9 | | Load_Top At_Offset_1 00d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00da 4801 |H | Short_Literal 0x1 00db 00da | | Load_Top At_Offset_2 00dc 01d6 | | Execute Vector,Field_Write 00dd e004 | | Load 0x0,0x4 00de 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 00df 0322 | " | Declare_Variable Record 00e0 4801 |H | Short_Literal 0x1 00e1 00d9 | | Load_Top At_Offset_1 00e2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e3 4802 |H | Short_Literal 0x2 00e4 00d9 | | Load_Top At_Offset_1 00e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e6 4800 |H | Short_Literal 0x0 00e7 e005 | | Load 0x0,0x5 00e8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ea 00d9 | | Load_Top At_Offset_1 00eb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ec 4802 |H | Short_Literal 0x2 00ed 00da | | Load_Top At_Offset_2 00ee 01d6 | | Execute Vector,Field_Write 00ef e004 | | Load 0x0,0x4 00f0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00f1 0f00 | | Execute_Immediate Equal,0x0 00f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f3 4800 |H | Short_Literal 0x0 00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f5 4800 |H | Short_Literal 0x0 00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 4802 |H | Short_Literal 0x2 00fc 00db | | Load_Top At_Offset_3 00fd e001 | | Load 0x0,0x1 00fe 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00ff e002 | | Load 0x0,0x2 0100 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0101 016f | o | Execute Variant_Record,Equal 0102 680a |h | Jump_Zero 0x10d 0103 e002 | | Load 0x0,0x2 0104 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0105 4800 |H | Short_Literal 0x0 0106 e5ff | | Load 0x2,-0x1 0107 e001 | | Load 0x0,0x1 0108 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0109 e003 | | Load 0x0,0x3 010a 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 010b 180f | | Execute Package,Field_Execute,Field_Number 0xf 010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010d 4800 |H | Short_Literal 0x0 010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010f 0000 | | .XXX[0x1] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf62,0x0000,0x0001,0x0006 0116 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000 011a 000c 012e | .| .DBG4T 0x000c,0x012e,0x8000,0x0000 011e 001b 0134 | 4| .DBG4T 0x001b,0x0134,0x0002,0x0000 0122 006b 0137 | k 7| .DBG4T 0x006b,0x0137,0x0002,0x0000 0126 00b3 013a | :| .DBG4T 0x00b3,0x013a,0x0002,0x0000 012a 00fb 013d | =| .DBG4T 0x00fb,0x013d,0x0002,0x0000 012e ; -------------------------------------------------------------------------------------- 012e ; Debug chain 012e ; -------------------------------------------------------------------------------------- 012e 0004 0000 | | .DBGLEN 0x0004,0x0000 0130 000c 000e | | .DBGLNO 0x000c,0x000e,0x0010,0x0012 0134 ; -------------------------------------------------------------------------------------- 0134 ; Debug chain 0134 ; -------------------------------------------------------------------------------------- 0134 0000 0001 | | .DBGLEN 0x0000,0x0001 0136 001b | | .DBGLNO 0x001b 0137 ; -------------------------------------------------------------------------------------- 0137 ; Debug chain 0137 ; -------------------------------------------------------------------------------------- 0137 0000 0001 | | .DBGLEN 0x0000,0x0001 0139 006b | k | .DBGLNO 0x006b 013a ; -------------------------------------------------------------------------------------- 013a ; Debug chain 013a ; -------------------------------------------------------------------------------------- 013a 0000 0001 | | .DBGLEN 0x0000,0x0001 013c 00b3 | | .DBGLNO 0x00b3 013d ; -------------------------------------------------------------------------------------- 013d ; Debug chain 013d ; -------------------------------------------------------------------------------------- 013d 0000 0001 | | .DBGLEN 0x0000,0x0001 013f 00fb | | .DBGLNO 0x00fb 0140 0000 0000 | | .BLANK 0000[0xc0]