|
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 12d3 0005 | | .XXX[0x1d] 00e8 bce0 0000 | | 00ea 0000 a600 | | 00ec 005b 6040 | [`@| 00ee 0000 0004 | | 00f0 9000 0000 | | 00f2 016e 6384 | nc | 00f4 4800 2df6 |H - | 00f6 4000 0000 |@ | 00f8 02de 0600 | | 00fa 5ce0 20c7 |\ | 00fc 2005 6bb8 | k | 00fe 0000 0000 | | 0100 b79c 002d | -| 0102 b020 | | 0103 0000 0000 | | .BLANK 0000[0x7] 010a 05c2 d800 | | .XXX[0x13] 010c 00b7 3180 | 1 | 010e 0000 13b1 | | 0110 7005 c5a8 |p | 0112 0000 0000 | | 0114 5000 0000 |P | 0116 0022 ccc0 | " | 0118 0b9c d800 | | 011a 0000 00b8 | | 011c 7980 |y | 011d 0000 0000 | | .BLANK 0000[0x7] 0124 0009 6980 | i | .XXX[0x1e] 0126 02e6 4200 | B | 0128 0000 0085 | | 012a 0000 2e2d | .-| 012c 4000 0000 |@ | 012e 0258 0000 | X | 0130 0000 b926 | &| 0132 4224 0017 |B$ | 0134 39b0 0000 |9 | 0136 0001 72ec | r | 0138 002e ed30 | . 0| 013a 6390 02b5 |c | 013c dc00 0000 | | 013e 005c c840 | \ @| 0140 1716 a000 | | 0142 0000 0000 | | .BLANK 0000[0x6] 0148 0002 e93e | >| .XXX[0x13] 014a 0000 5c93 | \ | 014c 0000 0009 | | 014e d8b8 02ea | | 0150 a600 0000 | | 0152 0028 0000 | ( | 0154 0000 1166 | f| 0156 6005 de10 |` | 0158 0000 0000 | | 015a 5d37 |]7 | 015b 0000 0000 | | .BLANK 0000[0x8] 0163 04b4 c001 | | .XXX[0x1d] 0165 770a 0000 |w | 0167 0000 1600 | | 0169 0017 5530 | U0| 016b 0000 0001 | | 016d 3400 0000 |4 | 016f 005d 8d61 | ] a| 0171 1200 0bbc | | 0173 2000 0000 | | 0175 00bb 6a80 | j | 0177 17b5 2831 | (1| 0179 c801 5aee | Z | 017b 0000 0000 | | 017d 2ee1 400b |. @ | 017f aa98 | | 0180 0000 0000 | | .BLANK 0000[0x7] 0187 0178 8800 | x | .XXX[0x13] 0189 002e c6a0 | . | 018b 0000 04ec | | 018d 5c01 793c |\ y<| 018f 0000 0000 | | 0191 1400 0000 | | 0193 0008 b330 | 0| 0195 02f6 da00 | | 0197 0000 002f | /| 0199 18a0 | | 019a 0000 0000 | | .BLANK 0000[0x7] 01a1 0002 5a60 | Z`| .XXX[0x38] 01a3 00bd 7980 | y | 01a5 0000 001a | | 01a7 0000 0bc9 | | 01a9 e000 0000 | | 01ab 009e 0000 | | 01ad 0000 2f43 | /C| 01af d089 0005 | | 01b1 edb4 0000 | | 01b3 0000 5eaf | ^ | 01b5 800b f9dc | | 01b7 18e4 00ad | | 01b9 7700 0000 |w | 01bb 0017 af30 | 0| 01bd 05e4 f000 | | 01bf 0000 0000 | | 01c1 0000 799b | y | 01c3 0000 0000 | | 01c5 0000 be38 | 8| 01c7 8000 17a1 | | 01c9 e000 0002 | | 01cb 762e 00be |v. | 01cd 9280 0000 | | 01cf 000a 0000 | | 01d1 0000 0459 | Y| 01d3 9801 7f56 | V| 01d5 0000 0000 | | 01d7 17ca e000 | | 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 012d 3000 | -0 | .XXX[0x20] 01e2 5fb7 0000 |_ | 01e4 0000 0ba0 | | 01e6 0005 f494 | | 01e8 0000 0000 | | 01ea 5100 0000 |Q | 01ec 0017 e078 | x| 01ee 4480 02fe |D | 01f0 ac00 0000 | | 01f2 002f d4e0 | / | 01f4 060c 920c | | 01f6 7200 56bb |r V | 01f8 8000 0000 | | 01fa 0bf6 e002 | | 01fc fa4a 0000 | J | 01fe 0000 0000 | |