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

⟦9dad60edc⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 00e0       |    |		.CONST	0x00e0								; 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 0094       |    |		.CONST	0x0094								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b 4801       |H   |		Short_Literal	0x1
000c 4806       |H   |		Short_Literal	0x6
000d 00e9       |    |		Load_Encached	String_Cache
000e 0334       | 4  |		Declare_Variable	Array,With_Constraint
000f 50b0       |P   |		Indirect_Literal	Any,0xc0,{0x5443502f, 0x49502020}
0010 0129       | )  |		Execute	Any,Make_Visible
0011 4800       |H   |		Short_Literal	0x0
0012 4801       |H   |		Short_Literal	0x1
0013 e002       |    |		Load	0x0,0x2
0014 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0015 035b       | [  |		Declare_Type	Array,Constrained
0016 0337       | 7  |		Declare_Variable	Array
0017 480a       |H   |		Short_Literal	0xa
0018 4800       |H   |		Short_Literal	0x0
0019 00da       |    |		Load_Top	At_Offset_2
001a 01d6       |    |		Execute	Vector,Field_Write
001b 4828       |H(  |		Short_Literal	0x28
001c 4801       |H   |		Short_Literal	0x1
001d 00da       |    |		Load_Top	At_Offset_2
001e 01d6       |    |		Execute	Vector,Field_Write
001f 0129       | )  |		Execute	Any,Make_Visible
0020 0092 00c6  |    |		Action	Push_String_Extended,0xc6					; "ancolie"
0022 0129       | )  |		Execute	Any,Make_Visible
0023 00d8       |    |		Load_Top	At_Offset_0
0024 00da       |    |		Load_Top	At_Offset_2
0025 8003       |    |		Call	0x0,0x3
0026 0129       | )  |		Execute	Any,Make_Visible
0027 4800       |H   |		Short_Literal	0x0
0028 4801       |H   |		Short_Literal	0x1
0029 e002       |    |		Load	0x0,0x2
002a 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
002b 035b       | [  |		Declare_Type	Array,Constrained
002c 0337       | 7  |		Declare_Variable	Array
002d 4800       |H   |		Short_Literal	0x0
002e 4800       |H   |		Short_Literal	0x0
002f 00da       |    |		Load_Top	At_Offset_2
0030 01d6       |    |		Execute	Vector,Field_Write
0031 4800       |H   |		Short_Literal	0x0
0032 4801       |H   |		Short_Literal	0x1
0033 00da       |    |		Load_Top	At_Offset_2
0034 01d6       |    |		Execute	Vector,Field_Write
0035 0129       | )  |		Execute	Any,Make_Visible
0036 0092 00c7  |    |		Action	Push_String_Extended,0xc7					; "none"
0038 00d9       |    |		Load_Top	At_Offset_1
0039 8003       |    |		Call	0x0,0x3
003a 0129       | )  |		Execute	Any,Make_Visible
003b 0092 00c7  |    |		Action	Push_String_Extended,0xc7					; "none"
003d 00da       |    |		Load_Top	At_Offset_2
003e 8003       |    |		Call	0x0,0x3
003f 0129       | )  |		Execute	Any,Make_Visible
0040 0092 00c8  |    |		Action	Push_String_Extended,0xc8					; "No content"
0042 0129       | )  |		Execute	Any,Make_Visible
0043 4800       |H   |		Short_Literal	0x0
0044 4801       |H   |		Short_Literal	0x1
0045 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
0047 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0048 00d8       |    |		Load_Top	At_Offset_0
0049 0266       | f  |		Execute	Discrete,Bounds
004a 4801       |H   |		Short_Literal	0x1
004b 4804       |H   |		Short_Literal	0x4
004c e004       |    |		Load	0x0,0x4
004d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
004e 035c       | \  |		Declare_Type	Array,Constrained,Visible
004f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0050 4801       |H   |		Short_Literal	0x1
0051 035e       | ^  |		Declare_Type	Array,Defined,Visible
0052 00d8       |    |		Load_Top	At_Offset_0
0053 0336       | 6  |		Declare_Variable	Array,Visible
0054 00d8       |    |		Load_Top	At_Offset_0
0055 0335       | 5  |		Declare_Variable	Array,Duplicate
0056 00cd       |    |		Action	Spare6_Action
0057 00da       |    |		Load_Top	At_Offset_2
0058 01d8       |    |		Execute	Vector,Element_Type
0059 0337       | 7  |		Declare_Variable	Array
005a 48c1       |H   |		Short_Literal	0xc1
005b 4801       |H   |		Short_Literal	0x1
005c 00da       |    |		Load_Top	At_Offset_2
005d 01d6       |    |		Execute	Vector,Field_Write
005e 4836       |H6  |		Short_Literal	0x36
005f 4802       |H   |		Short_Literal	0x2
0060 00da       |    |		Load_Top	At_Offset_2
0061 01d6       |    |		Execute	Vector,Field_Write
0062 4892       |H   |		Short_Literal	0x92
0063 4803       |H   |		Short_Literal	0x3
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 4884       |H   |		Short_Literal	0x84
0067 4804       |H   |		Short_Literal	0x4
0068 00da       |    |		Load_Top	At_Offset_2
0069 01d6       |    |		Execute	Vector,Field_Write
006a 00db       |    |		Load_Top	At_Offset_3
006b 01d8       |    |		Execute	Vector,Element_Type
006c 0119       |    |		Execute	Any,Check_In_Formal_Type
006d 4800       |H   |		Short_Literal	0x0
006e 00da       |    |		Load_Top	At_Offset_2
006f 01d6       |    |		Execute	Vector,Field_Write
0070 00da       |    |		Load_Top	At_Offset_2
0071 01d8       |    |		Execute	Vector,Element_Type
0072 0337       | 7  |		Declare_Variable	Array
0073 48c1       |H   |		Short_Literal	0xc1
0074 4801       |H   |		Short_Literal	0x1
0075 00da       |    |		Load_Top	At_Offset_2
0076 01d6       |    |		Execute	Vector,Field_Write
0077 4836       |H6  |		Short_Literal	0x36
0078 4802       |H   |		Short_Literal	0x2
0079 00da       |    |		Load_Top	At_Offset_2
007a 01d6       |    |		Execute	Vector,Field_Write
007b 4892       |H   |		Short_Literal	0x92
007c 4803       |H   |		Short_Literal	0x3
007d 00da       |    |		Load_Top	At_Offset_2
007e 01d6       |    |		Execute	Vector,Field_Write
007f 4885       |H   |		Short_Literal	0x85
0080 4804       |H   |		Short_Literal	0x4
0081 00da       |    |		Load_Top	At_Offset_2
0082 01d6       |    |		Execute	Vector,Field_Write
0083 00db       |    |		Load_Top	At_Offset_3
0084 01d8       |    |		Execute	Vector,Element_Type
0085 0119       |    |		Execute	Any,Check_In_Formal_Type
0086 4801       |H   |		Short_Literal	0x1
0087 00da       |    |		Load_Top	At_Offset_2
0088 01d6       |    |		Execute	Vector,Field_Write
0089 00d9       |    |		Load_Top	At_Offset_1
008a 01d4       |    |		Execute	Vector,Structure_Write
008b e005       |    |		Load	0x0,0x5
008c e006       |    |		Load	0x0,0x6
008d e215       |    |		Load	0x1,0x15
008e e007       |    |		Load	0x0,0x7
008f 1b53       | S  |		Execute	Package,Field_Read,Field_Number 0x53
0090 0386       |    |		Declare_Variable	Package,Visible
0091 00d8       |    |		Load_Top	At_Offset_0
0092 020f       |    |		Execute	Module,Activate
0093 00bf       |    |		Action	Accept_Activation
0094			BODY_0008:
0094 00bc       |    |		Action	Signal_Activated
0095 00bb       |    |		Action	Signal_Completion
0096 0000 0000  |    |		.XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 4607       |F   |		Jump_Case	0x8
009c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
009d 7807       |x   |		Jump	0xa5								; case 0x1
009e 780a       |x   |		Jump	0xa9								; case 0x2
009f 780e       |x   |		Jump	0xae								; case 0x3
00a0 7811       |x   |		Jump	0xb2								; case 0x4
00a1 7812       |x   |		Jump	0xb4								; case 0x5
00a2 7813       |x   |		Jump	0xb6								; case 0x6
00a3 7816       |x   |		Jump	0xba								; case 0x7
00a4 4302       |C   |		.XXX[0x1]
00a5 00da       |    |		Load_Top	At_Offset_2
00a6 0091 00c4  |    |		Action	Push_String_Extended_Indexed,0xc4				; "ANCOLIE"
00a8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00a9 00db       |    |		Load_Top	At_Offset_3
00aa 00db       |    |		Load_Top	At_Offset_3
00ab 00e0       |    |		Load_Encached	Standard_Cache
00ac 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ae 00da       |    |		Load_Top	At_Offset_2
00af 00e0       |    |		Load_Encached	Standard_Cache
00b0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00b2 00db       |    |		Load_Top	At_Offset_3
00b3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b4 00db       |    |		Load_Top	At_Offset_3
00b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b6 e215       |    |		Load	0x1,0x15
00b7 00dc       |    |		Load_Top	At_Offset_4
00b8 0267       | g  |		Execute	Discrete,Predecessor
00b9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ba e215       |    |		Load	0x1,0x15
00bb 00dc       |    |		Load_Top	At_Offset_4
00bc 0268       | h  |		Execute	Discrete,Successor
00bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00be 0000 0000  |    |		.XXX[0x2]
00c0 5443 502f  |TCP/|		.LITERAL	{0x5443502f, 0x49502020}
00c4 ; --------------------------------------------------------------------------------------
00c4 ; STRING TABLE
00c4 ; --------------------------------------------------------------------------------------
00c4 000c       |    |		.STRTAB	0x000c->0x00ca							; "ANCOLIE"
00c5 0011       |    |		.STRTAB	0x0011->0x00cd							; "FICUS"
00c6 0014       |    |		.STRTAB	0x0014->0x00d0							; "ancolie"
00c7 0019       |    |		.STRTAB	0x0019->0x00d3							; "none"
00c8 001b       |    |		.STRTAB	0x001b->0x00d5							; "No content"
00c9 0023       | #  |		.STREND 0x0023->0x00da
00ca 414e 434f  |ANCO|		.STRTAB_STRINGS
00db 0000 0000  |    |		.BLANK	0000[0x5]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x3305,0x0000,0x0001,0x0002
00e6 000b 00ee  |    |		.DBG4T	0x000b,0x00ee,0x8000,0x8000
00ea 009b 0000  |    |		.DBG4T	0x009b,0x0000,0x0005,0x0000
00ee ; --------------------------------------------------------------------------------------
00ee ; Debug chain
00ee ; --------------------------------------------------------------------------------------
00ee 000c 0000  |    |		.DBGLEN	0x000c,0x0000
00f0 000b 0011  |    |		.DBGLNO	0x000b,0x0011,0x0020,0x0023,0x0027,0x0036,0x003b,0x0040,0x0043,0x0048,0x0052,0x008b
00fc 0001 0002  |    |		.XXX[0xc]
00fe 0003 0004  |    |
0100 0005 0006  |    |
0102 0007 0009  |    |
0104 000a 000b  |    |
0106 000c 000d  |    |
0108 0000 0000  |    |		.BLANK	0000[0xf8]