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

⟦a2c29f2e6⟧

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

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 0088       |    |		.CONST	0x0088								; 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 001e       |    |		.CONST	0x001e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4800       |H   |		Short_Literal	0x0
000d 029f 0023  |   #|		Declare_Subprogram	INIT_0020,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 029a 004b  |   K|		Declare_Subprogram	INIT_0048,For_Outer_Call,Visible,Unelaborated
0012 4800       |H   |		Short_Literal	0x0
0013 4800       |H   |		Short_Literal	0x0
0014 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
0016 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0017 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0019 00bf       |    |		Action	Accept_Activation
001a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
001b 00c7       |    |		Action	Elaborate_Subprogram
001c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
001d 00c7       |    |		Action	Elaborate_Subprogram
001e			BODY_0008:
001e 00bc       |    |		Action	Signal_Activated
001f 00bb       |    |		Action	Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023       | #  |		.CONST	0x0023								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0001       |    |		.CONST	0x0001								; Number of locals
0023			BODY_0020:
0023			INIT_0020:
0023 4607       |F   |		Jump_Case	0x8
0024 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0025 7807       |x   |		Jump	0x2d								; case 0x1
0026 780a       |x   |		Jump	0x31								; case 0x2
0027 780e       |x   |		Jump	0x36								; case 0x3
0028 7811       |x   |		Jump	0x3a								; case 0x4
0029 7812       |x   |		Jump	0x3c								; case 0x5
002a 7813       |x   |		Jump	0x3e								; case 0x6
002b 7816       |x   |		Jump	0x42								; case 0x7
002c 4302       |C   |		.XXX[0x1]
002d 00da       |    |		Load_Top	At_Offset_2
002e 0091 007d  |   }|		Action	Push_String_Extended_Indexed,0x7d				; "NOTHING"
0030 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0031 00db       |    |		Load_Top	At_Offset_3
0032 00db       |    |		Load_Top	At_Offset_3
0033 00e0       |    |		Load_Encached	Standard_Cache
0034 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0035 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0036 00da       |    |		Load_Top	At_Offset_2
0037 00e0       |    |		Load_Encached	Standard_Cache
0038 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0039 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
003a 00db       |    |		Load_Top	At_Offset_3
003b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
003c 00db       |    |		Load_Top	At_Offset_3
003d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
003e e20d       |    |		Load	0x1,0xd
003f 00dc       |    |		Load_Top	At_Offset_4
0040 0267       | g  |		Execute	Discrete,Predecessor
0041 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0042 e20d       |    |		Load	0x1,0xd
0043 00dc       |    |		Load_Top	At_Offset_4
0044 0268       | h  |		Execute	Discrete,Successor
0045 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0046 0000 0000  |    |		.XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4800       |H   |		Short_Literal	0x0
004c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
004d 0000 0000  |    |		.XXX[0x3]
004f 0000       |    |
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 4607       |F   |		Jump_Case	0x8
0054 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0055 7807       |x   |		Jump	0x5d								; case 0x1
0056 780a       |x   |		Jump	0x61								; case 0x2
0057 780e       |x   |		Jump	0x66								; case 0x3
0058 7811       |x   |		Jump	0x6a								; case 0x4
0059 7812       |x   |		Jump	0x6c								; case 0x5
005a 7813       |x   |		Jump	0x6e								; case 0x6
005b 7816       |x   |		Jump	0x72								; case 0x7
005c 4302       |C   |		.XXX[0x1]
005d 00da       |    |		Load_Top	At_Offset_2
005e 0091 007e  |   ~|		Action	Push_String_Extended_Indexed,0x7e				; "NOTHING"
0060 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0061 00db       |    |		Load_Top	At_Offset_3
0062 00db       |    |		Load_Top	At_Offset_3
0063 00e0       |    |		Load_Encached	Standard_Cache
0064 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0065 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0066 00da       |    |		Load_Top	At_Offset_2
0067 00e0       |    |		Load_Encached	Standard_Cache
0068 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0069 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
006a 00db       |    |		Load_Top	At_Offset_3
006b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006c 00db       |    |		Load_Top	At_Offset_3
006d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006e e20f       |    |		Load	0x1,0xf
006f 00dc       |    |		Load_Top	At_Offset_4
0070 0267       | g  |		Execute	Discrete,Predecessor
0071 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0072 e20f       |    |		Load	0x1,0xf
0073 00dc       |    |		Load_Top	At_Offset_4
0074 0268       | h  |		Execute	Discrete,Successor
0075 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0076 0000 0000  |    |		.XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 4800       |H   |		Short_Literal	0x0
007c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
007d ; --------------------------------------------------------------------------------------
007d ; STRING TABLE
007d ; --------------------------------------------------------------------------------------
007d 0006       |    |		.STRTAB	0x0006->0x0080							; "NOTHING"
007e 000b       |    |		.STRTAB	0x000b->0x0083							; "NOTHING"
007f 0010       |    |		.STREND 0x0010->0x0087
0080 4e4f 5448  |NOTH|		.STRTAB_STRINGS
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x901c,0x0000,0x0001,0x0006
008e 000b 00a6  |    |		.DBG4T	0x000b,0x00a6,0x8000,0x0000
0092 001a 00ac  |    |		.DBG4T	0x001a,0x00ac,0x8000,0x0000
0096 0023 0000  | #  |		.DBG4T	0x0023,0x0000,0x0005,0x0000
009a 004b 00b0  | K  |		.DBG4T	0x004b,0x00b0,0x0002,0x0000
009e 0053 0000  | S  |		.DBG4T	0x0053,0x0000,0x0005,0x0000
00a2 007b 00b3  | {  |		.DBG4T	0x007b,0x00b3,0x0002,0x0000
00a6 ; --------------------------------------------------------------------------------------
00a6 ; Debug chain
00a6 ; --------------------------------------------------------------------------------------
00a6 0004 0000  |    |		.DBGLEN	0x0004,0x0000
00a8 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0012,0x0017
00ac ; --------------------------------------------------------------------------------------
00ac ; Debug chain
00ac ; --------------------------------------------------------------------------------------
00ac 0002 0000  |    |		.DBGLEN	0x0002,0x0000
00ae 001a 001c  |    |		.DBGLNO	0x001a,0x001c
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug chain
00b0 ; --------------------------------------------------------------------------------------
00b0 0000 0001  |    |		.DBGLEN	0x0000,0x0001
00b2 004b       | K  |		.DBGLNO	0x004b
00b3 ; --------------------------------------------------------------------------------------
00b3 ; Debug chain
00b3 ; --------------------------------------------------------------------------------------
00b3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
00b5 007b       | {  |		.DBGLNO	0x007b
00b6 0000 0000  |    |		.BLANK	0000[0x14a]