|
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_0ea8df
└─⟦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 0090 | | .CONST 0x0090 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 001d | | .CONST 0x001d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0002 | | .CONST 0x0002 ; Number of locals
001b INIT_0018:
001b 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
001d BODY_0018:
001d 4801 |H | Short_Literal 0x1
001e 4806 |H | Short_Literal 0x6
001f 00e9 | | Load_Encached String_Cache
0020 0334 | 4 | Declare_Variable Array,With_Constraint
0021 5006 |P | Indirect_Literal Any,0x28,{0x5443502f, 0x49502020}
0022 e002 | | Load 0x0,0x2
0023 180d | | Execute Package,Field_Execute,Field_Number 0xd
0024 6801 |h | Jump_Zero 0x26
0025 8402 | | Call 0x2,0x2
0026 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0027 0000 | | .XXX[0x1]
0028 5443 502f |TCP/| .LITERAL {0x5443502f, 0x49502020}
002c 0000 0000 | | .BLANK 0000[0x4]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 003f | ? | .CONST 0x003f ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4800 |H | Short_Literal 0x0
0034 4801 |H | Short_Literal 0x1
0035 0092 004c | L| Action Push_String_Extended,0x4c ; "!machine.ethernet_host_id"
0037 0092 004d | M| Action Push_String_Extended,0x4d ; "!machine.tcp_ip_host_id"
0039 0092 004e | N| Action Push_String_Extended,0x4e ; "!Tools.Networking."
003b 4801 |H | Short_Literal 0x1
003c 4801 |H | Short_Literal 0x1
003d 8003 | | Call 0x0,0x3
003e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
003f TRAP_0030:
003f 0007 | | Action Break_Optional
0040 4801 |H | Short_Literal 0x1
0041 4801 |H | Short_Literal 0x1
0042 e004 | | Load 0x0,0x4
0043 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0044 0092 004f | O| Action Push_String_Extended,0x4f ; "Unhandled_Exception"
0046 4802 |H | Short_Literal 0x2
0047 0092 0050 | P| Action Push_String_Extended,0x50 ; "!Machine.Initialize_Network.TCP_IP_Boot"
0049 e005 | | Load 0x0,0x5
004a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
004b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004c ; --------------------------------------------------------------------------------------
004c ; STRING TABLE
004c ; --------------------------------------------------------------------------------------
004c 000c | | .STRTAB 0x000c->0x0052 ; "!machine.ethernet_host_id"
004d 0023 | # | .STRTAB 0x0023->0x005e ; "!machine.tcp_ip_host_id"
004e 0038 | 8 | .STRTAB 0x0038->0x006a ; "!Tools.Networking."
004f 0048 | H | .STRTAB 0x0048->0x0073 ; "Unhandled_Exception"
0050 0059 | Y | .STRTAB 0x0059->0x007c ; "!Machine.Initialize_Network.TCP_IP_Boot"
0051 007e | ~ | .STREND 0x007e->0x0090
0052 216d 6163 |!mac| .STRTAB_STRINGS
0090 ; --------------------------------------------------------------------------------------
0090 ; Debug Table
0090 ; --------------------------------------------------------------------------------------
0090 0004 0002 | | .DEBUG4 0x0004,0x0002,0x06d4,0x0000,0x0001,0x0000
0096 3b09 000d |; | .XXX[0x16a]
0098 7769 7468 |with|
009a 204c 6962 | Lib|
009c 7261 7279 |rary|
009e 3b0d 0010 |; |
00a0 2d2d 2f20 |--/ |
00a2 6966 204d |if M|
00a4 4149 4c20 |AIL |
00a6 7468 656e |then|
00a8 1000 0f2d | -|
00aa 2d2f 2f20 |-// |
00ac 7769 7468 |with|
00ae 204d 4149 | MAI|
00b0 4c3b 0f00 |L; |
00b2 0b2d 2d2f | --/|
00b4 2065 6e64 | end|
00b6 2069 663b | if;|
00b8 0b00 0e77 | w|
00ba 6974 6820 |ith |
00bc 4f70 6572 |Oper|
00be 6174 6f72 |ator|
00c0 3b0e 000b |; |
00c2 7769 7468 |with|
00c4 2051 7565 | Que|
00c6 7565 3b0b |ue; |
00c8 000c 7769 | wi|
00ca 7468 2053 |th S|
00cc 6372 6970 |crip|
00ce 743b 0c00 |t; |
00d0 132d 2d2f | --/|
00d2 2069 6620 | if |
00d4 5350 454c |SPEL|
00d6 4c45 5220 |LER |
00d8 7468 656e |then|
00da 1300 122d | -|
00dc 2d2f 2f20 |-// |
00de 7769 7468 |with|
00e0 2053 5045 | SPE|
00e2 4c4c 4552 |LLER|
00e4 3b12 000b |; |
00e6 2d2d 2f20 |--/ |
00e8 656e 6420 |end |
00ea 6966 3b0b |if; |
00ec 0016 7769 | wi|
00ee 7468 2053 |th S|
00f0 7973 7465 |yste|
00f2 6d5f 5574 |m_Ut|
00f4 696c 6974 |ilit|
00f6 6965 733b |ies;|
00f8 1600 0a77 | w|
00fa 6974 6820 |ith |
00fc 5465 7874 |Text|
00fe 3b0a 000a |; |
0100 7769 7468 |with|
0102 2057 6861 | Wha|
0104 743b 0a00 |t; |
0106 1577 6974 | wit|
0108 6820 5674 |h Vt|
010a 3130 305f |100_|
010c 4b65 795f |Key_|
010e 4e61 6d65 |Name|
0110 733b 1500 |s; |
0112 0000 003b | ;|
0114 2d2d 2d2d |----|
0116 5468 6973 |This|
0118 2066 696c | fil|
011a 6520 6765 |e ge|
011c 6e65 7261 |nera|
011e 7465 6420 |ted |
0120 6f6e 3a20 |on: |
0122 4465 6365 |Dece|
0124 6d62 6572 |mber|
0126 2031 332c | 13,|
0128 2031 3938 | 198|
012a 3920 6174 |9 at|
012c 2039 3a30 | 9:0|
012e 393a 3131 |9:11|
0130 2041 4d3b | AM;|
0132 0083 2d2d | --|
0134 2d2d 4672 |--Fr|
0136 6f6d 2052 |om R|
0138 6174 696f |atio|
013a 6e61 6c20 |nal |
013c 4465 7665 |Deve|
013e 6c6f 706d |lopm|
0140 656e 7420 |ent |
0142 736f 7572 |sour|
0144 6365 2066 |ce f|
0146 696c 6520 |ile |
0148 2145 4e56 |!ENV|
014a 4952 4f4e |IRON|
014c 4d45 4e54 |MENT|
014e 2e45 4449 |.EDI|
0150 544f 525f |TOR_|
0152 4b45 5953 |KEYS|
0154 2e52 4556 |.REV|
0156 3130 5f57 |10_W|
0158 4f52 4b49 |ORKI|
015a 4e47 2e55 |NG.U|
015c 4e49 5453 |NITS|
015e 2e43 5245 |.CRE|
0160 4154 455f |ATE_|
0162 434f 4d4d |COMM|
0164 414e 4453 |ANDS|
0166 5f46 494c |_FIL|
0168 4553 2e4d |ES.M|
016a 4153 5445 |ASTE|
016c 525f 4b45 |R_KE|
016e 5953 5f46 |YS_F|
0170 494c 4527 |ILE'|
0172 5628 3438 |V(48|
0174 2983 0010 |) |
0176 2d2d 2d2d |----|
0178 4279 2075 |By u|
017a 7365 723a |ser:|
017c 2047 4542 | GEB|
017e 1000 1c2d | -|
0180 2d2d 2d46 |---F|
0182 6f72 2074 |or t|
0184 6572 6d69 |ermi|
0186 6e61 6c20 |nal |
0188 7479 7065 |type|
018a 3a20 5654 |: VT|
018c 3130 301c |100 |
018e 0000 0000 | |
0190 1b70 726f | pro|
0192 6365 6475 |cedu|
0194 7265 2056 |re V|
0196 7431 3030 |t100|
0198 5f43 6f6d |_Com|
019a 6d61 6e64 |mand|
019c 7320 6973 |s is|
019e 1b00 0000 | |
01a0 0018 2020 | |
01a2 2020 7573 | us|
01a4 6520 5674 |e Vt|
01a6 3130 305f |100_|
01a8 4b65 795f |Key_|
01aa 4e61 6d65 |Name|
01ac 733b 1800 |s; |
01ae 0000 0030 | 0|
01b0 2020 2020 | |
01b2 7479 7065 |type|
01b4 2049 6e74 | Int|
01b6 656e 7420 |ent |
01b8 6973 2028 |is (|
01ba 496e 7465 |Inte|
01bc 7272 7570 |rrup|
01be 742c 2050 |t, P|
01c0 726f 6d70 |romp|
01c2 742c 2045 |t, E|
01c4 7865 6375 |xecu|
01c6 7465 293b |te);|
01c8 3000 0000 |0 |
01ca 0014 2020 | |
01cc 2020 4163 | Ac|
01ce 7469 6f6e |tion|
01d0 203a 2049 | : I|
01d2 6e74 656e |nten|
01d4 743b 1400 |t; |
01d6 0000 0033 | 3|
01d8 2020 2020 | |
01da 4b65 7931 |Key1|
01dc 2c20 4b65 |, Ke|
01de 7932 2c20 |y2, |
01e0 4b65 7933 |Key3|
01e2 2c20 4b65 |, Ke|
01e4 7934 2c20 |y4, |
01e6 4b65 7935 |Key5|
01e8 2c20 4b65 |, Ke|
01ea 7936 203a |y6 :|
01ec 204b 6579 | Key|
01ee 5f4e 616d |_Nam|
01f0 6573 3b33 |es;3|
01f2 0000 0000 | |
01f4 0562 6567 | beg|
01f6 696e 0500 |in |
01f8 0000 000b | |
01fa 2020 2020 | |
01fc 6361 7365 |case|
01fe 2041 630b | Ac |