DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦2342b795e⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 0028       | (  |		.CONST	0x0028								; 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 001b       |    |		.CONST	0x001b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
001d e002       |    |		Load	0x0,0x2
001e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
001f e003       |    |		Load	0x0,0x3
0020 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0021 e004       |    |		Load	0x0,0x4
0022 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0023 e005       |    |		Load	0x0,0x5
0024 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0025 e006       |    |		Load	0x0,0x6
0026 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0027 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0028 ; --------------------------------------------------------------------------------------
0028 ; Debug Table
0028 ; --------------------------------------------------------------------------------------
0028 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb4c,0x0000,0x0001,0x0000
002e 0000 003f  |   ?|		.XXX[0x1a]
0030 0018 84fe  |    |
0032 0800 0110  |    |
0034 0000 021e  |    |
0036 0000 005e  |   ^|
0038 0001 0404  |    |
003a 0000 0016  |    |
003c 001d a009  |    |
003e 0000 13b2  |    |
0040 0001 0404  |    |
0042 0800 0280  |    |
0044 0000 0008  |    |
0046 0000 0008  |    |
0048 0000 0000  |    |		.BLANK	0000[0x7]
004f 00ff 0001  |    |		.XXX[0x11]
0051 0404 0000  |    |
0053 0016 001d  |    |
0055 a009 0000  |    |
0057 13b2 0001  |    |
0059 0404 0800  |    |
005b 0280 0000  |    |
005d 0010 0000  |    |
005f 0010       |    |
0060 0000 0000  |    |		.BLANK	0000[0x7]
0067 ffff 0000  |    |		.XXX[0x5]
0069 0000 0000  |    |
006b 0076       | v  |
006c 0000 0000  |    |		.BLANK	0000[0x4]
0070 0018 7cfe  |  | |		.XXX[0x26]
0072 c000 0796  |    |
0074 0000 0040  |   @|
0076 0000 0040  |   @|
0078 0018 80fe  |    |
007a 8000 0002  |    |
007c 00b9 d014  |    |
007e 0000 3731  |  71|
0080 0018 84fe  |    |
0082 8000 000a  |    |
0084 0018 80fe  |    |
0086 0000 0000  |    |
0088 6527 2027  |e' '|
008a 3d3e 2720  |=>' |
008c 5231 3030  |R100|
008e 305f 5061  |0_Pa|
0090 7468 6e61  |thna|
0092 6d65 3200  |me2 |
0094 4d2d 2d20  |M-- |
0096 2020 2020  |    |		.BLANK	2020[0x8]
009e 203a 3a3d  | ::=|		.XXX[0x20]
00a0 2027 576f  | 'Wo|
00a2 726b 7374  |rkst|
00a4 6174 696f  |atio|
00a6 6e27 2027  |n' '|
00a8 3d3e 2720  |=>' |
00aa 486f 7374  |Host|
00ac 5f4e 616d  |_Nam|
00ae 6520 272c  |e ',|
00b0 2720 2750  |' 'P|
00b2 6174 6827  |ath'|
00b4 2027 3d3e  | '=>|
00b6 2720 5061  |' Pa|
00b8 7468 6e61  |thna|
00ba 6d65 4d00  |meM |
00bc 352d 2d20  |5-- |
00be 2020 2020  |    |		.BLANK	2020[0xc]
00ca 2027 5375  | 'Su|		.XXX[0x1d]
00cc 6666 6978  |ffix|
00ce 2720 273d  |' '=|
00d0 3e27 2053  |>' S|
00d2 7566 6669  |uffi|
00d4 785f 4e61  |x_Na|
00d6 6d65 3500  |me5 |
00d8 172d 2d20  | -- |
00da 2044 6576  | Dev|
00dc 6963 655f  |ice_|
00de 4f70 7469  |Opti|
00e0 6f6e 7320  |ons |
00e2 203a 3a3d  | ::=|
00e4 1700 282d  |  (-|
00e6 2d20       |-   |
00e7 2020 2020  |    |		.BLANK	2020[0x8]
00ef 203a 3a3d  | ::=|		.XXX[0xd]
00f1 2027 2c27  | ','|
00f3 2027 4c61  | 'La|
00f5 7365 725f  |ser_|
00f7 436f 6d6d  |Comm|
00f9 2728 003b  |'( ;|
00fb 2d2d       |--  |
00fc 2020 2020  |    |		.BLANK	2020[0xb]
0107 2820 272c  |( ',|		.XXX[0x2e]
0109 2720 2827  |' ('|
010b 7e27 2920  |~') |
010d 2752 6576  |'Rev|
010f 6572 7365  |erse|
0111 5f4f 7574  |_Out|
0113 7075 745f  |put_|
0115 5061 6765  |Page|
0117 7327 293b  |s');|
0119 0002 2d2d  |  --|
011b 0200 222d  |  "-|
011d 2d20 2050  |-  P|
011f 7269 6e74  |rint|
0121 6572 5f4e  |er_N|
0123 616d 6520  |ame |
0125 2020 203a  |   :|
0127 3a3d 2069  |:= i|
0129 6465 6e74  |dent|
012b 6966 6965  |ifie|
012d 7222 002a  |r" *|
012f 2d2d 2020  |--  |
0131 5072 6f74  |Prot|
0133 6f63 6f6c  |ocol|
0135 2020 2020  |    |		.BLANK	2020[0x4]
0139 3a3a 3d20  |::= |		.XXX[0x86]
013b 2758 6f6e  |'Xon|
013d 5f58 6f66  |_Xof|
013f 6627 207c  |f' ||
0141 2027 5274  | 'Rt|
0143 7327 2a00  |s'* |
0145 392d 2d20  |9-- |
0147 2054 6572  | Ter|
0149 6d5f 4e75  |m_Nu|
014b 6d62 6572  |mber|
014d 2020 2020  |    |
014f 203a 3a3d  | ::=|
0151 2069 6465  | ide|
0153 6e74 6966  |ntif|
0155 6965 7220  |ier |
0157 2020 2020  |    |
0159 202d 2d20  | -- |
015b 6567 2054  |eg T|
015d 6572 6d69  |ermi|
015f 6e61 6c5f  |nal_|
0161 3233 3900  |239 |
0163 222d 2d20  |"-- |
0165 2048 6f73  | Hos|
0167 745f 4e61  |t_Na|
0169 6d65 2020  |me  |
016b 2020 2020  |    |
016d 203a 3a3d  | ::=|
016f 2069 6465  | ide|
0171 6e74 6966  |ntif|
0173 6965 7222  |ier"|
0175 0029 2d2d  | )--|
0177 2020 5061  |  Pa|
0179 7468 5f4e  |th_N|
017b 616d 6520  |ame |
017d 2020 2020  |    |
017f 2020 3a3a  |  ::|
0181 3d20 636f  |= co|
0183 6e74 6967  |ntig|
0185 756f 7573  |uous|
0187 5f73 7472  |_str|
0189 696e 6729  |ing)|
018b 0029 2d2d  | )--|
018d 2020 5375  |  Su|
018f 6666 6978  |ffix|
0191 5f4e 616d  |_Nam|
0193 6520 2020  |e   |
0195 2020 3a3a  |  ::|
0197 3d20 636f  |= co|
0199 6e74 6967  |ntig|
019b 756f 7573  |uous|
019d 5f73 7472  |_str|
019f 696e 6729  |ing)|
01a1 0035 2d2d  | 5--|
01a3 2020 5175  |  Qu|
01a5 6575 655f  |eue_|
01a7 4d61 6368  |Mach|
01a9 696e 6520  |ine |
01ab 2020 3a3a  |  ::|
01ad 3d20 272c  |= ',|
01af 2720 274f  |' 'O|
01b1 6e5f 4e6f  |n_No|
01b3 6465 2720  |de' |
01b5 273d 3e27  |'=>'|
01b7 2069 6465  | ide|
01b9 6e74 6966  |ntif|
01bb 6965 7235  |ier5|
01bd 0049 2d2d  | I--|
01bf 2020 2020  |    |		.BLANK	2020[0x9]
01c8 3a3a 3d20  |::= |		.XXX[0x2]
01ca 2020 2020  |    |		.BLANK	2020[0xa]
01d4 2d2d 2061  |-- a|		.XXX[0x2c]
01d6 6c6c 206e  |ll n|
01d8 6f64 6573  |odes|
01da 2069 6620  | if |
01dc 6e6f 7420  |not |
01de 7370 6563  |spec|
01e0 6966 6965  |ifie|
01e2 6449 0002  |dI  |
01e4 2d2d 0200  |--  |
01e6 322d 2d20  |2-- |
01e8 4561 6368  |Each|
01ea 2065 6e74  | ent|
01ec 7279 2069  |ry i|
01ee 6e20 7468  |n th|
01f0 6520 6669  |e fi|
01f2 6c65 2070  |le p|
01f4 726f 7669  |rovi|
01f6 6465 7320  |des |
01f8 696e 666f  |info|
01fa 726d 6174  |rmat|
01fc 696f 6e20  |ion |
01fe 6162 6f32  |abo2|