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

⟦b89854473⟧

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

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 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 0022       | "  |		.CONST	0x0022								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000b       |    |		.CONST	0x000b								; Number of locals
000b			INIT_0008:
000b 029f 0033  |   3|		Declare_Subprogram	INIT_0030,For_Call
000d e013       |    |		Load	0x0,0x13
000e 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
000f 00c6       |    |		Action	Check_Subprogram_Elaborated
0010 4802       |H   |		Short_Literal	0x2
0011 4803       |H   |		Short_Literal	0x3
0012 0099       |    |		Action	Reference_Dynamic
0013 e024       | $  |		Load	0x0,0x24
0014 e025       | %  |		Load	0x0,0x25
0015 4806       |H   |		Short_Literal	0x6
0016 0007       |    |		Action	Break_Optional
0017 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0019 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
001a 00c6       |    |		Action	Check_Subprogram_Elaborated
001b 4807       |H   |		Short_Literal	0x7
001c 4803       |H   |		Short_Literal	0x3
001d 0099       |    |		Action	Reference_Dynamic
001e e026       | &  |		Load	0x0,0x26
001f e027       | '  |		Load	0x0,0x27
0020 480b       |H   |		Short_Literal	0xb
0021 0007       |    |		Action	Break_Optional
0022			BODY_0008:
0022 e7ff       |    |		Load	0x3,-0x1
0023 4808       |H   |		Short_Literal	0x8
0024 4803       |H   |		Short_Literal	0x3
0025 0099       |    |		Action	Reference_Dynamic
0026 4809       |H   |		Short_Literal	0x9
0027 4803       |H   |		Short_Literal	0x3
0028 0099       |    |		Action	Reference_Dynamic
0029 820f       |    |		Call	0x1,0xf
002a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
002b 0000 0000  |    |		.BLANK	0000[0x5]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0035       | 5  |		.CONST	0x0035								; Address of begin
0031 0004       |    |		.CONST	0x0004								; Address of exception handler
0032 0002       |    |		.CONST	0x0002								; Number of locals
0033			INIT_0030:
0033 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0035			BODY_0030:
0035 00db       |    |		Load_Top	At_Offset_3
0036 8802       |    |		Call	0x4,0x2
0037 701a       |p   |		Jump_Nonzero	0x52
0038 00db       |    |		Load_Top	At_Offset_3
0039 8219       |    |		Call	0x1,0x19
003a 6817       |h   |		Jump_Zero	0x52
003b e008       |    |		Load	0x0,0x8
003c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
003d e9ff       |    |		Load	0x4,-0x1
003e 8218       |    |		Call	0x1,0x18
003f e406       |    |		Load	0x2,0x6
0040 e214       |    |		Load	0x1,0x14
0041 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0042 e9fe       |    |		Load	0x4,-0x2
0043 e013       |    |		Load	0x0,0x13
0044 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0045 e9ff       |    |		Load	0x4,-0x1
0046 8218       |    |		Call	0x1,0x18
0047 480b       |H   |		Short_Literal	0xb
0048 4802       |H   |		Short_Literal	0x2
0049 0099       |    |		Action	Reference_Dynamic
004a 480c       |H   |		Short_Literal	0xc
004b 4802       |H   |		Short_Literal	0x2
004c 0099       |    |		Action	Reference_Dynamic
004d 480d       |H   |		Short_Literal	0xd
004e 4802       |H   |		Short_Literal	0x2
004f 0099       |    |		Action	Reference_Dynamic
0050 e013       |    |		Load	0x0,0x13
0051 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0052 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0053 0000 0000  |    |		.BLANK	0000[0x5]
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 00ea       |    |		Load_Encached	Null_String_Cache
005c e9fc       |    |		Load	0x4,-0x4
005d e9fd       |    |		Load	0x4,-0x3
005e 4803       |H   |		Short_Literal	0x3
005f 4803       |H   |		Short_Literal	0x3
0060 0099       |    |		Action	Reference_Dynamic
0061 4804       |H   |		Short_Literal	0x4
0062 4803       |H   |		Short_Literal	0x3
0063 0099       |    |		Action	Reference_Dynamic
0064 e013       |    |		Load	0x0,0x13
0065 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0066 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0067 0000       |    |		.XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0072       | r  |		.CONST	0x0072								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b e008       |    |		Load	0x0,0x8
006c 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
006d 02ff       |    |		Declare_Variable	Variant_Record
006e 00d8       |    |		Load_Top	At_Offset_0
006f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0070 e008       |    |		Load	0x0,0x8
0071 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0072			BODY_0068:
0072 e008       |    |		Load	0x0,0x8
0073 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0074 00da       |    |		Load_Top	At_Offset_2
0075 6012       |`   |		Indirect_Literal	Discrete,0x88,{0x00000000, 0x00004000}
0076 e010       |    |		Load	0x0,0x10
0077 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0078 4800       |H   |		Short_Literal	0x0
0079 e9ff       |    |		Load	0x4,-0x1
007a e008       |    |		Load	0x0,0x8
007b 1b39       | 9  |		Execute	Package,Field_Read,Field_Number 0x39
007c 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
007d 00d1       |    |		Pop_Control	Pop_Count_1
007e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
007f 00d9       |    |		Load_Top	At_Offset_1
0080 e008       |    |		Load	0x0,0x8
0081 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0082 7003       |p   |		Jump_Nonzero	0x86
0083 00d8       |    |		Load_Top	At_Offset_0
0084 0f08       |    |		Execute_Immediate	Equal,0x8
0085 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0086 4801       |H   |		Short_Literal	0x1
0087 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0088 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; Debug Table
0090 ; --------------------------------------------------------------------------------------
0090 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x96c4,0x0000,0x0001,0x0000
0096 8dd5 cdd1  |    |		.XXX[0x16a]
0098 bdb5 a5e9  |    |
009a 9590 81b9  |    |
009c 85b5 9481  |    |
009e b585 c1c1  |    |
00a0 a5b9 9c81  |    |
00a2 99d5 b98d  |    |
00a4 d1a5 bdb9  |    |
00a6 ccb8 2828  |  ((|
00a8 8080 8080  |    |
00aa b4b4 8151  |   Q|
00ac a194 81b5  |    |
00ae d5b1 d1a4  |    |
00b0 b599 a5b1  |    |
00b2 9481 19d1  |    |
00b4 c081 bdc1  |    |
00b6 95c9 85d1  |    |
00b8 a5bd b9cc  |    |
00ba 80a1 41d5  |  A |
00bc d17d 4d95  | }M |
00be d0b0 811d  |    |
00c0 95d1 7d4d  |  }M|
00c2 95d0 b081  |    |
00c4 1d95 d17d  |   }|
00c6 31a5 cdd0  |1   |
00c8 b028 8080  | (  |
00ca 8080 b4b4  |    |
00cc 814d d1bd  | M  |
00ce c995 7d4d  |  }M|
00d0 95d0 b081  |    |
00d2 4995 d1c9  |I   |
00d4 a595 d995  |    |
00d6 7d4d 95d0  |}M  |
00d8 b081 4995  |  I |
00da d1c9 a595  |    |
00dc d995 7d31  |  }1|
00de a5cd d0a4  |    |
00e0 81d5 cd94  |    |
00e2 81b9 85b5  |    |
00e4 9481 b585  |    |
00e6 c1c1 a5b9  |    |
00e8 9c28 8080  | (  |
00ea 8080 b4b4  |    |
00ec 8199 d5b9  |    |
00ee 8dd1 a5bd  |    |
00f0 b9cc 8199  |    |
00f2 bdc8 818d  |    |
00f4 bdb9 d995  |    |
00f6 c9d1 a5b9  |    |
00f8 9c81 8995  |    |
00fa d1dd 9595  |    |
00fc b881 c995  |    |
00fe b5bd d194  |    |
0100 8185 b990  |    |
0102 81b1 bd8d  |    |
0104 85b0 8199  |    |
0106 a5b1 95b9  |    |
0108 85b5 95cc  |    |
010a b828 8080  | (  |
010c 8080 b4b4  |    |
010e 8151 a194  | Q  |
0110 81cd a5b9  |    |
0112 9db1 94b5  |    |
0114 99a5 b194  |    |
0116 81bd c195  |    |
0118 c985 d1a5  |    |
011a bdb9 cc80  |    |
011c a141 d5d0  | A  |
011e b081 1d95  |    |
0120 d0b0 814d  |   M|
0122 d1bd c994  |    |
0124 b081 4995  |  I |
0126 d1c9 a595  |    |
0128 d994 a481  |    |
012a 85b1 cdbc  |    |
012c 2880 8080  |(   |
012e 80b4 b481  |    |
0130 d5cd 9481  |    |
0132 d1a1 95cd  |    |
0134 9481 b585  |    |
0136 c1c1 a5b9  |    |
0138 9dcc 81a5  |    |
013a 9881 e5bd  |    |
013c d481 bdb5  |    |
013e a5d0 81d1  |    |
0140 a194 81d1  |    |
0142 85c9 9d95  |    |
0144 d081 99a5  |    |
0146 b194 81b9  |    |
0148 85b5 94b8  |    |
014a 8081 51a1  |  Q |
014c 95cd 9428  |   (|
014e 8080 8080  |    |
0150 b4b4 81b9  |    |
0152 85b5 9481  |    |
0154 b585 c1c1  |    |
0156 a5b9 9c81  |    |
0158 99d5 b98d  |    |
015a d1a5 bdb9  |    |
015c cc81 85c9  |    |
015e 9481 9195  |    |
0160 99a5 b995  |    |
0162 9081 a5b8  |    |
0164 81c1 858d  |    |
0166 ad85 9d94  |    |
0168 8119 d1c1  |    |
016a 7d39 85b5  |}9  |
016c 957d 3585  | }5 |
016e c0b8 2828  |  ((|
0170 8080 8080  |    |
0172 b4b4 8125  |   %|
0174 9881 d1a1  |    |
0176 9481 cdd1  |    |
0178 85b9 9185  |    |
017a c990 81b9  |    |
017c 85b5 9481  |    |
017e b585 c1c1  |    |
0180 a5b9 9c81  |    |
0182 99d5 b98d  |    |
0184 d1a5 bdb9  |    |
0186 cc81 91bd  |    |
0188 b89d d081  |    |
018a 91bc 81dd  |    |
018c a185 d081  |    |
018e e5bd d428  |   (|
0190 8080 8080  |    |
0192 b4b4 81b9  |    |
0194 9595 90b0  |    |
0196 81e5 bdd4  |    |
0198 818d 85b8  |    |
019a 81cd d5c1  |    |
019c c1b1 e481  |    |
019e e5bd d5c8  |    |
01a0 81bd ddb8  |    |
01a2 80a1 85cc  |    |
01a4 81d1 a194  |    |
01a6 81c1 85c9  |    |
01a8 85b5 95d1  |    |
01aa 95c9 cc81  |    |
01ac d1bc 81d1  |    |
01ae a1a5 cc28  |   (|
01b0 8080 8080  |    |
01b2 b4b4 819d  |    |
01b4 95b9 95c9  |    |
01b6 a58c a481  |    |
01b8 85b9 9081  |    |
01ba d5cd 9481  |    |
01bc d1a1 9481  |    |
01be c995 cdd5  |    |
01c0 b1d1 a5b9  |    |
01c2 9c81 d1c9  |    |
01c4 85b9 cd99  |    |
01c6 95c8 81bd  |    |
01c8 c195 c985  |    |
01ca d1a5 bdb9  |    |
01cc cc81 a5b9  |    |
01ce cdd1 9585  |    |
01d0 9028 8080  | (  |
01d2 8080 b4b4  |    |
01d4 81bd 9881  |    |
01d6 d1a1 9481  |    |
01d8 bdb9 95cc  |    |
01da 81a5 b881  |    |
01dc c185 8dad  |    |
01de 859d 9481  |    |
01e0 19d1 c0b8  |    |
01e2 2828 8080  |((  |
01e4 8081 c1c9  |    |
01e6 bd8d 9591  |    |
01e8 d5c9 9481  |    |
01ea 41d5 d080  |A   |
01ec a119 c9bd  |    |
01ee b57d 31bd  | }1 |
01f0 8d85 b17d  |   }|
01f2 19a5 b194  |    |
01f4 80e8 814d  |   M|
01f6 d1c9 a5b9  |    |
01f8 9c80 e8f4  |    |
01fa 8088 f125  |   %|
01fc 3505 1d14  |5   |
01fe f888 ec28  |   (|