|
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 - metrics - 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 0130 | 0 | .CONST 0x0130 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0013 00c7 | | Action Elaborate_Subprogram
0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0036 | 6 | .CONST 0x0036 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0005 | | .CONST 0x0005 ; Number of locals
0023 INIT_0020:
0023 e001 | | Load 0x0,0x1
0024 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0025 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0026 02c7 | | Declare_Variable Any
0027 00d8 | | Load_Top At_Offset_0
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 e002 | | Load 0x0,0x2
002a e003 | | Load 0x0,0x3
002b 4803 |H | Short_Literal 0x3
002c 0092 010d | | Action Push_String_Extended,0x10d ; ", "
002e e004 | | Load 0x0,0x4
002f 0387 | | Declare_Variable Package
0030 00d8 | | Load_Top At_Offset_0
0031 020f | | Execute Module,Activate
0032 e5ff | | Load 0x2,-0x1
0033 8005 | | Call 0x0,0x5
0034 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0036 BODY_0020:
0036 00be | | Action Activate_Tasks
0037 4800 |H | Short_Literal 0x0
0038 0092 010e | | Action Push_String_Extended,0x10e ; "Internet"
003a e403 | | Load 0x2,0x3
003b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
003c 4800 |H | Short_Literal 0x0
003d 0092 010f | | Action Push_String_Extended,0x10f ; "Ethernet"
003f e403 | | Load 0x2,0x3
0040 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0041 4800 |H | Short_Literal 0x0
0042 0092 0110 | | Action Push_String_Extended,0x110 ; "notes"
0044 e403 | | Load 0x2,0x3
0045 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0046 00db | | Load_Top At_Offset_3
0047 0120 | | Execute Any,Is_Value
0048 6804 |h | Jump_Zero 0x4d
0049 e001 | | Load 0x0,0x1
004a 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
004b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
004c 7801 |x | Jump 0x4e
004d 00db | | Load_Top At_Offset_3
004e e001 | | Load 0x0,0x1
004f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0050 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0051 c402 | | Store 0x2,0x2
0052 00cf | | Action Mark_Auxiliary
0053 7807 |x | Jump 0x5b
0054 8405 | | Call 0x2,0x5
0055 e402 | | Load 0x2,0x2
0056 e001 | | Load 0x0,0x1
0057 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0058 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0059 c402 | | Store 0x2,0x2
005a 00c9 | | Action Pop_Auxiliary_Loop
005b e402 | | Load 0x2,0x2
005c e001 | | Load 0x0,0x1
005d 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
005e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
005f 6ff4 |o | Jump_Zero 0x54
0060 00ce | | Action Pop_Auxiliary
0061 4801 |H | Short_Literal 0x1
0062 00db | | Load_Top At_Offset_3
0063 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0064 e006 | | Load 0x0,0x6
0065 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0066 00db | | Load_Top At_Offset_3
0067 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0079 | y | .CONST 0x0079 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 e001 | | Load 0x0,0x1
0074 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0075 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0076 02c7 | | Declare_Variable Any
0077 00d8 | | Load_Top At_Offset_0
0078 1c00 | | Execute_Immediate Run_Utility,0x0
0079 BODY_0070:
0079 00be | | Action Activate_Tasks
007a 00db | | Load_Top At_Offset_3
007b e007 | | Load 0x0,0x7
007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007d 01df | | Execute Vector,Equal
007e 6822 |h" | Jump_Zero 0xa1
007f 00d8 | | Load_Top At_Offset_0
0080 0120 | | Execute Any,Is_Value
0081 6804 |h | Jump_Zero 0x86
0082 e001 | | Load 0x0,0x1
0083 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0084 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0085 7801 |x | Jump 0x87
0086 00d8 | | Load_Top At_Offset_0
0087 e001 | | Load 0x0,0x1
0088 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0089 1817 | | Execute Package,Field_Execute,Field_Number 0x17
008a c402 | | Store 0x2,0x2
008b 00cf | | Action Mark_Auxiliary
008c 780d |x | Jump 0x9a
008d 00d9 | | Load_Top At_Offset_1
008e e001 | | Load 0x0,0x1
008f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0090 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0091 e001 | | Load 0x0,0x1
0092 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0093 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0094 00d9 | | Load_Top At_Offset_1
0095 e001 | | Load 0x0,0x1
0096 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0097 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0098 c402 | | Store 0x2,0x2
0099 00c9 | | Action Pop_Auxiliary_Loop
009a 00d9 | | Load_Top At_Offset_1
009b e001 | | Load 0x0,0x1
009c 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
009d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
009e 6fee |o | Jump_Zero 0x8d
009f 00ce | | Action Pop_Auxiliary
00a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a1 00db | | Load_Top At_Offset_3
00a2 8005 | | Call 0x0,0x5
00a3 e001 | | Load 0x0,0x1
00a4 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
00a5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e001 | | Load 0x0,0x1
00ac 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
00ad 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ae 0322 | " | Declare_Variable Record
00af e5fe | | Load 0x2,-0x2
00b0 e001 | | Load 0x0,0x1
00b1 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
00b2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b3 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00b4 0119 | | Execute Any,Check_In_Formal_Type
00b5 00d9 | | Load_Top At_Offset_1
00b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b7 4801 |H | Short_Literal 0x1
00b8 00d9 | | Load_Top At_Offset_1
00b9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00ba e5fd | | Load 0x2,-0x3
00bb 00d9 | | Load_Top At_Offset_1
00bc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00bd e5fc | | Load 0x2,-0x4
00be 00d9 | | Load_Top At_Offset_1
00bf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c0 00db | | Load_Top At_Offset_3
00c1 e001 | | Load 0x0,0x1
00c2 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
00c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00c4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d3 | | .CONST 0x00d3 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb e402 | | Load 0x2,0x2
00cc e001 | | Load 0x0,0x1
00cd 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
00ce 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00cf e402 | | Load 0x2,0x2
00d0 e001 | | Load 0x0,0x1
00d1 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
00d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d3 BODY_00c8:
00d3 e5ff | | Load 0x2,-0x1
00d4 e007 | | Load 0x0,0x7
00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d6 01df | | Execute Vector,Equal
00d7 7004 |p | Jump_Nonzero 0xdc
00d8 00d9 | | Load_Top At_Offset_1
00d9 e404 | | Load 0x2,0x4
00da 01df | | Execute Vector,Equal
00db 6830 |h0 | Jump_Zero 0x10c
00dc 00d9 | | Load_Top At_Offset_1
00dd e008 | | Load 0x0,0x8
00de 180f | | Execute Package,Field_Execute,Field_Number 0xf
00df e403 | | Load 0x2,0x3
00e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e1 00d8 | | Load_Top At_Offset_0
00e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00e3 8009 | | Call 0x0,0x9
00e4 e403 | | Load 0x2,0x3
00e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e6 00d8 | | Load_Top At_Offset_0
00e7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e8 00d9 | | Load_Top At_Offset_1
00e9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ea 0f00 | | Execute_Immediate Equal,0x0
00eb 0279 | y | Execute Discrete,And
00ec 00d9 | | Load_Top At_Offset_1
00ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00ee 0f00 | | Execute_Immediate Equal,0x0
00ef 0279 | y | Execute Discrete,And
00f0 6804 |h | Jump_Zero 0xf5
00f1 00ea | | Load_Encached Null_String_Cache
00f2 e403 | | Load 0x2,0x3
00f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f5 00d8 | | Load_Top At_Offset_0
00f6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f7 7004 |p | Jump_Nonzero 0xfc
00f8 0092 0111 | | Action Push_String_Extended,0x111 ; "incomplete"
00fa e403 | | Load 0x2,0x3
00fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00fc 00d8 | | Load_Top At_Offset_0
00fd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00fe 6804 |h | Jump_Zero 0x103
00ff 0092 0112 | | Action Push_String_Extended,0x112 ; "published"
0101 e403 | | Load 0x2,0x3
0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0103 00d8 | | Load_Top At_Offset_0
0104 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0105 6804 |h | Jump_Zero 0x10a
0106 0092 0113 | | Action Push_String_Extended,0x113 ; "permanent"
0108 e403 | | Load 0x2,0x3
0109 1814 | | Execute Package,Field_Execute,Field_Number 0x14
010a e403 | | Load 0x2,0x3
010b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
010c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010d ; --------------------------------------------------------------------------------------
010d ; STRING TABLE
010d ; --------------------------------------------------------------------------------------
010d 0010 | | .STRTAB 0x0010->0x0115 ; ", "
010e 0010 | | .STRTAB 0x0010->0x0116 ; "Internet"
010f 0016 | | .STRTAB 0x0016->0x011a ; "Ethernet"
0110 001c | | .STRTAB 0x001c->0x011e ; "notes"
0111 001f | | .STRTAB 0x001f->0x0120 ; "incomplete"
0112 0027 | ' | .STRTAB 0x0027->0x0125 ; "published"
0113 002e | . | .STRTAB 0x002e->0x012a ; "permanent"
0114 0035 | 5 | .STREND 0x0035->0x012e
0115 2c20 496e |, In| .STRTAB_STRINGS
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 000c | | .DEBUG4 0x0004,0x000c,0xd18a,0x0000,0x0001,0x0000
0136 272b f000 |'+ | .XXX[0x24]
0138 0000 0370 | p|
013a 0000 0000 | |
013c 8449 804e | I N|
013e 57e0 0000 |W |
0140 0000 0001 | |
0142 0760 5a00 | `Z |
0144 0000 0000 | |
0146 e0c8 2016 | |
0148 d2e8 0000 | |
014a 0001 3a83 | : |
014c 004f bfa0 | O |
014e 1400 5000 | P |
0150 2242 4401 |"BD |
0152 3a31 004e |:1 N|
0154 c300 2280 | " |
0156 0013 efe8 | |
0158 0002 800a | |
015a 0000 0000 | | .BLANK 0000[0x5]
015f 013a 8300 | : | .XXX[0x94]
0161 2d80 800e |- |
0163 0000 0000 | |
0165 0003 51bc | Q |
0167 013c c741 | < A|
0169 8ec0 27df | ' |
016b d000 0000 | |
016d 0277 2d00 | w- |
016f 9e31 c027 | 1 '|
0171 9260 0004 | ` |
0173 a0ac 0276 | v|
0175 8900 9e1e | |
0177 8045 8000 | E |
0179 2792 6000 |' ` |
017b 3010 01c0 |0 |
017d 0000 0000 | |
017f 013a 8341 | : A|
0181 1409 c027 | '|
0183 7b38 0002 |{8 |
0185 7b67 0000 |{g |
0187 0020 4208 | B |
0189 0013 c048 | H|
018b 04f0 7b08 | { |
018d 9900 9da2 | |
018f 4000 0000 |@ |
0191 0000 024e | N|
0193 e001 3b44 | ;D|
0195 8000 0000 | |
0197 0009 e31c | |
0199 013d a641 | = A|
019b 1000 27df | ' |
019d d009 ec24 | $|
019f 027a 3300 | z3 |
01a1 9eaa 8000 | |
01a3 13b1 7009 | p |
01a5 e6a4 0000 | |
01a7 0000 dc00 | |
01a9 0000 0021 | !|
01ab 1260 13cd | ` |
01ad 4800 0000 |H |
01af 0000 0041 | A|
01b1 d816 8000 | |
01b3 0000 0020 | |
01b5 0000 0104 | |
01b7 4000 9f7f |@ |
01b9 4027 db00 |@' |
01bb 09ef c402 | |
01bd 7d14 0000 |} |
01bf 4ec5 c027 |N '|
01c1 b670 0000 | p |
01c3 0000 d000 | |
01c5 0000 009d | |
01c7 8b80 4fa2 | O |
01c9 8000 0000 | |
01cb 08b0 0004 | |
01cd ee5b 0000 | [ |
01cf 0000 27c6 | ' |
01d1 8844 9804 | D |
01d3 f6ce 0000 | |
01d5 0000 4f9b | O |
01d7 e000 09dc | |
01d9 b400 0000 | |
01db 8108 2480 | $ |
01dd 0000 0013 | |
01df eb9c 323c | 2<|
01e1 0274 6200 | tb |
01e3 0000 0027 | '|
01e5 66e0 0027 |f '|
01e7 e8d0 0000 | |
01e9 0000 0008 | |
01eb 0013 f668 | h|
01ed 0000 0000 | |
01ef 0000 0018 | |
01f1 0013 fb68 | h|
01f3 0000 0000 | | .BLANK 0000[0x8]
01fb 0013 fe68 | h| .XXX[0x5]
01fd 0002 772d | w-|
01ff 0000 | |