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

⟦48134d7c7⟧

    Length: 1024 (0x400)
    Notes: 00_class, 580b_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

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 580b       |X   |		.CONST	0x580b								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 00e8       |    |		.CONST	0x00e8								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x010a,0x8000,0x0000,0x0039,0x3546,0x0000,0x000f
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 0062       | b  |		.CONST	0x0062								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0004       |    |		.CONST	0x0004								; Number of locals
001b			INIT_0018:
001b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x1 = .DEBUG	0x001b,0x010c,0x8001,0x0000,0x0039,0x3546,0x0000,0x000f
													; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 4805       |H   |		Short_Literal	0x5
001d 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
001f 03fd       |    |		Declare_Type	Discrete,Defined
0020 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call				; Debug Table 0x1.0x1 = 0x20,0xfffe
0022 607d       |`}  |		Indirect_Literal	Discrete,0xa0,{0x00000000, 0x00393546}		; Debug Table 0x1.0x2 = 0x22,0xfffd
0023 4866       |Hf  |		Short_Literal	0x66
0024 00db       |    |		Load_Top	At_Offset_3
0025 4803       |H   |		Short_Literal	0x3
0026 4802       |H   |		Short_Literal	0x2
0027 0099       |    |		Action	Reference_Dynamic
0028 0092 00aa  |    |		Action	Push_String_Extended,0xaa					; "CG_DIR"
002a 4814       |H   |		Short_Literal	0x14
002b 4819       |H   |		Short_Literal	0x19
002c e001       |    |		Load	0x0,0x1
002d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002e e001       |    |		Load	0x0,0x1
002f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0030 e001       |    |		Load	0x0,0x1
0031 1911       |    |		Execute	Package,Field_Reference,Field_Number 0x11
0032 e001       |    |		Load	0x0,0x1
0033 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0034 e001       |    |		Load	0x0,0x1
0035 1913       |    |		Execute	Package,Field_Reference,Field_Number 0x13
0036 e001       |    |		Load	0x0,0x1
0037 1914       |    |		Execute	Package,Field_Reference,Field_Number 0x14
0038 e001       |    |		Load	0x0,0x1
0039 1915       |    |		Execute	Package,Field_Reference,Field_Number 0x15
003a e001       |    |		Load	0x0,0x1
003b 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
003c e001       |    |		Load	0x0,0x1
003d 1917       |    |		Execute	Package,Field_Reference,Field_Number 0x17
003e e001       |    |		Load	0x0,0x1
003f 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
0040 e001       |    |		Load	0x0,0x1
0041 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0042 e001       |    |		Load	0x0,0x1
0043 191a       |    |		Execute	Package,Field_Reference,Field_Number 0x1a
0044 e001       |    |		Load	0x0,0x1
0045 191b       |    |		Execute	Package,Field_Reference,Field_Number 0x1b
0046 e001       |    |		Load	0x0,0x1
0047 191c       |    |		Execute	Package,Field_Reference,Field_Number 0x1c
0048 e001       |    |		Load	0x0,0x1
0049 191d       |    |		Execute	Package,Field_Reference,Field_Number 0x1d
004a e001       |    |		Load	0x0,0x1
004b 191e       |    |		Execute	Package,Field_Reference,Field_Number 0x1e
004c e001       |    |		Load	0x0,0x1
004d 191f       |    |		Execute	Package,Field_Reference,Field_Number 0x1f
004e e001       |    |		Load	0x0,0x1
004f 1920       |    |		Execute	Package,Field_Reference,Field_Number 0x20
0050 e001       |    |		Load	0x0,0x1
0051 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
0052 e001       |    |		Load	0x0,0x1
0053 1922       | "  |		Execute	Package,Field_Reference,Field_Number 0x22
0054 e001       |    |		Load	0x0,0x1
0055 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
0056 e001       |    |		Load	0x0,0x1
0057 1924       | $  |		Execute	Package,Field_Reference,Field_Number 0x24
0058 e001       |    |		Load	0x0,0x1
0059 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
005a e001       |    |		Load	0x0,0x1
005b 1926       | &  |		Execute	Package,Field_Reference,Field_Number 0x26
005c e001       |    |		Load	0x0,0x1
005d 1927       | '  |		Execute	Package,Field_Reference,Field_Number 0x27
005e e002       |    |		Load	0x0,0x2
005f 0387       |    |		Declare_Variable	Package
0060 00d8       |    |		Load_Top	At_Offset_0
0061 020f       |    |		Execute	Module,Activate
0062			BODY_0018:
0062 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x1.0x3 = 0x62,0x1
0063 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0064 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x2 = .DEBUG	0x006b,0x0116,0x0005,0x0000,0x0039,0x3546,0x0000,0x0012
006c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
006d 7802       |x   |		Jump	0x70								; case 0x1
006e 7805       |x   |		Jump	0x74								; case 0x2
006f 7809       |x   |		Jump	0x79								; case 0x3
0070 00da       |    |		Load_Top	At_Offset_2
0071 0091 00a4  |    |		Action	Push_String_Extended_Indexed,0xa4				; "ATTRIBUTE_STANDARD"
0073 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0074 00db       |    |		Load_Top	At_Offset_3
0075 00db       |    |		Load_Top	At_Offset_3
0076 00e0       |    |		Load_Encached	Standard_Cache
0077 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0078 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0079 00da       |    |		Load_Top	At_Offset_2
007a 00e0       |    |		Load_Encached	Standard_Cache
007b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
007c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x0083,0x0118,0x0001,0x0000,0x0039,0x3546,0x0000,0x001c
													; Debug Table 0x3.0x0 = 0x83,0x1
0084 4605       |F   |		Jump_Case	0x6
0085 780e       |x   |		Jump	0x94								; case 0x0
0086 7804       |x   |		Jump	0x8b								; case 0x1
0087 7806       |x   |		Jump	0x8e								; case 0x2
0088 7808       |x   |		Jump	0x91								; case 0x3
0089 780c       |x   |		Jump	0x96								; case 0x4
008a 780f       |x   |		Jump	0x9a								; case 0x5
008b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x1 = 0x8b,0x2
008c 8003       |    |		Call	0x0,0x3
008d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
008e 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x2 = 0x8e,0x3
008f 8003       |    |		Call	0x0,0x3
0090 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0091 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x3 = 0x91,0x4
0092 8003       |    |		Call	0x0,0x3
0093 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0094 8004       |    |		Call	0x0,0x4								; Debug Table 0x3.0x4 = 0x94,0x5
0095 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0096 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3.0x5 = 0x96,0x6
0097 e005       |    |		Load	0x0,0x5
0098 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0099 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009a 4800       |H   |		Short_Literal	0x0							; Debug Table 0x3.0x6 = 0x9a,0x7
009b e005       |    |		Load	0x0,0x5
009c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
009d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
009e 0000 0000  |    |		.XXX[0x2]
00a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00393546}
00a4 ; --------------------------------------------------------------------------------------
00a4 ; STRING TABLE
00a4 ; --------------------------------------------------------------------------------------
00a4 0010       |    |		.STRTAB	0x0010->0x00ac							; "ATTRIBUTE_STANDARD"
00a5 0020       |    |		.STRTAB	0x0020->0x00b5							; "CDIR_TESTER"
00a6 0029       | )  |		.STRTAB	0x0029->0x00ba							; "SECOND_CDIR_TESTER"
00a7 0039       | 9  |		.STRTAB	0x0039->0x00c3							; "THIRD_CDIR_TESTER"
00a8 0048       | H  |		.STRTAB	0x0048->0x00cc							; "SET_IGNORE_IMPACT"
00a9 0057       | W  |		.STRTAB	0x0057->0x00d4							; "RESET_IGNORE_IMPACT"
00aa 0068       | h  |		.STRTAB	0x0068->0x00de							; "CG_DIR"
00ab 006c       | l  |		.STREND 0x006c->0x00e1
00ac 4154 5452  |ATTR|		.STRTAB_STRINGS
00e1 0000 0000  |    |		.BLANK	0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0003 0004  |    |		.CONST	0x0003,0x0004
00ea 000b 010a  |    |		.DEBUG	0x000b,0x010a,0x8000,0x0000,0x0039,0x3546,0x0000,0x000f
00f2 001b 010c  |    |		.DEBUG	0x001b,0x010c,0x8001,0x0000,0x0039,0x3546,0x0000,0x000f
00fa 006b 0116  | k  |		.DEBUG	0x006b,0x0116,0x0005,0x0000,0x0039,0x3546,0x0000,0x0012
0102 0083 0118  |    |		.DEBUG	0x0083,0x0118,0x0001,0x0000,0x0039,0x3546,0x0000,0x001c
010a ; --------------------------------------------------------------------------------------
010a ; Debug3 Subtable 0x0
010a ; --------------------------------------------------------------------------------------
010a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
010c ; --------------------------------------------------------------------------------------
010c ; Debug3 Subtable 0x1
010c ; --------------------------------------------------------------------------------------
010c 0003 0001  |    |		.DBG3TAB	0x0003,0x0001
010e 001b ffff  |    |		.CONST	0x001b,0xffff
0110 0020 fffe  |    |		.CONST	0x0020,0xfffe
0112 0022 fffd  | "  |		.CONST	0x0022,0xfffd
0114 0062 0001  | b  |		.CONST	0x0062,0x0001
0116 ; --------------------------------------------------------------------------------------
0116 ; Debug3 Subtable 0x2
0116 ; --------------------------------------------------------------------------------------
0116 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug3 Subtable 0x3
0118 ; --------------------------------------------------------------------------------------
0118 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
011a 0083 0001  |    |		.CONST	0x0083,0x0001
011c 008b 0002  |    |		.CONST	0x008b,0x0002
011e 008e 0003  |    |		.CONST	0x008e,0x0003
0120 0091 0004  |    |		.CONST	0x0091,0x0004
0122 0094 0005  |    |		.CONST	0x0094,0x0005
0124 0096 0006  |    |		.CONST	0x0096,0x0006
0126 009a 0007  |    |		.CONST	0x009a,0x0007
0128 0000 0000  |    |		.BLANK	0000[0xd8]