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

⟦7729c3745⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8

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 5811       |X   |		.CONST	0x5811								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0078       | x  |		.CONST	0x0078								; 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 0023       | #  |		.CONST	0x0023								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0015       |    |		.CONST	0x0015								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0							; Debug Table 0x0 = .DEBUG	0x000b,0x008a,0x8000,0x0000,0x0033,0x7804,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4806       |H   |		Short_Literal	0x6
000d 029f 002b  |   +|		Declare_Subprogram	INIT_0028,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 0129       | )  |		Execute	Any,Make_Visible
0012 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0.0x2 = 0x12,0xfffd
0013 0129       | )  |		Execute	Any,Make_Visible
0014 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0.0x3 = 0x14,0xfffc
0015 0129       | )  |		Execute	Any,Make_Visible
0016 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0.0x4 = 0x16,0xfffb
0017 0129       | )  |		Execute	Any,Make_Visible
0018 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x0.0x5 = 0x18,0xfffa
0019 0129       | )  |		Execute	Any,Make_Visible
001a 602d       |`-  |		Indirect_Literal	Discrete,0x48,{0x00000000, 0x33780401}		; Debug Table 0x0.0x6 = 0x1a,0xfff9
001b 0129       | )  |		Execute	Any,Make_Visible
001c 6027       |`'  |		Indirect_Literal	Discrete,0x44,{0x00000000, 0x33780402}		; Debug Table 0x0.0x7 = 0x1c,0xfff8
001d 0129       | )  |		Execute	Any,Make_Visible
001e 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x8 = 0x1e,0xfff7
001f 6020       |`   |		Indirect_Literal	Discrete,0x40,{0x00000000, 0x33780403}		; Debug Table 0x0.0x9 = 0x1f,0xfff6
0020 0129       | )  |		Execute	Any,Make_Visible
0021 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0xa = 0x21,0xfff5
0022 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0xb = 0x22,0xfff4
0023			BODY_0008:
0023 00bc       |    |		Action	Signal_Activated
0024 00bb       |    |		Action	Signal_Completion
0025 0000 0000  |    |		.XXX[0x3]
0027 0000       |    |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b       | +  |		.CONST	0x002b								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 0001       |    |		.CONST	0x0001								; Number of locals
002b			BODY_0028:
002b			INIT_0028:
002b 4603       |F   |		Jump_Case	0x4							; Debug Table 0x1 = .DEBUG	0x002b,0x00a4,0x0005,0x0000,0x0033,0x7804,0x0000,0x0004
002c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
002d 7802       |x   |		Jump	0x30								; case 0x1
002e 7805       |x   |		Jump	0x34								; case 0x2
002f 7809       |x   |		Jump	0x39								; case 0x3
0030 e5ff       |    |		Load	0x2,-0x1
0031 0091 004c  |   L|		Action	Push_String_Extended_Indexed,0x4c				; "INTEGER_TYPE"
0033 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0034 e5fe       |    |		Load	0x2,-0x2
0035 e5ff       |    |		Load	0x2,-0x1
0036 00e0       |    |		Load_Encached	Standard_Cache
0037 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0038 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0039 e5ff       |    |		Load	0x2,-0x1
003a 00e0       |    |		Load_Encached	Standard_Cache
003b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
003c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
003d 0000 0000  |    |		.XXX[0x3]
003f 0000       |    |
0040 0000 0000  |    |		.LITERAL	{0x00000000, 0x33780403}
0044 0000 0000  |    |		.LITERAL	{0x00000000, 0x33780402}
0048 0000 0000  |    |		.LITERAL	{0x00000000, 0x33780401}
004c ; --------------------------------------------------------------------------------------
004c ; STRING TABLE
004c ; --------------------------------------------------------------------------------------
004c 0010       |    |		.STRTAB	0x0010->0x0054							; "INTEGER_TYPE"
004d 001a       |    |		.STRTAB	0x001a->0x005a							; "ENUM_TYPE"
004e 0021       | !  |		.STRTAB	0x0021->0x005e							; "FLOAT_TYPE"
004f 0029       | )  |		.STRTAB	0x0029->0x0063							; "ACCESS_TYPE"
0050 0032       | 2  |		.STRTAB	0x0032->0x0069							; "FIXED_TYPE"
0051 003a       | :  |		.STRTAB	0x003a->0x006e							; "TASK_TYPE"
0052 0041       | A  |		.STRTAB	0x0041->0x0072							; "OTHER_TYPE"
0053 0049       | I  |		.STREND 0x0049->0x0077
0054 494e 5445  |INTE|		.STRTAB_STRINGS
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0003 0002  |    |		.CONST	0x0003,0x0002
007a 000b 008a  |    |		.DEBUG	0x000b,0x008a,0x8000,0x0000,0x0033,0x7804,0x0000,0x0003
0082 002b 00a4  | +  |		.DEBUG	0x002b,0x00a4,0x0005,0x0000,0x0033,0x7804,0x0000,0x0004
008a ; --------------------------------------------------------------------------------------
008a ; Debug3 Subtable 0x0
008a ; --------------------------------------------------------------------------------------
008a 000c 0000  |    |		.DBG3TAB	0x000c,0x0000
008c 000b ffff  |    |		.CONST	0x000b,0xffff
008e 0010 fffe  |    |		.CONST	0x0010,0xfffe
0090 0012 fffd  |    |		.CONST	0x0012,0xfffd
0092 0014 fffc  |    |		.CONST	0x0014,0xfffc
0094 0016 fffb  |    |		.CONST	0x0016,0xfffb
0096 0018 fffa  |    |		.CONST	0x0018,0xfffa
0098 001a fff9  |    |		.CONST	0x001a,0xfff9
009a 001c fff8  |    |		.CONST	0x001c,0xfff8
009c 001e fff7  |    |		.CONST	0x001e,0xfff7
009e 001f fff6  |    |		.CONST	0x001f,0xfff6
00a0 0021 fff5  | !  |		.CONST	0x0021,0xfff5
00a2 0022 fff4  | "  |		.CONST	0x0022,0xfff4
00a4 ; --------------------------------------------------------------------------------------
00a4 ; Debug3 Subtable 0x1
00a4 ; --------------------------------------------------------------------------------------
00a4 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00a6 0000 0000  |    |		.BLANK	0000[0x15a]