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

⟦3110eded1⟧

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

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 00b0       |    |		.CONST	0x00b0								; 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 0021       | !  |		.CONST	0x0021								; Address of begin
0009 0045       | E  |		.CONST	0x0045								; Address of exception handler
000a 0006       |    |		.CONST	0x0006								; Number of locals
000b			INIT_0008:
000b e008       |    |		Load	0x0,0x8
000c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
000d 02c7       |    |		Declare_Variable	Any
000e 00d8       |    |		Load_Top	At_Offset_0
000f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0010 e00a       |    |		Load	0x0,0xa
0011 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0012 02c7       |    |		Declare_Variable	Any
0013 00d8       |    |		Load_Top	At_Offset_0
0014 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0015 e010       |    |		Load	0x0,0x10
0016 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0017 02c7       |    |		Declare_Variable	Any
0018 00d8       |    |		Load_Top	At_Offset_0
0019 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001a e012       |    |		Load	0x0,0x12
001b 1b66       | f  |		Execute	Package,Field_Read,Field_Number 0x66
001c 02c7       |    |		Declare_Variable	Any
001d 00d8       |    |		Load_Top	At_Offset_0
001e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001f 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0021			BODY_0008:
0021 00be       |    |		Action	Activate_Tasks
0022 e402       |    |		Load	0x2,0x2
0023 0120       |    |		Execute	Any,Is_Value
0024 6803       |h   |		Jump_Zero	0x28
0025 e008       |    |		Load	0x0,0x8
0026 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0027 7801       |x   |		Jump	0x29
0028 e402       |    |		Load	0x2,0x2
0029 e5fc       |    |		Load	0x2,-0x4
002a 8250       | P  |		Call	0x1,0x50
002b c402       |    |		Store	0x2,0x2
002c 4800       |H   |		Short_Literal	0x0
002d e5fc       |    |		Load	0x2,-0x4
002e e5fd       |    |		Load	0x2,-0x3
002f e5fe       |    |		Load	0x2,-0x2
0030 e5ff       |    |		Load	0x2,-0x1
0031 8248       | H  |		Call	0x1,0x48
0032 0092 0091  |    |		Action	Push_String_Extended,0x91					; "Build"
0034 8249       | I  |		Call	0x1,0x49
0035 e5fe       |    |		Load	0x2,-0x2
0036 8251       | Q  |		Call	0x1,0x51
0037 c405       |    |		Store	0x2,0x5
0038 00da       |    |		Load_Top	At_Offset_2
0039 00da       |    |		Load_Top	At_Offset_2
003a e012       |    |		Load	0x0,0x12
003b 186b       | k  |		Execute	Package,Field_Execute,Field_Number 0x6b
003c e5fd       |    |		Load	0x2,-0x3
003d 824d       | M  |		Call	0x1,0x4d
003e c404       |    |		Store	0x2,0x4
003f 8406       |    |		Call	0x2,0x6
0040 e402       |    |		Load	0x2,0x2
0041 0092 0091  |    |		Action	Push_String_Extended,0x91					; "Build"
0043 824b       | K  |		Call	0x1,0x4b
0044 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0045			TRAP_0008:
0045 e00d       |    |		Load	0x0,0xd
0046 010f       |    |		Execute	Exception,Equal
0047 6805       |h   |		Jump_Zero	0x4d
0048 e402       |    |		Load	0x2,0x2
0049 0092 0091  |    |		Action	Push_String_Extended,0x91					; "Build"
004b 824a       | J  |		Call	0x1,0x4a
004c 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
004d e008       |    |		Load	0x0,0x8
004e 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
004f 010f       |    |		Execute	Exception,Equal
0050 6805       |h   |		Jump_Zero	0x56
0051 e402       |    |		Load	0x2,0x2
0052 0092 0091  |    |		Action	Push_String_Extended,0x91					; "Build"
0054 824a       | J  |		Call	0x1,0x4a
0055 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0056 4800       |H   |		Short_Literal	0x0
0057 0092 0091  |    |		Action	Push_String_Extended,0x91					; "Build"
0059 824c       | L  |		Call	0x1,0x4c
005a e402       |    |		Load	0x2,0x2
005b 0092 0091  |    |		Action	Push_String_Extended,0x91					; "Build"
005d 824a       | J  |		Call	0x1,0x4a
005e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
005f 0000       |    |		.XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006f       | o  |		.CONST	0x006f								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0004       |    |		.CONST	0x0004								; Number of locals
0063			INIT_0060:
0063 e013       |    |		Load	0x0,0x13
0064 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0065 02a0       |    |		Declare_Subprogram	Null_Subprogram
0066 4818       |H   |		Short_Literal	0x18
0067 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0068 e405       |    |		Load	0x2,0x5
0069 e5ff       |    |		Load	0x2,-0x1
006a 824f       | O  |		Call	0x1,0x4f
006b 00d9       |    |		Load_Top	At_Offset_1
006c 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
006d 00d8       |    |		Load_Top	At_Offset_0
006e 0227       | '  |		Execute	Access,All_Reference
006f			BODY_0060:
006f 00cf       |    |		Action	Mark_Auxiliary
0070 781b       |x   |		Jump	0x8c
0071 e403       |    |		Load	0x2,0x3
0072 e404       |    |		Load	0x2,0x4
0073 e405       |    |		Load	0x2,0x5
0074 e604       |    |		Load	0x3,0x4
0075 e013       |    |		Load	0x0,0x13
0076 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0077 e014       |    |		Load	0x0,0x14
0078 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0079 c403       |    |		Store	0x2,0x3
007a 4800       |H   |		Short_Literal	0x0
007b 4822       |H"  |		Short_Literal	0x22
007c 0092 0092  |    |		Action	Push_String_Extended,0x92					; "Errors detected while processing document \x22"
007e e604       |    |		Load	0x3,0x4
007f e013       |    |		Load	0x0,0x13
0080 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0081 e013       |    |		Load	0x0,0x13
0082 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0083 01cc       |    |		Execute	Vector,Catenate
0084 01cb       |    |		Execute	Vector,Append
0085 e403       |    |		Load	0x2,0x3
0086 8247       | G  |		Call	0x1,0x47
0087 00d9       |    |		Load_Top	At_Offset_1
0088 e013       |    |		Load	0x0,0x13
0089 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
008a 00d1       |    |		Pop_Control	Pop_Count_1
008b 00c9       |    |		Action	Pop_Auxiliary_Loop
008c 00d9       |    |		Load_Top	At_Offset_1
008d e013       |    |		Load	0x0,0x13
008e 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
008f 6fe1       |o   |		Jump_Zero	0x71
0090 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0091 ; --------------------------------------------------------------------------------------
0091 ; STRING TABLE
0091 ; --------------------------------------------------------------------------------------
0091 0006       |    |		.STRTAB	0x0006->0x0094							; "Build"
0092 0009       |    |		.STRTAB	0x0009->0x0096							; "Errors detected while processing document \x22"
0093 0032       | 2  |		.STREND 0x0032->0x00ac
0094 4275 696c  |Buil|		.STRTAB_STRINGS
00ac 0000 0000  |    |		.BLANK	0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xc6ec,0x0000,0x0001,0x0000
00b6 9886 389d  |  8 |		.XXX[0x14a]
00b8 99d7 6eb3  |  n |
00ba f6b7 3c17  |  < |
00bc 9409 65d0  |  e |
00be 02ba c498  |    |
00c0 0ab8 0ebb  |    |
00c2 f2b7 c2b7  |    |
00c4 18d6 440b  |  D |
00c6 d2b7 e6b5  |    |
00c8 5060 c46a  |P` j|
00ca bc28 16ba  | (  |
00cc 56a2 c408  |V   |
00ce 36bb f6b7  |6   |
00d0 e2a0 56ba  |  V |
00d2 c49b 16a1  |    |
00d4 3008 62b9  |0 b |
00d6 7c00 f41c  ||   |
00d8 2e44 6eb8  |.Dn |
00da 4abb f89c  |J   |
00dc 32b8 4ab9  |2 J |
00de 481c 8ebb  |H   |
00e0 d6b4 6c04  |  l |
00e2 9ab8 3ab8  |  : |
00e4 a2b8 46bb  |  F |
00e6 d6b7 c69e  |    |
00e8 cc04 72ba  |  r |
00ea 16af bca4  |    |
00ec 5534 72b9  |U4r |
00ee aaac b2b8  |    |
00f0 3abb aea2  |:   |
00f2 4838 c2b9  |H8  |
00f4 f5e3 9408  |    |
00f6 a81c 72b8  |  r |
00f8 f2b8 26b8  |  & |
00fa 5439 f5e0  |T9  |
00fc 982c 82bb  | ,  |
00fe d6b5 0eb9  |    |
0100 02ba 0e0c  |    |
0102 2c04 dabb  |,   |
0104 f6b5 22ba  |  " |
0106 eea1 02b9  |    |
0108 e860 00a0  | `  |
010a eabb 99b6  |    |
010c a86c 4ab9  | lJ |
010e 4ebb d6b4  |N   |
0110 c6b8 f41f  |    |
0112 4119 46b8  |A F |
0114 a00d 62bb  |  b |
0116 a010 72b9  |  r |
0118 62b8 52b8  |b R |
011a 4ab9 72b9  |J r |
011c 02b9 c400  |    |
011e 9035 2aba  | 5* |
0120 c498 72a5  |  r |
0122 cc3c 72b9  | <r |
0124 b931 1ebb  | 1  |
0126 1935 02b9  | 5  |
0128 2c06 fc18  |,   |
012a 72b9 2c05  |r , |
012c cc3c e007  | <  |
012e d6b6 6aac  |  j |
0130 0002 de4f  |   O|
0132 61cd 6000  |a ` |
0134 8804 b07e  |   ~|
0136 ee4d eeb9  | M  |
0138 f042 d1cc  | B  |
013a 8c15 e036  |   6|
013c 8020 da4f  |   O|
013e 3994 e153  |9  S|
0140 924e 563c  | NV<|
0142 882f 8dfd  | /  |
0144 4838 78e2  |H8x |
0146 e643 f556  | C V|
0148 3486 36b8  |4 6 |
014a b86b 7c1e  | k| |
014c fe3d 7c1f  | =| |
014e e0a6 ca40  |   @|
0150 8403 8404  |    |
0152 c64c 021b  | L  |
0154 280b da03  |(   |
0156 04aa c066  |   f|
0158 1ca2 e42b  |   +|
015a 8ca8 2c88  |  , |
015c 0aa5 4ccb  |  L |
015e 8caa 6aba  |  j |
0160 0954 b64c  | T L|
0162 b869 0c66  | i f|
0164 78cb 764d  |x vM|
0166 3067 3deb  |0g= |
0168 da4f d085  | O  |
016a d23c c155  | < U|
016c 4845 e1fd  |HE  |
016e 707d 901e  |p}  |
0170 fdda cebb  |    |
0172 4cc7 71d5  |L q |
0174 34db b1fb  |4   |
0176 50fe c957  |P  W|
0178 263b ca4e  |&; N|
017a 3c6d 8886  |<m  |
017c bebb a06f  |   o|
017e c40f d6ac  |    |
0180 fc1c ba45  |   E|
0182 7085 363c  |p 6<|
0184 8d0e c697  |    |
0186 ad51 65dd  | Qe |
0188 7863 c24f  |xc O|
018a 25d7 bc0b  |%   |
018c c86c 10ee  | l  |
018e d210 a40f  |    |
0190 6c09 bc18  |l   |
0192 b803 da4c  |   L|
0194 1a51 0cca  | Q  |
0196 ce3a e64c  | : L|
0198 dca6 78ca  |  x |
019a a1da 38c7  |  8 |
019c f587 09d9  |    |
019e 8402 d5da  |    |
01a0 c1db 0435  |   5|
01a2 a63a d1d9  | :  |
01a4 5c1f 1e0e  |\   |
01a6 e5da cc06  |    |
01a8 edd9 a63a  |   :|
01aa f9db 01db  |    |
01ac 09d9 f007  |    |
01ae 11da c5db  |    |
01b0 a6bb 0dda  |    |
01b2 7deb 2dda  |} - |
01b4 e5d9 381f  |  8 |
01b6 41db c2b9  |A   |
01b8 b43a aa4b  | : K|
01ba 05d8 3a3f  |  :?|
01bc 5217 65d8  |R e |
01be 324f 40aa  |2O@ |
01c0 0c87 7dd8  |  } |
01c2 e80a b1d8  |    |
01c4 24ab bddb  |$   |
01c6 f87b 89d9  | {  |
01c8 3064 32bd  |0d2 |
01ca 4ccb d5db  |L   |
01cc 85db b5d9  |    |
01ce bc18 42be  |  B |
01d0 5096 b296  |P   |
01d2 f01c 5abc  |  Z |
01d4 8000 4abf  |  J |
01d6 ddda 6236  |  b6|
01d8 3857 a407  |8W  |
01da bc0c 3807  |  8 |
01dc d1fc 3805  |  8 |
01de 7003 8406  |p   |
01e0 9cc5 7001  |  p |
01e2 b800 9abf  |    |
01e4 b0e5 b800  |    |
01e6 96bd e208  |    |
01e8 a2bf 8404  |    |
01ea 8402 a5d9  |    |
01ec ec08 9402  |    |
01ee 04a4 e808  |    |
01f0 92bf 8404  |    |
01f2 a2bc 0002  |    |
01f4 6c13 8404  |l   |
01f6 8abf b157  |   W|
01f8 280a fc1a  |(   |
01fa 0abb 6027  |  `'|
01fc f1fc 5817  |  X |
01fe f63e 308c  | >0 |