|
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 14c0 d114 | | .XXX[0x11a] 00e8 d514 d114 | | 00ea dcd4 d114 | | 00ec d4d9 04d8 | | 00ee 294c ccc4 |)L | 00f0 c514 c0c0 | | 00f2 c0e5 0cdd | | 00f4 0d19 1918 | | 00f6 c0d0 e110 | | 00f8 dcc8 c114 | | 00fa c0c9 14c9 | | 00fc 14c0 c0c0 | | 00fe e0dd 0519 | | 0100 18c1 0829 | )| 0102 4ccc c4c5 |L | 0104 14c0 c0c0 | | 0106 e50c e0e0 | | 0108 dd0c c0c0 | | 010a d8c0 c90c | | 010c ccc0 c0d8 | | 010e d0e1 0cc1 | | 0110 14d4 e0c0 | | 0112 c8c0 dce5 | | 0114 04d8 294c | )L| 0116 ccc4 c514 | | 0118 c0c0 c0e5 | | 011a 0ce4 d114 | | 011c c0c0 c518 | | 011e d511 0cc9 | | 0120 04dc c0c0 | | 0122 e0c0 c0c8 | | 0124 c8c1 10d8 | | 0126 d8c1 0515 | | 0128 0829 4ccc | )L | 012a c4c5 14c0 | | 012c c0c0 e50d | | 012e 04c0 c10c | | 0130 d0d5 1919 | | 0132 1918 d8d8 | | 0134 c4c0 cd04 | | 0136 c0d8 d8c0 | | 0138 c10c ccc0 | | 013a c4d4 c50c | | 013c 294c ccc4 |)L | 013e c514 c0c0 | | 0140 c0e5 0d05 | | 0142 0cd0 e10c | | 0144 c108 c0e0 | | 0146 dcd8 d8c0 | | 0148 d0dc c0e4 | | 014a d4d8 c0d4 | | 014c d0d4 c8d0 | | 014e d90d 0c29 | )| 0150 4ccc c4c5 |L | 0152 14c0 c0c0 | | 0154 e50d 08e1 | | 0156 090c dce5 | | 0158 14c0 c0c5 | | 015a 18d5 10d8 | | 015c d911 0d0c | | 015e c10c d0d5 | | 0160 1919 1918 | | 0162 d4c4 294c | )L| 0164 ccc4 c514 | | 0166 c0c0 c0e5 | | 0168 0d0c d0d8 | | 016a dcc4 c8d0 | | 016c e0dc e0c0 | | 016e c0c5 0cd1 | | 0170 1508 e514 | | 0172 c0c0 c4dd | | 0174 08d0 d108 | | 0176 c829 4ccc | )L | 0178 c4c5 14c0 | | 017a c0c0 e50d | | 017c 10c0 d4e0 | | 017e d118 c904 | | 0180 d0c0 c90c | | 0182 c110 d8d8 | | 0184 c0d0 dcc0 | | 0186 e114 d8c0 | | 0188 c914 d8c8 | | 018a 294c ccc4 |)L | 018c c514 c0c0 | | 018e c0e5 0d11 | | 0190 0cd0 e0dc | | 0192 e0c0 c0c5 | | 0194 0cd0 e0d4 | | 0196 d4d1 1508 | | 0198 e514 c0c0 | | 019a c4d8 dcc8 | | 019c c905 0c29 | )| 019e 4ccc c4c5 |L | 01a0 14c0 c0c0 | | 01a2 e50d 14e0 | | 01a4 d4c0 d118 | | 01a6 ccc0 c0d4 | | 01a8 d0e1 0cc1 | | 01aa 14d4 e0c0 | | 01ac c8c0 dce5 | | 01ae 14c0 c0c5 | | 01b0 0d18 294c | )L| 01b2 ccc4 c514 | | 01b4 c0c0 c0e5 | | 01b6 0d18 d118 | | 01b8 d511 0cc8 | | 01ba c4e1 10c0 | | 01bc e0c0 c0cd | | 01be 08d0 d4c0 | | 01c0 c0c0 c8cd | | 01c2 08dd 0d09 | | 01c4 1429 4ccc | )L | 01c6 c4c5 14c0 | | 01c8 c0c0 e510 | | 01ca c0c0 c0c0 | | 01cc c0c4 c0c0 | | 01ce c0d0 cd04 | | 01d0 e0dc ccc0 | | 01d2 c0d4 d0e1 | | 01d4 0cc0 d10d | | 01d6 1514 ccd0 | | 01d8 294c ccc4 |)L | 01da c514 c0c0 | | 01dc c0e5 10c1 | | 01de 0cc8 c114 | | 01e0 c119 1918 | | 01e2 c0d1 14d5 | | 01e4 14d1 14dc | | 01e6 d4d1 14d4 | | 01e8 d919 1918 | | 01ea d0dc c029 | )| 01ec 4ccc c4c5 |L | 01ee 14c0 c0c0 | | 01f0 e510 c4e0 | | 01f2 d0e1 10dc | | 01f4 cce0 c0c0 | | 01f6 c904 d914 | | 01f8 c0c0 c0e0 | | 01fa c8e0 d914 | | 01fc c0c0 c10d | | 01fe 0cc0 294c | )L|