|
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 |