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

⟦863d12d12⟧

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

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 00b8       |    |		.CONST	0x00b8								; 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 001f       |    |		.CONST	0x001f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000a       |    |		.CONST	0x000a								; Number of locals
000b			INIT_0008:
000b e039       | 9  |		Load	0x0,0x39
000c 0322       | "  |		Declare_Variable	Record
000d e00e       |    |		Load	0x0,0xe
000e 0322       | "  |		Declare_Variable	Record
000f 00d8       |    |		Load_Top	At_Offset_0
0010 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0011 00e3       |    |		Load_Encached	Natural_Cache
0012 e7ff       |    |		Load	0x3,-0x1
0013 803a       | :  |		Call	0x0,0x3a
0014 4801       |H   |		Short_Literal	0x1
0015 e7ff       |    |		Load	0x3,-0x1
0016 803b       | ;  |		Call	0x0,0x3b
0017 4801       |H   |		Short_Literal	0x1
0018 e7ff       |    |		Load	0x3,-0x1
0019 803c       | <  |		Call	0x0,0x3c
001a 4801       |H   |		Short_Literal	0x1
001b e7ff       |    |		Load	0x3,-0x1
001c 803d       | =  |		Call	0x0,0x3d
001d 00e3       |    |		Load_Encached	Natural_Cache
001e 00e3       |    |		Load_Encached	Natural_Cache
001f			BODY_0008:
001f e7ff       |    |		Load	0x3,-0x1
0020 e603       |    |		Load	0x3,0x3
0021 017d       | }  |		Execute	Record,Structure_Write
0022 e7ff       |    |		Load	0x3,-0x1
0023 803e       | >  |		Call	0x0,0x3e
0024 a604       |    |		Store_Unchecked	0x3,0x4
0025 e604       |    |		Load	0x3,0x4
0026 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0027 687a       |hz  |		Jump_Zero	0xa2
0028 4800       |H   |		Short_Literal	0x0
0029 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
002a 00da       |    |		Load_Top	At_Offset_2
002b e606       |    |		Load	0x3,0x6
002c e607       |    |		Load	0x3,0x7
002d e605       |    |		Load	0x3,0x5
002e 803f       | ?  |		Call	0x0,0x3f
002f e602       |    |		Load	0x3,0x2
0030 017d       | }  |		Execute	Record,Structure_Write
0031 00da       |    |		Load_Top	At_Offset_2
0032 e606       |    |		Load	0x3,0x6
0033 e607       |    |		Load	0x3,0x7
0034 e605       |    |		Load	0x3,0x5
0035 e602       |    |		Load	0x3,0x2
0036 8040       | @  |		Call	0x0,0x40
0037 705f       |p_  |		Jump_Nonzero	0x97
0038 e604       |    |		Load	0x3,0x4
0039 0f01       |    |		Execute_Immediate	Equal,0x1
003a 6808       |h   |		Jump_Zero	0x43
003b 00da       |    |		Load_Top	At_Offset_2
003c e606       |    |		Load	0x3,0x6
003d e607       |    |		Load	0x3,0x7
003e e605       |    |		Load	0x3,0x5
003f e602       |    |		Load	0x3,0x2
0040 8041       | A  |		Call	0x0,0x41
0041 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0042 7854       |xT  |		Jump	0x97
0043 00cf       |    |		Action	Mark_Auxiliary
0044 00db       |    |		Load_Top	At_Offset_3
0045 e606       |    |		Load	0x3,0x6
0046 e607       |    |		Load	0x3,0x7
0047 e605       |    |		Load	0x3,0x5
0048 e602       |    |		Load	0x3,0x2
0049 8041       | A  |		Call	0x0,0x41
004a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
004b 0092 00ab  |    |		Action	Push_String_Extended,0xab					; "behavior_id : "
004d 00db       |    |		Load_Top	At_Offset_3
004e 00e0       |    |		Load_Encached	Standard_Cache
004f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0050 01cc       |    |		Execute	Vector,Catenate
0051 e031       | 1  |		Load	0x0,0x31
0052 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
0053 00cf       |    |		Action	Mark_Auxiliary
0054 e604       |    |		Load	0x3,0x4
0055 4802       |H   |		Short_Literal	0x2
0056 0263       | c  |		Execute	Discrete,Above_Bound
0057 703b       |p;  |		Jump_Nonzero	0x93
0058 e609       |    |		Load	0x3,0x9
0059 00d9       |    |		Load_Top	At_Offset_1
005a 00d8       |    |		Load_Top	At_Offset_0
005b e042       | B  |		Load	0x0,0x42
005c 0260       | `  |		Execute	Discrete,In_Type
005d 7001       |p   |		Jump_Nonzero	0x5f
005e 0801       |    |		Execute_Immediate	Raise,0x1
005f e7ff       |    |		Load	0x3,-0x1
0060 803d       | =  |		Call	0x0,0x3d
0061 00da       |    |		Load_Top	At_Offset_2
0062 00d8       |    |		Load_Top	At_Offset_0
0063 e042       | B  |		Load	0x0,0x42
0064 0260       | `  |		Execute	Discrete,In_Type
0065 7001       |p   |		Jump_Nonzero	0x67
0066 0801       |    |		Execute_Immediate	Raise,0x1
0067 e7ff       |    |		Load	0x3,-0x1
0068 803b       | ;  |		Call	0x0,0x3b
0069 00db       |    |		Load_Top	At_Offset_3
006a 00d8       |    |		Load_Top	At_Offset_0
006b e042       | B  |		Load	0x0,0x42
006c 0260       | `  |		Execute	Discrete,In_Type
006d 7001       |p   |		Jump_Nonzero	0x6f
006e 0801       |    |		Execute_Immediate	Raise,0x1
006f e7ff       |    |		Load	0x3,-0x1
0070 803c       | <  |		Call	0x0,0x3c
0071 e605       |    |		Load	0x3,0x5
0072 8043       | C  |		Call	0x0,0x43
0073 6809       |h   |		Jump_Zero	0x7d
0074 00d8       |    |		Load_Top	At_Offset_0
0075 e604       |    |		Load	0x3,0x4
0076 027f       |    |		Execute	Discrete,Equal
0077 6819       |h   |		Jump_Zero	0x91
0078 e609       |    |		Load	0x3,0x9
0079 a60a       |    |		Store_Unchecked	0x3,0xa
007a 00d2       |    |		Pop_Control	Pop_Count_2
007b 00ce       |    |		Action	Pop_Auxiliary
007c 7819       |x   |		Jump	0x96
007d e608       |    |		Load	0x3,0x8
007e e606       |    |		Load	0x3,0x6
007f e607       |    |		Load	0x3,0x7
0080 e605       |    |		Load	0x3,0x5
0081 e602       |    |		Load	0x3,0x2
0082 8044       | D  |		Call	0x0,0x44
0083 e602       |    |		Load	0x3,0x2
0084 017d       | }  |		Execute	Record,Structure_Write
0085 e608       |    |		Load	0x3,0x8
0086 e606       |    |		Load	0x3,0x6
0087 e607       |    |		Load	0x3,0x7
0088 e605       |    |		Load	0x3,0x5
0089 e602       |    |		Load	0x3,0x2
008a 8040       | @  |		Call	0x0,0x40
008b 6803       |h   |		Jump_Zero	0x8f
008c 00d2       |    |		Pop_Control	Pop_Count_2
008d 00ce       |    |		Action	Pop_Auxiliary
008e 7807       |x   |		Jump	0x96
008f 00d2       |    |		Pop_Control	Pop_Count_2
0090 7802       |x   |		Jump	0x93
0091 00c8       |    |		Action	Pop_Auxiliary_Range
0092 3fc5       |?   |		Loop_Increasing	0x58
0093 00ce       |    |		Action	Pop_Auxiliary
0094 00c9       |    |		Action	Pop_Auxiliary_Loop
0095 7fae       |    |		Jump	0x44
0096 00ce       |    |		Action	Pop_Auxiliary
0097 00d8       |    |		Load_Top	At_Offset_0
0098 e7ff       |    |		Load	0x3,-0x1
0099 8011       |    |		Call	0x0,0x11
009a e7ff       |    |		Load	0x3,-0x1
009b 8007       |    |		Call	0x0,0x7
009c e7ff       |    |		Load	0x3,-0x1
009d 8045       | E  |		Call	0x0,0x45
009e 8046       | F  |		Call	0x0,0x46
009f e603       |    |		Load	0x3,0x3
00a0 017d       | }  |		Execute	Record,Structure_Write
00a1 7804       |x   |		Jump	0xa6
00a2 e603       |    |		Load	0x3,0x3
00a3 4803       |H   |		Short_Literal	0x3
00a4 8017       |    |		Call	0x0,0x17
00a5 00d1       |    |		Pop_Control	Pop_Count_1
00a6 e7ff       |    |		Load	0x3,-0x1
00a7 8007       |    |		Call	0x0,0x7
00a8 e603       |    |		Load	0x3,0x3
00a9 8214       |    |		Call	0x1,0x14
00aa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ab ; --------------------------------------------------------------------------------------
00ab ; STRING TABLE
00ab ; --------------------------------------------------------------------------------------
00ab 0004       |    |		.STRTAB	0x0004->0x00ad							; "behavior_id : "
00ac 0010       |    |		.STREND 0x0010->0x00b4
00ad 6265 6861  |beha|		.STRTAB_STRINGS
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0xd4d1,0x0000,0x0001,0x0000
00be c9e0       |    |		.XXX[0x1]
00bf 0000 0000  |    |		.BLANK	0000[0x5]
00c4 0090 0002  |    |		.XXX[0x68]
00c6 9a10 3dd2  |  = |
00c8 8030 3dd2  | 0= |
00ca 7620 3dd3  |v = |
00cc 7c18 1ee9  ||   |
00ce 6880 001e  |h   |
00d0 a5c2 03dd  |    |
00d2 2d50 03dd  |-P  |
00d4 2ea3 0001  |.   |
00d6 da28 0131  | ( 1|
00d8 307a 0000  |0z  |
00da 0000 07ba  |    |
00dc 5fec 0000  |_   |
00de 0000 07ba  |    |
00e0 61ec 000c  |a   |
00e2 bdc0 0200  |    |
00e4 01da 2408  |  $ |
00e6 4085 c000  |@   |
00e8 8000 3b44  |  ;D|
00ea 8000 3b45  |  ;E|
00ec 0026 260f  | && |
00ee 4000 0000  |@   |
00f0 00f7 4c7d  |  L}|
00f2 c000 0000  |    |
00f4 0000 0000  |    |
00f6 0001 97b8  |    |
00f8 0040 003b  | @ ;|
00fa 4481 0810  |D   |
00fc b800 0c00  |    |
00fe 0768 900f  | h  |
0100 74c1 dc00  |t   |
0102 0000 0000  |    |
0104 0000 0800  |    |
0106 0000 0000  |    |
0108 0000 0400  |    |
010a 197b 8000  | {  |
010c 0000 0000  |    |
010e 0000 000f  |    |
0110 74c5 dc00  |t   |
0112 0000 0000  |    |
0114 0000 0800  |    |
0116 0000 0000  |    |
0118 1050 7600  | Pv |
011a 03b7 e000  |    |
011c 0000 0000  |    |
011e 0000 0007  |    |
0120 ba64 f000  | d  |
0122 0000 0000  |    |
0124 0000 0400  |    |
0126 0000 0000  |    |
0128 0000 0200  |    |
012a 0cbd c000  |    |
012c 0000 0000  |    |		.BLANK	0000[0x5]
0131 1200 01da  |    |		.XXX[0x19]
0133 2807 ba59  |(  Y|
0135 9a00 0000  |    |
0137 0000 0000  |    |
0139 0003 dd33  |   3|
013b db00 03eb  |    |
013d 5d60 7ba6  |]`{ |
013f 8360 7ba6  | `{ |
0141 adc0 009c  |    |
0143 fe80 020a  |    |
0145 0ec0 0000  |    |
0147 0000 f74d  |   M|
0149 b040       | @  |
014a 0000 0000  |    |		.BLANK	0000[0x4]
014e 00ae e780  |    |		.XXX[0x9]
0150 4000 9cc5  |@   |
0152 4b00 10a8  |K   |
0154 001c 0013  |    |
0156 9568       | h  |
0157 0000 0000  |    |		.BLANK	0000[0xe]
0165 0800 0000  |    |		.XXX[0xd]
0167 0000 0000  |    |
0169 0003 8000  |    |
016b 0000 01ee  |    |
016d 9ba1 0000  |    |
016f 0000 0000  |    |
0171 0001       |    |
0172 0000 0000  |    |		.BLANK	0000[0x4]
0176 8001 5dcf  |  ] |		.XXX[0x2]
0178 0000 0000  |    |		.BLANK	0000[0x5]
017d 0004 8001  |    |		.XXX[0x2f]
017f 39fd 01ee  |9   |
0181 99cc 01ee  |    |
0183 997b 81ee  | {  |
0185 9ec5 80f7  |    |
0187 4e29 4002  |N)@ |
0189 20cc 081e  |    |
018b e9c7 281e  |  ( |
018d e9d1 c000  |    |
018f 2c22 801d  |,"  |
0191 5c8e c000  |\   |
0193 0000 003d  |   =|
0195 d3b8 b000  |    |
0197 0000 0000  |    |
0199 0000 0001  |    |
019b 328e 8010  |2   |
019d 002c 1d20  | ,  |
019f 4204 2e00  |B . |
01a1 0400 0583  |    |
01a3 a400 0584  |    |
01a5 5003 ab91  |P   |
01a7 d800 0000  |    |
01a9 0007 ba79  |   y|
01ab 1600       |    |
01ac 0000 0000  |    |		.BLANK	0000[0x4]
01b0 2651 d002  |&Q  |		.XXX[0x15]
01b2 0005 83a4  |    |
01b4 0840 85c0  | @  |
01b6 0060 00b0  | `  |
01b8 7480 7ba7  |t { |
01ba 8180 0000  |    |
01bc 0000 0000  |    |
01be 0040 0000  | @  |
01c0 0000 0000  |    |
01c2 0020 0265  |   e|
01c4 1d00       |    |
01c5 0000 0000  |    |		.BLANK	0000[0x4]
01c9 7ba7 a180  |{   |		.XXX[0xc]
01cb 0000 0000  |    |
01cd 0000 0040  |   @|
01cf 0000 0000  |    |
01d1 0000 0020  |    |
01d3 0265 1d00  | e  |
01d5 0000 0000  |    |		.BLANK	0000[0x5]
01da 0120 0058  |   X|		.XXX[0x5]
01dc 4500 7ba7  |E { |
01de 0c40       | @  |
01df 0000 0000  |    |		.BLANK	0000[0x4]
01e3 3dd3 e6f0  |=   |		.XXX[0x10]
01e5 0000 7fe0  |    |
01e7 07ba 7d5e  |  }^|
01e9 07ba 8004  |    |
01eb 0000 0a2c  |   ,|
01ed 00eb 863c  |   <|
01ef 0000 0000  |    |
01f1 0f75 0554  | u T|
01f3 0000 0000  |    |		.BLANK	0000[0x5]
01f8 02d0 0400  |    |		.XXX[0x8]
01fa 0000 a8b0  |    |
01fc 0100 0001  |    |
01fe c000 000c  |    |