|
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_05d8fd
└─⟦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 00e0 | | .CONST 0x00e0 ; 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 0056 | V | .CONST 0x0056 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4803 |H | Short_Literal 0x3 000d e001 | | Load 0x0,0x1 000e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 000f 0334 | 4 | Declare_Variable Array,With_Constraint 0010 4801 |H | Short_Literal 0x1 0011 4800 |H | Short_Literal 0x0 0012 00da | | Load_Top At_Offset_2 0013 01d6 | | Execute Vector,Field_Write 0014 4803 |H | Short_Literal 0x3 0015 4801 |H | Short_Literal 0x1 0016 00da | | Load_Top At_Offset_2 0017 01d6 | | Execute Vector,Field_Write 0018 4806 |H | Short_Literal 0x6 0019 4802 |H | Short_Literal 0x2 001a 00da | | Load_Top At_Offset_2 001b 01d6 | | Execute Vector,Field_Write 001c 4801 |H | Short_Literal 0x1 001d 4803 |H | Short_Literal 0x3 001e 00da | | Load_Top At_Offset_2 001f 01d6 | | Execute Vector,Field_Write 0020 0129 | ) | Execute Any,Make_Visible 0021 4801 |H | Short_Literal 0x1 0022 00d9 | | Load_Top At_Offset_1 0023 01cb | | Execute Vector,Append 0024 0129 | ) | Execute Any,Make_Visible 0025 4802 |H | Short_Literal 0x2 0026 00da | | Load_Top At_Offset_2 0027 01cb | | Execute Vector,Append 0028 0129 | ) | Execute Any,Make_Visible 0029 4803 |H | Short_Literal 0x3 002a 00db | | Load_Top At_Offset_3 002b 01cb | | Execute Vector,Append 002c 0129 | ) | Execute Any,Make_Visible 002d 00db | | Load_Top At_Offset_3 002e 4800 |H | Short_Literal 0x0 002f 4801 |H | Short_Literal 0x1 0030 e001 | | Load 0x0,0x1 0031 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0032 0334 | 4 | Declare_Variable Array,With_Constraint 0033 4804 |H | Short_Literal 0x4 0034 4800 |H | Short_Literal 0x0 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4801 |H | Short_Literal 0x1 0038 4801 |H | Short_Literal 0x1 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 01cc | | Execute Vector,Catenate 003c 0129 | ) | Execute Any,Make_Visible 003d 4800 |H | Short_Literal 0x0 003e 0093 008b | | push_full_address INIT_0088 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 038f | | Declare_Type Package,Defined,Visible 0042 e001 | | Load 0x0,0x1 0043 4801 |H | Short_Literal 0x1 0044 00da | | Load_Top At_Offset_2 0045 020e | | Execute Module,Augment_Imports 0046 0386 | | Declare_Variable Package,Visible 0047 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0049 4801 |H | Short_Literal 0x1 004a 4804 |H | Short_Literal 0x4 004b e001 | | Load 0x0,0x1 004c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 004d 035c | \ | Declare_Type Array,Constrained,Visible 004e e001 | | Load 0x0,0x1 004f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0050 0129 | ) | Execute Any,Make_Visible 0051 00bf | | Action Accept_Activation 0052 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0053 00c7 | | Action Elaborate_Subprogram 0054 00db | | Load_Top At_Offset_3 0055 020f | | Execute Module,Activate 0056 BODY_0008: 0056 00bc | | Action Signal_Activated 0057 00bb | | Action Signal_Completion 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b 00da | | Load_Top At_Offset_2 005c e212 | | Load 0x1,0x12 005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005e 017f | | Execute Record,Equal 005f 6803 |h | Jump_Zero 0x63 0060 0092 00c0 | | Action Push_String_Extended,0xc0 ; "IP_Address" 0062 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0063 00da | | Load_Top At_Offset_2 0064 e212 | | Load 0x1,0x12 0065 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0066 017f | | Execute Record,Equal 0067 6803 |h | Jump_Zero 0x6b 0068 0092 00c1 | | Action Push_String_Extended,0xc1 ; "Counter" 006a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006b 00da | | Load_Top At_Offset_2 006c e212 | | Load 0x1,0x12 006d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 006e 017f | | Execute Record,Equal 006f 6803 |h | Jump_Zero 0x73 0070 0092 00c2 | | Action Push_String_Extended,0xc2 ; "Gauge" 0072 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0073 00da | | Load_Top At_Offset_2 0074 e212 | | Load 0x1,0x12 0075 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0076 017f | | Execute Record,Equal 0077 6803 |h | Jump_Zero 0x7b 0078 0092 00c3 | | Action Push_String_Extended,0xc3 ; "Time_Ticks" 007a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007b 00da | | Load_Top At_Offset_2 007c e212 | | Load 0x1,0x12 007d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007e 017f | | Execute Record,Equal 007f 6803 |h | Jump_Zero 0x83 0080 0092 00c4 | | Action Push_String_Extended,0xc4 ; "Opaque" 0082 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0083 00da | | Load_Top At_Offset_2 0084 e001 | | Load 0x0,0x1 0085 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0087 0000 | | .XXX[0x1] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 00be | | .CONST 0x00be ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0011 | | .CONST 0x0011 ; Number of locals 008b INIT_0088: 008b e001 | | Load 0x0,0x1 008c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 008d 0322 | " | Declare_Variable Record 008e 4801 |H | Short_Literal 0x1 008f 00d9 | | Load_Top At_Offset_1 0090 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0091 4800 |H | Short_Literal 0x0 0092 00d9 | | Load_Top At_Offset_1 0093 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0094 0129 | ) | Execute Any,Make_Visible 0095 e001 | | Load 0x0,0x1 0096 1b18 | | Execute Package,Field_Read,Field_Number 0x18 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 4801 |H | Short_Literal 0x1 009c 00d9 | | Load_Top At_Offset_1 009d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009e 0129 | ) | Execute Any,Make_Visible 009f e001 | | Load 0x0,0x1 00a0 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a1 0322 | " | Declare_Variable Record 00a2 4801 |H | Short_Literal 0x1 00a3 00d9 | | Load_Top At_Offset_1 00a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a5 4802 |H | Short_Literal 0x2 00a6 00d9 | | Load_Top At_Offset_1 00a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a8 0129 | ) | Execute Any,Make_Visible 00a9 e001 | | Load 0x0,0x1 00aa 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00ab 0322 | " | Declare_Variable Record 00ac 4801 |H | Short_Literal 0x1 00ad 00d9 | | Load_Top At_Offset_1 00ae 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00af 4803 |H | Short_Literal 0x3 00b0 00d9 | | Load_Top At_Offset_1 00b1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b2 0129 | ) | Execute Any,Make_Visible 00b3 e001 | | Load 0x0,0x1 00b4 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00b5 0322 | " | Declare_Variable Record 00b6 4801 |H | Short_Literal 0x1 00b7 00d9 | | Load_Top At_Offset_1 00b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b9 4804 |H | Short_Literal 0x4 00ba 00d9 | | Load_Top At_Offset_1 00bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bc 0129 | ) | Execute Any,Make_Visible 00bd 00bf | | Action Accept_Activation 00be BODY_0088: 00be 00bc | | Action Signal_Activated 00bf 00bb | | Action Signal_Completion 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; STRING TABLE 00c0 ; -------------------------------------------------------------------------------------- 00c0 000c | | .STRTAB 0x000c->0x00c6 ; "IP_Address" 00c1 0014 | | .STRTAB 0x0014->0x00cb ; "Counter" 00c2 0019 | | .STRTAB 0x0019->0x00ce ; "Gauge" 00c3 001c | | .STRTAB 0x001c->0x00d1 ; "Time_Ticks" 00c4 0024 | $ | .STRTAB 0x0024->0x00d6 ; "Opaque" 00c5 0028 | ( | .STREND 0x0028->0x00d9 00c6 4950 5f41 |IP_A| .STRTAB_STRINGS 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0004 000c | | .DEBUG4 0x0004,0x000c,0xac8c,0x0000,0x0001,0x0000 00e6 c015 e001 | | .XXX[0x11a] 00e8 3bc0 38c0 |; 8 | 00ea 6e7c 0199 |n| | 00ec 0010 5c03 | \ | 00ee 0000 39f0 | 9 | 00f0 0800 0108 | | 00f2 605b 4007 |`[@ | 00f4 9181 6400 | d | 00f6 104a 06bc | J | 00f8 0048 e80c | H | 00fa 6001 1da0 |` | 00fc 21c0 03ea |! | 00fe 0145 0013 | E | 0100 4402 6800 |D h | 0102 51b0 0a40 |Q @| 0104 015c 203c | \ <| 0106 0003 c681 | | 0108 6c00 1078 |l x| 010a 0310 0042 | B| 010c c009 c001 | | 010e 0240 2080 | @ | 0110 03d1 0085 | | 0112 0013 d202 | | 0114 5400 71c8 |T q | 0116 0fd0 0143 | C| 0118 a034 0005 | 4 | 011a 5400 a100 |T | 011c 157e 0000 | ~ | 011e 003b 3014 | ;0 | 0120 7001 06a0 |p | 0122 2300 04a9 |# | 0124 010b 0014 | | 0126 a602 d800 | | 0128 52c8 0ba0 |R | 012a 010d 4024 | @$| 012c 006f 3c80 | o< | 012e 0000 1fe8 | | 0130 04a4 0040 | @| 0132 d80d 3001 | 0 | 0134 0c80 3680 | 6 | 0136 0463 00c3 | c | 0138 0016 4402 | D | 013a 8800 58e0 | X | 013c 12b0 0178 | x| 013e 602b 0007 |`+ | 0140 c901 9f00 | | 0142 111a 022c | ,| 0144 0076 b019 | v | 0146 3001 d660 |0 `| 0148 4a00 03d5 |J | 014a 00f8 0010 | | 014c 9402 f800 | | 014e 4288 08f0 |B | 0150 0112 802e | .| 0152 4004 4d00 |@ M | 0154 0000 1160 | `| 0156 0218 0046 | F| 0158 8808 8001 | | 015a 1e60 2ac0 | `* | 015c 0481 009d | | 015e 0012 4c03 | L | 0160 3400 4b58 |4 KX| 0162 10a0 0136 | 6| 0164 a023 4004 | #@ | 0166 dc80 9200 | | 0168 13f6 0294 | | 016a 0050 a00a | P | 016c 9001 4500 | E | 016e 0000 0520 | | 0170 80e0 0014 | | 0172 8c04 4000 | @ | 0174 5270 0970 |Rp p| 0176 014e e027 | N '| 0178 c005 4100 | A | 017a ce00 1514 | | 017c 0278 0054 | x T| 017e a011 f001 | | 0180 5360 2b40 |S`+@| 0182 0550 8124 | P $| 0184 0015 5c03 | \ | 0186 9400 55a0 | U | 0188 14c0 0158 | X| 018a a037 0005 | 7 | 018c 6a00 a600 |j | 018e 15f0 049c | | 0190 0058 600a | X` | 0192 f001 6240 | b@| 0194 3600 0599 |6 | 0196 014d 0016 | M | 0198 7c03 4400 || D | 019a 5a20 1150 |Z P| 019c 0169 6062 | i`b| 019e 8005 a900 | | 01a0 fa00 16bc | | 01a2 02f0 005b | [| 01a4 580f b001 |X | 01a6 6e20 4880 |n H | 01a8 05c2 00d6 | | 01aa 0017 1406 | | 01ac 7000 5d18 |p ] | 01ae 0b80 0175 | u| 01b0 2036 c005 | 6 | 01b2 e481 6700 | g | 01b4 179e 02b8 | | 01b6 005e a81b | ^ | 01b8 2001 7b60 | {`| 01ba 2c00 05f0 |, | 01bc 811b 0017 | | 01be e002 c800 | | 01c0 5fb0 1460 |_ `| 01c2 017f 802d | -| 01c4 0006 0680 | | 01c6 b500 1826 | &| 01c8 0624 0061 | $ a| 01ca 280c f001 |( | 01cc 8580 5880 | X | 01ce 0620 0000 | | 01d0 0018 9004 | | 01d2 5000 6290 |P b | 01d4 18e0 018b | | 01d6 c04f 0006 | O | 01d8 3380 bd00 |3 | 01da 18da 0330 | 0| 01dc 0063 d00b | c | 01de f001 9000 | | 01e0 4840 0643 |H@ C| 01e2 00d5 0019 | | 01e4 1e03 0800 | | 01e6 64a8 0000 |d | 01e8 0193 6031 | `1| 01ea c006 5100 | Q | 01ec c500 1950 | P| 01ee 0348 0065 | H e| 01f0 7014 2001 |p | 01f2 96a0 4300 | C | 01f4 065d 013e | ] >| 01f6 0019 8203 | | 01f8 2c00 6640 |, f@| 01fa 1570 019c | p | 01fc 006d 8006 | m | 01fe 7300 0000 |s |