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

⟦92c6c62ab⟧

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

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 01b8       |    |		.CONST	0x01b8								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 000d       |    |		.CONST	0x000d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0002       |    |		.CONST	0x0002								; Number of locals
000b			INIT_0008:
000b 029f 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Call
000d			BODY_0008:
000d 4801       |H   |		Short_Literal	0x1
000e 4805       |H   |		Short_Literal	0x5
000f e009       |    |		Load	0x0,0x9
0010 0334       | 4  |		Declare_Variable	Array,With_Constraint
0011 509e       |P   |		Indirect_Literal	Any,0xb0,{0x44454255, 0x47202020}
0012 8402       |    |		Call	0x2,0x2
0013 4801       |H   |		Short_Literal	0x1
0014 4813       |H   |		Short_Literal	0x13
0015 e009       |    |		Load	0x0,0x9
0016 0334       | 4  |		Declare_Variable	Array,With_Constraint
0017 509c       |P   |		Indirect_Literal	Any,0xb4,{0x4f4c445f, 0x434f4e54}
0018 8402       |    |		Call	0x2,0x2
0019 4801       |H   |		Short_Literal	0x1
001a 4808       |H   |		Short_Literal	0x8
001b e009       |    |		Load	0x0,0x9
001c 0334       | 4  |		Declare_Variable	Array,With_Constraint
001d 50a2       |P   |		Indirect_Literal	Any,0xc0,{0x4364665f, 0x48707578}
001e 8402       |    |		Call	0x2,0x2
001f 4801       |H   |		Short_Literal	0x1
0020 4805       |H   |		Short_Literal	0x5
0021 e009       |    |		Load	0x0,0x9
0022 0334       | 4  |		Declare_Variable	Array,With_Constraint
0023 50a0       |P   |		Indirect_Literal	Any,0xc4,{0x52313030, 0x30202020}
0024 8402       |    |		Call	0x2,0x2
0025 4801       |H   |		Short_Literal	0x1
0026 4808       |H   |		Short_Literal	0x8
0027 e009       |    |		Load	0x0,0x9
0028 0334       | 4  |		Declare_Variable	Array,With_Constraint
0029 509e       |P   |		Indirect_Literal	Any,0xc8,{0x54656c65, 0x47656e32}
002a 8402       |    |		Call	0x2,0x2
002b 4801       |H   |		Short_Literal	0x1
002c 4804       |H   |		Short_Literal	0x4
002d e009       |    |		Load	0x0,0x9
002e 0334       | 4  |		Declare_Variable	Array,With_Constraint
002f 509c       |P   |		Indirect_Literal	Any,0xcc,{0x556e6978, 0x20202020}
0030 8402       |    |		Call	0x2,0x2
0031 4801       |H   |		Short_Literal	0x1
0032 4804       |H   |		Short_Literal	0x4
0033 e009       |    |		Load	0x0,0x9
0034 0334       | 4  |		Declare_Variable	Array,With_Constraint
0035 509a       |P   |		Indirect_Literal	Any,0xd0,{0x53797356, 0x20202020}
0036 8402       |    |		Call	0x2,0x2
0037 4801       |H   |		Short_Literal	0x1
0038 480f       |H   |		Short_Literal	0xf
0039 e009       |    |		Load	0x0,0x9
003a 0334       | 4  |		Declare_Variable	Array,With_Constraint
003b 5098       |P   |		Indirect_Literal	Any,0xd4,{0x52313030, 0x305f586c}
003c 8402       |    |		Call	0x2,0x2
003d 4801       |H   |		Short_Literal	0x1
003e 480e       |H   |		Short_Literal	0xe
003f e009       |    |		Load	0x0,0x9
0040 0334       | 4  |		Declare_Variable	Array,With_Constraint
0041 509a       |P   |		Indirect_Literal	Any,0xdc,{0x52313030, 0x305f5369}
0042 8402       |    |		Call	0x2,0x2
0043 4801       |H   |		Short_Literal	0x1
0044 4813       |H   |		Short_Literal	0x13
0045 e009       |    |		Load	0x0,0x9
0046 0334       | 4  |		Declare_Variable	Array,With_Constraint
0047 509c       |P   |		Indirect_Literal	Any,0xe4,{0x54656c65, 0x47656e32}
0048 8402       |    |		Call	0x2,0x2
0049 4801       |H   |		Short_Literal	0x1
004a 4813       |H   |		Short_Literal	0x13
004b e009       |    |		Load	0x0,0x9
004c 0334       | 4  |		Declare_Variable	Array,With_Constraint
004d 50a2       |P   |		Indirect_Literal	Any,0xf0,{0x54656c65, 0x47656e32}
004e 8402       |    |		Call	0x2,0x2
004f 4801       |H   |		Short_Literal	0x1
0050 4811       |H   |		Short_Literal	0x11
0051 e009       |    |		Load	0x0,0x9
0052 0334       | 4  |		Declare_Variable	Array,With_Constraint
0053 50a8       |P   |		Indirect_Literal	Any,0xfc,{0x54656c65, 0x47656e32}
0054 8402       |    |		Call	0x2,0x2
0055 4801       |H   |		Short_Literal	0x1
0056 480f       |H   |		Short_Literal	0xf
0057 e009       |    |		Load	0x0,0x9
0058 0334       | 4  |		Declare_Variable	Array,With_Constraint
0059 50ae       |P   |		Indirect_Literal	Any,0x108,{0x54656c65, 0x47656e32}
005a 8402       |    |		Call	0x2,0x2
005b 4801       |H   |		Short_Literal	0x1
005c 4811       |H   |		Short_Literal	0x11
005d e009       |    |		Load	0x0,0x9
005e 0334       | 4  |		Declare_Variable	Array,With_Constraint
005f 50b0       |P   |		Indirect_Literal	Any,0x110,{0x4d756c74, 0x69746173}
0060 8402       |    |		Call	0x2,0x2
0061 4801       |H   |		Short_Literal	0x1
0062 4813       |H   |		Short_Literal	0x13
0063 e009       |    |		Load	0x0,0x9
0064 0334       | 4  |		Declare_Variable	Array,With_Constraint
0065 50b6       |P   |		Indirect_Literal	Any,0x11c,{0x456e6162, 0x6c655f44}
0066 8402       |    |		Call	0x2,0x2
0067 4801       |H   |		Short_Literal	0x1
0068 4806       |H   |		Short_Literal	0x6
0069 e009       |    |		Load	0x0,0x9
006a 0334       | 4  |		Declare_Variable	Array,With_Constraint
006b 50bc       |P   |		Indirect_Literal	Any,0x128,{0x496e6c69, 0x6e652020}
006c 8402       |    |		Call	0x2,0x2
006d 4801       |H   |		Short_Literal	0x1
006e 480e       |H   |		Short_Literal	0xe
006f e009       |    |		Load	0x0,0x9
0070 0334       | 4  |		Declare_Variable	Array,With_Constraint
0071 50ba       |P   |		Indirect_Literal	Any,0x12c,{0x4c656e67, 0x74685f43}
0072 8402       |    |		Call	0x2,0x2
0073 4801       |H   |		Short_Literal	0x1
0074 4804       |H   |		Short_Literal	0x4
0075 e009       |    |		Load	0x0,0x9
0076 0334       | 4  |		Declare_Variable	Array,With_Constraint
0077 50bc       |P   |		Indirect_Literal	Any,0x134,{0x5061636b, 0x20202020}
0078 8402       |    |		Call	0x2,0x2
0079 4801       |H   |		Short_Literal	0x1
007a 4811       |H   |		Short_Literal	0x11
007b e009       |    |		Load	0x0,0x9
007c 0334       | 4  |		Declare_Variable	Array,With_Constraint
007d 50ba       |P   |		Indirect_Literal	Any,0x138,{0x506f7369, 0x74697665}
007e 8402       |    |		Call	0x2,0x2
007f 4801       |H   |		Short_Literal	0x1
0080 4812       |H   |		Short_Literal	0x12
0081 e009       |    |		Load	0x0,0x9
0082 0334       | 4  |		Declare_Variable	Array,With_Constraint
0083 50c0       |P   |		Indirect_Literal	Any,0x144,{0x5265636f, 0x72645f52}
0084 8402       |    |		Call	0x2,0x2
0085 4801       |H   |		Short_Literal	0x1
0086 480d       |H   |		Short_Literal	0xd
0087 e009       |    |		Load	0x0,0x9
0088 0334       | 4  |		Declare_Variable	Array,With_Constraint
0089 50c6       |P   |		Indirect_Literal	Any,0x150,{0x42697430, 0x5f536967}
008a 8402       |    |		Call	0x2,0x2
008b 4801       |H   |		Short_Literal	0x1
008c 480f       |H   |		Short_Literal	0xf
008d e009       |    |		Load	0x0,0x9
008e 0334       | 4  |		Declare_Variable	Array,With_Constraint
008f 50c8       |P   |		Indirect_Literal	Any,0x158,{0x42797465, 0x305f5369}
0090 8402       |    |		Call	0x2,0x2
0091 4801       |H   |		Short_Literal	0x1
0092 4819       |H   |		Short_Literal	0x19
0093 e009       |    |		Load	0x0,0x9
0094 0334       | 4  |		Declare_Variable	Array,With_Constraint
0095 50ca       |P   |		Indirect_Literal	Any,0x160,{0x5265636f, 0x72645f52}
0096 8402       |    |		Call	0x2,0x2
0097 4801       |H   |		Short_Literal	0x1
0098 481a       |H   |		Short_Literal	0x1a
0099 e009       |    |		Load	0x0,0x9
009a 0334       | 4  |		Declare_Variable	Array,With_Constraint
009b 50d4       |P   |		Indirect_Literal	Any,0x170,{0x5265636f, 0x72645f52}
009c 8402       |    |		Call	0x2,0x2
009d 4801       |H   |		Short_Literal	0x1
009e 481a       |H   |		Short_Literal	0x1a
009f e009       |    |		Load	0x0,0x9
00a0 0334       | 4  |		Declare_Variable	Array,With_Constraint
00a1 50de       |P   |		Indirect_Literal	Any,0x180,{0x5265636f, 0x72645f52}
00a2 8402       |    |		Call	0x2,0x2
00a3 4801       |H   |		Short_Literal	0x1
00a4 480f       |H   |		Short_Literal	0xf
00a5 e009       |    |		Load	0x0,0x9
00a6 0334       | 4  |		Declare_Variable	Array,With_Constraint
00a7 50e8       |P   |		Indirect_Literal	Any,0x190,{0x526f775f, 0x4d616a6f}
00a8 8402       |    |		Call	0x2,0x2
00a9 4801       |H   |		Short_Literal	0x1
00aa 480f       |H   |		Short_Literal	0xf
00ab e009       |    |		Load	0x0,0x9
00ac 0334       | 4  |		Declare_Variable	Array,With_Constraint
00ad 50ea       |P   |		Indirect_Literal	Any,0x198,{0x5261775f, 0x49735f55}
00ae 8402       |    |		Call	0x2,0x2
00af 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b0 4445 4255  |DEBU|		.LITERAL	{0x44454255, 0x47202020}
00b4 4f4c 445f  |OLD_|		.LITERAL	{0x4f4c445f, 0x434f4e54}
00b8 4558 545f  |EXT_|		.XXX[0x8]
00ba 4d41 4e41  |MANA|
00bc 4745 5220  |GER |
00be 2020 2020  |    |
00c0 4364 665f  |Cdf_|		.LITERAL	{0x4364665f, 0x48707578}
00c4 5231 3030  |R100|		.LITERAL	{0x52313030, 0x30202020}
00c8 5465 6c65  |Tele|		.LITERAL	{0x54656c65, 0x47656e32}
00cc 556e 6978  |Unix|		.LITERAL	{0x556e6978, 0x20202020}
00d0 5379 7356  |SysV|		.LITERAL	{0x53797356, 0x20202020}
00d4 5231 3030  |R100|		.LITERAL	{0x52313030, 0x305f586c}
00d8 6962 5f4f  |ib_O|		.XXX[0x4]
00da 6e6c 7920  |nly |
00dc 5231 3030  |R100|		.LITERAL	{0x52313030, 0x305f5369}
00e0 7a65 5f42  |ze_B|		.XXX[0x4]
00e2 7567 2020  |ug  |
00e4 5465 6c65  |Tele|		.LITERAL	{0x54656c65, 0x47656e32}
00e8 5f44 6572  |_Der|		.XXX[0x8]
00ea 6976 655f  |ive_|
00ec 4275 6720  |Bug |
00ee 2020 2020  |    |
00f0 5465 6c65  |Tele|		.LITERAL	{0x54656c65, 0x47656e32}
00f4 5f4c 656e  |_Len|		.XXX[0x8]
00f6 6774 685f  |gth_|
00f8 4275 6720  |Bug |
00fa 2020 2020  |    |
00fc 5465 6c65  |Tele|		.LITERAL	{0x54656c65, 0x47656e32}
0100 5f50 6163  |_Pac|		.XXX[0x8]
0102 6b5f 4275  |k_Bu|
0104 6720 2020  |g   |
0106 2020 2020  |    |
0108 5465 6c65  |Tele|		.LITERAL	{0x54656c65, 0x47656e32}
010c 5f32 645f  |_2d_|		.XXX[0x4]
010e 4275 6720  |Bug |
0110 4d75 6c74  |Mult|		.LITERAL	{0x4d756c74, 0x69746173}
0114 6b5f 4c6f  |k_Lo|		.XXX[0x8]
0116 636b 696e  |ckin|
0118 6720 2020  |g   |
011a 2020 2020  |    |
011c 456e 6162  |Enab|		.LITERAL	{0x456e6162, 0x6c655f44}
0120 6561 6c6c  |eall|		.XXX[0x8]
0122 6f63 6174  |ocat|
0124 696f 6e20  |ion |
0126 2020 2020  |    |
0128 496e 6c69  |Inli|		.LITERAL	{0x496e6c69, 0x6e652020}
012c 4c65 6e67  |Leng|		.LITERAL	{0x4c656e67, 0x74685f43}
0130 6c61 7573  |laus|		.XXX[0x4]
0132 6573 2020  |es  |
0134 5061 636b  |Pack|		.LITERAL	{0x5061636b, 0x20202020}
0138 506f 7369  |Posi|		.LITERAL	{0x506f7369, 0x74697665}
013c 5f49 735f  |_Is_|		.XXX[0x8]
013e 4c61 7267  |Larg|
0140 6520 2020  |e   |
0142 2020 2020  |    |
0144 5265 636f  |Reco|		.LITERAL	{0x5265636f, 0x72645f52}
0148 6570 5f43  |ep_C|		.XXX[0x8]
014a 6c61 7573  |laus|
014c 6573 2020  |es  |
014e 2020 2020  |    |
0150 4269 7430  |Bit0|		.LITERAL	{0x42697430, 0x5f536967}
0154 6e5f 4269  |n_Bi|		.XXX[0x4]
0156 7420 2020  |t   |
0158 4279 7465  |Byte|		.LITERAL	{0x42797465, 0x305f5369}
015c 676e 5f42  |gn_B|		.XXX[0x4]
015e 7974 6520  |yte |
0160 5265 636f  |Reco|		.LITERAL	{0x5265636f, 0x72645f52}
0164 6570 5f53  |ep_S|		.XXX[0xc]
0166 746f 7261  |tora|
0168 6765 5f55  |ge_U|
016a 6e69 745f  |nit_|
016c 3820 2020  |8   |
016e 2020 2020  |    |
0170 5265 636f  |Reco|		.LITERAL	{0x5265636f, 0x72645f52}
0174 6570 5f53  |ep_S|		.XXX[0xc]
0176 746f 7261  |tora|
0178 6765 5f55  |ge_U|
017a 6e69 745f  |nit_|
017c 3136 2020  |16  |
017e 2020 2020  |    |
0180 5265 636f  |Reco|		.LITERAL	{0x5265636f, 0x72645f52}
0184 6570 5f53  |ep_S|		.XXX[0xc]
0186 746f 7261  |tora|
0188 6765 5f55  |ge_U|
018a 6e69 745f  |nit_|
018c 3332 2020  |32  |
018e 2020 2020  |    |
0190 526f 775f  |Row_|		.LITERAL	{0x526f775f, 0x4d616a6f}
0194 725f 4f72  |r_Or|		.XXX[0x4]
0196 6465 7220  |der |
0198 5261 775f  |Raw_|		.LITERAL	{0x5261775f, 0x49735f55}
019c 6e73 6967  |nsig|		.XXX[0x4]
019e 6e65 6420  |ned |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3       |    |		.CONST	0x01a3								; Address of begin
01a1 0004       |    |		.CONST	0x0004								; Address of exception handler
01a2 0001       |    |		.CONST	0x0001								; Number of locals
01a3			BODY_01a0:
01a3			INIT_01a0:
01a3 4800       |H   |		Short_Literal	0x0
01a4 4801       |H   |		Short_Literal	0x1
01a5 e004       |    |		Load	0x0,0x4
01a6 1c08       |    |		Execute_Immediate	Run_Utility,0x8
01a7 4800       |H   |		Short_Literal	0x0
01a8 00d9       |    |		Load_Top	At_Offset_1
01a9 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01aa 4800       |H   |		Short_Literal	0x0
01ab 00d9       |    |		Load_Top	At_Offset_1
01ac 2a04       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01ad e7ff       |    |		Load	0x3,-0x1
01ae e20e       |    |		Load	0x1,0xe
01af e015       |    |		Load	0x0,0x15
01b0 e20d       |    |		Load	0x1,0xd
01b1 0096       |    |		Execute	Package,Entry
01b2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x4d28,0x0000,0x0001,0x0002
01be 000b 01c6  |    |		.DBG4T	0x000b,0x01c6,0x0001,0x0000
01c2 01a3 01e4  |    |		.DBG4T	0x01a3,0x01e4,0x0001,0x0000
01c6 ; --------------------------------------------------------------------------------------
01c6 ; Debug chain
01c6 ; --------------------------------------------------------------------------------------
01c6 0001 001b  |    |		.DBGLEN	0x0001,0x001b
01c8 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x0013,0x0019,0x001f,0x0025,0x002b,0x0031,0x0037,0x003d,0x0043,0x0049,0x004f,0x0055,0x005b,0x0061,0x0067,0x006d,0x0073,0x0079,0x007f,0x0085,0x008b,0x0091,0x0097,0x009d,0x00a3,0x00a9
01e4 ; --------------------------------------------------------------------------------------
01e4 ; Debug chain
01e4 ; --------------------------------------------------------------------------------------
01e4 0000 0001  |    |		.DBGLEN	0x0000,0x0001
01e6 01a3       |    |		.DBGLNO	0x01a3
01e7 0000 0000  |    |		.BLANK	0000[0x19]