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

⟦bd5114a06⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1ca4c7

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 5900       |Y   |		.CONST	0x5900								; 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 0001       |    |		.CONST	0x0001								; 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 000d       |    |		.CONST	0x000d								; 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 8002       |    |		Call	0x0,0x2
001c 4647       |FG  |		Jump_Case	0x48
001d 784a       |xJ  |		Jump	0x68								; case 0x0
001e 7859       |xY  |		Jump	0x78								; case 0x1
001f 7868       |xh  |		Jump	0x88								; case 0x2
0020 7877       |xw  |		Jump	0x98								; case 0x3
0021 7886       |x   |		Jump	0xa8								; case 0x4
0022 7895       |x   |		Jump	0xb8								; case 0x5
0023 78a4       |x   |		Jump	0xc8								; case 0x6
0024 78ab       |x   |		Jump	0xd0								; case 0x7
0025 78b9       |x   |		Jump	0xdf								; case 0x8
0026 78c8       |x   |		Jump	0xef								; case 0x9
0027 78d7       |x   |		Jump	0xff								; case 0xa
0028 78e6       |x   |		Jump	0x10f								; case 0xb
0029 783b       |x;  |		Jump	0x65								; case 0xc
002a 783a       |x:  |		Jump	0x65								; case 0xd
002b 7839       |x9  |		Jump	0x65								; case 0xe
002c 7838       |x8  |		Jump	0x65								; case 0xf
002d 7837       |x7  |		Jump	0x65								; case 0x10
002e 7836       |x6  |		Jump	0x65								; case 0x11
002f 7835       |x5  |		Jump	0x65								; case 0x12
0030 7834       |x4  |		Jump	0x65								; case 0x13
0031 7833       |x3  |		Jump	0x65								; case 0x14
0032 7832       |x2  |		Jump	0x65								; case 0x15
0033 7831       |x1  |		Jump	0x65								; case 0x16
0034 7830       |x0  |		Jump	0x65								; case 0x17
0035 782f       |x/  |		Jump	0x65								; case 0x18
0036 782e       |x.  |		Jump	0x65								; case 0x19
0037 782d       |x-  |		Jump	0x65								; case 0x1a
0038 782c       |x,  |		Jump	0x65								; case 0x1b
0039 782b       |x+  |		Jump	0x65								; case 0x1c
003a 782a       |x*  |		Jump	0x65								; case 0x1d
003b 7829       |x)  |		Jump	0x65								; case 0x1e
003c 7828       |x(  |		Jump	0x65								; case 0x1f
003d 7827       |x'  |		Jump	0x65								; case 0x20
003e 7826       |x&  |		Jump	0x65								; case 0x21
003f 7825       |x%  |		Jump	0x65								; case 0x22
0040 7824       |x$  |		Jump	0x65								; case 0x23
0041 7823       |x#  |		Jump	0x65								; case 0x24
0042 7822       |x"  |		Jump	0x65								; case 0x25
0043 7821       |x!  |		Jump	0x65								; case 0x26
0044 7820       |x   |		Jump	0x65								; case 0x27
0045 781f       |x   |		Jump	0x65								; case 0x28
0046 781e       |x   |		Jump	0x65								; case 0x29
0047 781d       |x   |		Jump	0x65								; case 0x2a
0048 781c       |x   |		Jump	0x65								; case 0x2b
0049 781b       |x   |		Jump	0x65								; case 0x2c
004a 781a       |x   |		Jump	0x65								; case 0x2d
004b 7819       |x   |		Jump	0x65								; case 0x2e
004c 7818       |x   |		Jump	0x65								; case 0x2f
004d 7817       |x   |		Jump	0x65								; case 0x30
004e 7816       |x   |		Jump	0x65								; case 0x31
004f 7815       |x   |		Jump	0x65								; case 0x32
0050 7814       |x   |		Jump	0x65								; case 0x33
0051 7813       |x   |		Jump	0x65								; case 0x34
0052 7812       |x   |		Jump	0x65								; case 0x35
0053 7811       |x   |		Jump	0x65								; case 0x36
0054 7810       |x   |		Jump	0x65								; case 0x37
0055 780f       |x   |		Jump	0x65								; case 0x38
0056 780e       |x   |		Jump	0x65								; case 0x39
0057 780d       |x   |		Jump	0x65								; case 0x3a
0058 780c       |x   |		Jump	0x65								; case 0x3b
0059 780b       |x   |		Jump	0x65								; case 0x3c
005a 780a       |x   |		Jump	0x65								; case 0x3d
005b 7809       |x   |		Jump	0x65								; case 0x3e
005c 7808       |x   |		Jump	0x65								; case 0x3f
005d 7807       |x   |		Jump	0x65								; case 0x40
005e 7806       |x   |		Jump	0x65								; case 0x41
005f 7805       |x   |		Jump	0x65								; case 0x42
0060 7804       |x   |		Jump	0x65								; case 0x43
0061 78bd       |x   |		Jump	0x11f								; case 0x44
0062 7802       |x   |		Jump	0x65								; case 0x45
0063 7801       |x   |		Jump	0x65								; case 0x46
0064 7800       |x   |		Jump	0x65								; case 0x47
0065 4800       |H   |		Short_Literal	0x0
0066 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0067 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0068 8003       |    |		Call	0x0,0x3
0069 8004       |    |		Call	0x0,0x4
006a 8005       |    |		Call	0x0,0x5
006b 8006       |    |		Call	0x0,0x6
006c 00da       |    |		Load_Top	At_Offset_2
006d 8007       |    |		Call	0x0,0x7
006e 005b       | [  |		Store_Top	Discrete,At_Offset_3
006f 8008       |    |		Call	0x0,0x8
0070 00da       |    |		Load_Top	At_Offset_2
0071 7005       |p   |		Jump_Nonzero	0x77
0072 e009       |    |		Load	0x0,0x9
0073 480d       |H   |		Short_Literal	0xd
0074 800a       |    |		Call	0x0,0xa
0075 4801       |H   |		Short_Literal	0x1
0076 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0077 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0078 8003       |    |		Call	0x0,0x3
0079 8004       |    |		Call	0x0,0x4
007a 8005       |    |		Call	0x0,0x5
007b 8006       |    |		Call	0x0,0x6
007c 00da       |    |		Load_Top	At_Offset_2
007d 800b       |    |		Call	0x0,0xb
007e 005b       | [  |		Store_Top	Discrete,At_Offset_3
007f 8008       |    |		Call	0x0,0x8
0080 00da       |    |		Load_Top	At_Offset_2
0081 7005       |p   |		Jump_Nonzero	0x87
0082 e009       |    |		Load	0x0,0x9
0083 480e       |H   |		Short_Literal	0xe
0084 800a       |    |		Call	0x0,0xa
0085 4801       |H   |		Short_Literal	0x1
0086 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0087 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0088 8003       |    |		Call	0x0,0x3
0089 8004       |    |		Call	0x0,0x4
008a 8005       |    |		Call	0x0,0x5
008b 8006       |    |		Call	0x0,0x6
008c 00da       |    |		Load_Top	At_Offset_2
008d 800c       |    |		Call	0x0,0xc
008e 005b       | [  |		Store_Top	Discrete,At_Offset_3
008f 8008       |    |		Call	0x0,0x8
0090 00da       |    |		Load_Top	At_Offset_2
0091 7005       |p   |		Jump_Nonzero	0x97
0092 e009       |    |		Load	0x0,0x9
0093 480f       |H   |		Short_Literal	0xf
0094 800a       |    |		Call	0x0,0xa
0095 4801       |H   |		Short_Literal	0x1
0096 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0097 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0098 8003       |    |		Call	0x0,0x3
0099 8004       |    |		Call	0x0,0x4
009a 8005       |    |		Call	0x0,0x5
009b 8006       |    |		Call	0x0,0x6
009c 00da       |    |		Load_Top	At_Offset_2
009d 800d       |    |		Call	0x0,0xd
009e 005b       | [  |		Store_Top	Discrete,At_Offset_3
009f 8008       |    |		Call	0x0,0x8
00a0 00da       |    |		Load_Top	At_Offset_2
00a1 7005       |p   |		Jump_Nonzero	0xa7
00a2 e009       |    |		Load	0x0,0x9
00a3 4810       |H   |		Short_Literal	0x10
00a4 800a       |    |		Call	0x0,0xa
00a5 4801       |H   |		Short_Literal	0x1
00a6 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00a7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a8 8003       |    |		Call	0x0,0x3
00a9 8004       |    |		Call	0x0,0x4
00aa 8005       |    |		Call	0x0,0x5
00ab 8006       |    |		Call	0x0,0x6
00ac 00da       |    |		Load_Top	At_Offset_2
00ad 800e       |    |		Call	0x0,0xe
00ae 005b       | [  |		Store_Top	Discrete,At_Offset_3
00af 8008       |    |		Call	0x0,0x8
00b0 00da       |    |		Load_Top	At_Offset_2
00b1 7005       |p   |		Jump_Nonzero	0xb7
00b2 e009       |    |		Load	0x0,0x9
00b3 4811       |H   |		Short_Literal	0x11
00b4 800a       |    |		Call	0x0,0xa
00b5 4801       |H   |		Short_Literal	0x1
00b6 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b8 8003       |    |		Call	0x0,0x3
00b9 8004       |    |		Call	0x0,0x4
00ba 8005       |    |		Call	0x0,0x5
00bb 8006       |    |		Call	0x0,0x6
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 800f       |    |		Call	0x0,0xf
00be 005b       | [  |		Store_Top	Discrete,At_Offset_3
00bf 8008       |    |		Call	0x0,0x8
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 7005       |p   |		Jump_Nonzero	0xc7
00c2 e009       |    |		Load	0x0,0x9
00c3 4812       |H   |		Short_Literal	0x12
00c4 800a       |    |		Call	0x0,0xa
00c5 4801       |H   |		Short_Literal	0x1
00c6 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00c7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00c8 8003       |    |		Call	0x0,0x3
00c9 8004       |    |		Call	0x0,0x4
00ca 8005       |    |		Call	0x0,0x5
00cb 8006       |    |		Call	0x0,0x6
00cc 8008       |    |		Call	0x0,0x8
00cd 4801       |H   |		Short_Literal	0x1
00ce 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d0 8003       |    |		Call	0x0,0x3
00d1 8004       |    |		Call	0x0,0x4
00d2 8005       |    |		Call	0x0,0x5
00d3 8006       |    |		Call	0x0,0x6
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 800d       |    |		Call	0x0,0xd
00d6 005b       | [  |		Store_Top	Discrete,At_Offset_3
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 7005       |p   |		Jump_Nonzero	0xde
00d9 e009       |    |		Load	0x0,0x9
00da 4813       |H   |		Short_Literal	0x13
00db 800a       |    |		Call	0x0,0xa
00dc 4801       |H   |		Short_Literal	0x1
00dd 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00de 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00df 8003       |    |		Call	0x0,0x3
00e0 8004       |    |		Call	0x0,0x4
00e1 8005       |    |		Call	0x0,0x5
00e2 8006       |    |		Call	0x0,0x6
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 8010       |    |		Call	0x0,0x10
00e5 005b       | [  |		Store_Top	Discrete,At_Offset_3
00e6 8008       |    |		Call	0x0,0x8
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 7005       |p   |		Jump_Nonzero	0xee
00e9 e009       |    |		Load	0x0,0x9
00ea 4814       |H   |		Short_Literal	0x14
00eb 800a       |    |		Call	0x0,0xa
00ec 4801       |H   |		Short_Literal	0x1
00ed 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00ee 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ef 8003       |    |		Call	0x0,0x3
00f0 8004       |    |		Call	0x0,0x4
00f1 8005       |    |		Call	0x0,0x5
00f2 8006       |    |		Call	0x0,0x6
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 8011       |    |		Call	0x0,0x11
00f5 005b       | [  |		Store_Top	Discrete,At_Offset_3
00f6 8008       |    |		Call	0x0,0x8
00f7 00da       |    |		Load_Top	At_Offset_2
00f8 7005       |p   |		Jump_Nonzero	0xfe
00f9 e009       |    |		Load	0x0,0x9
00fa 4815       |H   |		Short_Literal	0x15
00fb 800a       |    |		Call	0x0,0xa
00fc 4801       |H   |		Short_Literal	0x1
00fd 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00fe 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ff 8003       |    |		Call	0x0,0x3
0100 8004       |    |		Call	0x0,0x4
0101 8005       |    |		Call	0x0,0x5
0102 8006       |    |		Call	0x0,0x6
0103 00da       |    |		Load_Top	At_Offset_2
0104 8012       |    |		Call	0x0,0x12
0105 005b       | [  |		Store_Top	Discrete,At_Offset_3
0106 8008       |    |		Call	0x0,0x8
0107 00da       |    |		Load_Top	At_Offset_2
0108 7005       |p   |		Jump_Nonzero	0x10e
0109 e009       |    |		Load	0x0,0x9
010a 4816       |H   |		Short_Literal	0x16
010b 800a       |    |		Call	0x0,0xa
010c 4801       |H   |		Short_Literal	0x1
010d 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
010e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010f 8003       |    |		Call	0x0,0x3
0110 8004       |    |		Call	0x0,0x4
0111 8005       |    |		Call	0x0,0x5
0112 8006       |    |		Call	0x0,0x6
0113 00da       |    |		Load_Top	At_Offset_2
0114 800b       |    |		Call	0x0,0xb
0115 005b       | [  |		Store_Top	Discrete,At_Offset_3
0116 8008       |    |		Call	0x0,0x8
0117 00da       |    |		Load_Top	At_Offset_2
0118 7005       |p   |		Jump_Nonzero	0x11e
0119 e009       |    |		Load	0x0,0x9
011a 4818       |H   |		Short_Literal	0x18
011b 800a       |    |		Call	0x0,0xa
011c 4801       |H   |		Short_Literal	0x1
011d 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
011e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
011f 8003       |    |		Call	0x0,0x3
0120 8004       |    |		Call	0x0,0x4
0121 8013       |    |		Call	0x0,0x13
0122 8006       |    |		Call	0x0,0x6
0123 00da       |    |		Load_Top	At_Offset_2
0124 8014       |    |		Call	0x0,0x14
0125 005b       | [  |		Store_Top	Discrete,At_Offset_3
0126 00da       |    |		Load_Top	At_Offset_2
0127 7005       |p   |		Jump_Nonzero	0x12d
0128 e009       |    |		Load	0x0,0x9
0129 4817       |H   |		Short_Literal	0x17
012a 800a       |    |		Call	0x0,0xa
012b 4801       |H   |		Short_Literal	0x1
012c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
012d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012e 0000 0000  |    |		.XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdeeb,0x0000,0x0001,0x0003
0136 000b 0142  |   B|		.DBG4T	0x000b,0x0142,0x8000,0x0000
013a 000e 0145  |   E|		.DBG4T	0x000e,0x0145,0x8000,0x0000
013e 001b 0148  |   H|		.DBG4T	0x001b,0x0148,0x0001,0x4000
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug chain
0142 ; --------------------------------------------------------------------------------------
0142 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0144 000b       |    |		.DBGLNO	0x000b
0145 ; --------------------------------------------------------------------------------------
0145 ; Debug chain
0145 ; --------------------------------------------------------------------------------------
0145 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0147 000e       |    |		.DBGLNO	0x000e
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug chain
0148 ; --------------------------------------------------------------------------------------
0148 0000 0065  |   e|		.DBGLEN	0x0000,0x0065
014a 001b 0065  |   e|		.DBGLNO	0x001b,0x0065,0x0068,0x0069,0x006b,0x006c,0x006f,0x0070,0x0072,0x0075,0x0078,0x0079,0x007b,0x007c,0x007f,0x0080,0x0082,0x0085,0x0088,0x0089,0x008b,0x008c,0x008f,0x0090,0x0092,0x0095,0x0098,0x0099,0x009b,0x009c,0x009f,0x00a0,0x00a2,0x00a5,0x00a8,0x00a9,0x00ab,0x00ac,0x00af,0x00b0,0x00b2,0x00b5,0x00b8,0x00b9,0x00bb,0x00bc,0x00bf,0x00c0,0x00c2,0x00c5,0x00c8,0x00c9,0x00cb,0x00cc,0x00cd,0x00d0,0x00d1,0x00d3,0x00d4,0x00d7,0x00d9,0x00dc,0x00df,0x00e0,0x00e2,0x00e3,0x00e6,0x00e7,0x00e9,0x00ec,0x00ef,0x00f0,0x00f2,0x00f3,0x00f6,0x00f7,0x00f9,0x00fc,0x00ff,0x0100,0x0102,0x0103,0x0106,0x0107,0x0109,0x010c,0x010f,0x0110,0x0112,0x0113,0x0116,0x0117,0x0119,0x011c,0x011f,0x0120,0x0122,0x0123,0x0126,0x0128,0x012b
01af 0001 0065  |   e|		.XXX[0x65]
01b1 0002 0003  |    |
01b3 0004 0005  |    |
01b5 0006 0007  |    |
01b7 0008 0009  |    |
01b9 000a 000b  |    |
01bb 000c 000d  |    |
01bd 000e 000f  |    |
01bf 0010 0011  |    |
01c1 0012 0013  |    |
01c3 0014 0015  |    |
01c5 0016 0017  |    |
01c7 0018 0019  |    |
01c9 001a 001b  |    |
01cb 001c 001d  |    |
01cd 001e 001f  |    |
01cf 0020 0021  |   !|
01d1 0022 0023  | " #|
01d3 0024 0025  | $ %|
01d5 0026 0027  | & '|
01d7 0028 0029  | ( )|
01d9 002a 002b  | * +|
01db 002c 002d  | , -|
01dd 002e 002f  | . /|
01df 0030 0031  | 0 1|
01e1 0032 0033  | 2 3|
01e3 0034 0035  | 4 5|
01e5 0036 0037  | 6 7|
01e7 0038 0039  | 8 9|
01e9 003a 003b  | : ;|
01eb 003c 003d  | < =|
01ed 003e 003f  | > ?|
01ef 0040 0041  | @ A|
01f1 0042 0043  | B C|
01f3 0044 0045  | D E|
01f5 0046 0047  | F G|
01f7 0048 0049  | H I|
01f9 004a 004b  | J K|
01fb 004c 004d  | L M|
01fd 004e 004f  | N O|
01ff 0050 0051  | P Q|
0201 0052 0053  | R S|
0203 0054 0055  | T U|
0205 0056 0057  | V W|
0207 0058 0059  | X Y|
0209 005a 005b  | Z [|
020b 005c 005d  | \ ]|
020d 005e 005f  | ^ _|
020f 0060 0061  | ` a|
0211 0062 0063  | b c|
0213 0064       | d  |
0214 0000 0000  |    |		.BLANK	0000[0x1ec]