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

⟦8ad82f69f⟧

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

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 00d0       |    |		.CONST	0x00d0								; 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 007c       | |  |		.CONST	0x007c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 4800       |H   |		Short_Literal	0x0
000f 4802       |H   |		Short_Literal	0x2
0010 029f 0093  |    |		Declare_Subprogram	INIT_0090,For_Call
0012 03fd       |    |		Declare_Type	Discrete,Defined
0013 4800       |H   |		Short_Literal	0x0
0014 4802       |H   |		Short_Literal	0x2
0015 e001       |    |		Load	0x0,0x1
0016 01d7       |    |		Execute	Vector,Field_Read
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 038e       |    |		Declare_Type	Package,Defined
0019 e001       |    |		Load	0x0,0x1
001a 4801       |H   |		Short_Literal	0x1
001b e001       |    |		Load	0x0,0x1
001c 01d7       |    |		Execute	Vector,Field_Read
001d 4802       |H   |		Short_Literal	0x2
001e 00db       |    |		Load_Top	At_Offset_3
001f 020e       |    |		Execute	Module,Augment_Imports
0020 0387       |    |		Declare_Variable	Package
0021 e002       |    |		Load	0x0,0x2
0022 e003       |    |		Load	0x0,0x3
0023 a004       |    |		Store_Unchecked	0x0,0x4
0024 a005       |    |		Store_Unchecked	0x0,0x5
0025 a006       |    |		Store_Unchecked	0x0,0x6
0026 e007       |    |		Load	0x0,0x7
0027 a008       |    |		Store_Unchecked	0x0,0x8
0028 a009       |    |		Store_Unchecked	0x0,0x9
0029 a00a       |    |		Store_Unchecked	0x0,0xa
002a a00b       |    |		Store_Unchecked	0x0,0xb
002b a00c       |    |		Store_Unchecked	0x0,0xc
002c a00d       |    |		Store_Unchecked	0x0,0xd
002d a00e       |    |		Store_Unchecked	0x0,0xe
002e e00f       |    |		Load	0x0,0xf
002f a010       |    |		Store_Unchecked	0x0,0x10
0030 a011       |    |		Store_Unchecked	0x0,0x11
0031 a012       |    |		Store_Unchecked	0x0,0x12
0032 4811       |H   |		Short_Literal	0x11
0033 e20f       |    |		Load	0x1,0xf
0034 020e       |    |		Execute	Module,Augment_Imports
0035 00d8       |    |		Load_Top	At_Offset_0
0036 020f       |    |		Execute	Module,Activate
0037 4800       |H   |		Short_Literal	0x0
0038 4804       |H   |		Short_Literal	0x4
0039 e001       |    |		Load	0x0,0x1
003a 01d7       |    |		Execute	Vector,Field_Read
003b 02a0       |    |		Declare_Subprogram	Null_Subprogram
003c 038e       |    |		Declare_Type	Package,Defined
003d e001       |    |		Load	0x0,0x1
003e 4803       |H   |		Short_Literal	0x3
003f e001       |    |		Load	0x0,0x1
0040 01d7       |    |		Execute	Vector,Field_Read
0041 4802       |H   |		Short_Literal	0x2
0042 00db       |    |		Load_Top	At_Offset_3
0043 020e       |    |		Execute	Module,Augment_Imports
0044 0387       |    |		Declare_Variable	Package
0045 e002       |    |		Load	0x0,0x2
0046 e013       |    |		Load	0x0,0x13
0047 a005       |    |		Store_Unchecked	0x0,0x5
0048 a014       |    |		Store_Unchecked	0x0,0x14
0049 a015       |    |		Store_Unchecked	0x0,0x15
004a a016       |    |		Store_Unchecked	0x0,0x16
004b e00f       |    |		Load	0x0,0xf
004c a017       |    |		Store_Unchecked	0x0,0x17
004d 4808       |H   |		Short_Literal	0x8
004e e210       |    |		Load	0x1,0x10
004f 020e       |    |		Execute	Module,Augment_Imports
0050 00d8       |    |		Load_Top	At_Offset_0
0051 020f       |    |		Execute	Module,Activate
0052 0093 0000  |    |		push_full_address	0x0
0054 6037       |`7  |		Indirect_Literal	Discrete,0x8c,{0x80000000, 0x00010000}
0055 0273       | s  |		Execute	Discrete,Plus
0056 e018       |    |		Load	0x0,0x18
0057 0273       | s  |		Execute	Discrete,Plus
0058 e019       |    |		Load	0x0,0x19
0059 0273       | s  |		Execute	Discrete,Plus
005a 4800       |H   |		Short_Literal	0x0
005b e20e       |    |		Load	0x1,0xe
005c 4802       |H   |		Short_Literal	0x2
005d 4800       |H   |		Short_Literal	0x0
005e e20f       |    |		Load	0x1,0xf
005f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0060 e20f       |    |		Load	0x1,0xf
0061 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0062 4801       |H   |		Short_Literal	0x1
0063 e210       |    |		Load	0x1,0x10
0064 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0065 e210       |    |		Load	0x1,0x10
0066 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0067 4802       |H   |		Short_Literal	0x2
0068 00c4       |    |		Action	Make_Default
0069 a01a       |    |		Store_Unchecked	0x0,0x1a
006a 4802       |H   |		Short_Literal	0x2
006b 00c4       |    |		Action	Make_Default
006c a01a       |    |		Store_Unchecked	0x0,0x1a
006d 4802       |H   |		Short_Literal	0x2
006e 00c4       |    |		Action	Make_Default
006f a01a       |    |		Store_Unchecked	0x0,0x1a
0070 e01b       |    |		Load	0x0,0x1b
0071 c21c       |    |		Store	0x1,0x1c
0072 e01b       |    |		Load	0x0,0x1b
0073 c21f       |    |		Store	0x1,0x1f
0074 e01b       |    |		Load	0x0,0x1b
0075 c222       | "  |		Store	0x1,0x22
0076 e01c       |    |		Load	0x0,0x1c
0077 0387       |    |		Declare_Variable	Package
0078 00d8       |    |		Load_Top	At_Offset_0
0079 020f       |    |		Execute	Module,Activate
007a 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
007b 00c7       |    |		Action	Elaborate_Subprogram
007c			BODY_0008:
007c 00bc       |    |		Action	Signal_Activated
007d 00bb       |    |		Action	Signal_Completion
007e 0000 0000  |    |		.XXX[0x2]
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 00db       |    |		Load_Top	At_Offset_3
0084 00db       |    |		Load_Top	At_Offset_3
0085 e01d       |    |		Load	0x0,0x1d
0086 e211       |    |		Load	0x1,0x11
0087 0096       |    |		Execute	Package,Entry
0088 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0089 0000 0000  |    |		.XXX[0x3]
008b 0000       |    |
008c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 4607       |F   |		Jump_Case	0x8
0094 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0095 7807       |x   |		Jump	0x9d								; case 0x1
0096 780a       |x   |		Jump	0xa1								; case 0x2
0097 780e       |x   |		Jump	0xa6								; case 0x3
0098 7811       |x   |		Jump	0xaa								; case 0x4
0099 7812       |x   |		Jump	0xac								; case 0x5
009a 7813       |x   |		Jump	0xae								; case 0x6
009b 7816       |x   |		Jump	0xb2								; case 0x7
009c 4302       |C   |		.XXX[0x1]
009d 00da       |    |		Load_Top	At_Offset_2
009e 0091 00b6  |    |		Action	Push_String_Extended_Indexed,0xb6				; "PAIR_BALL_AND_BOXES"
00a0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00a1 00db       |    |		Load_Top	At_Offset_3
00a2 00db       |    |		Load_Top	At_Offset_3
00a3 00e0       |    |		Load_Encached	Standard_Cache
00a4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00a5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 00e0       |    |		Load_Encached	Standard_Cache
00a8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00aa 00db       |    |		Load_Top	At_Offset_3
00ab 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ac 00db       |    |		Load_Top	At_Offset_3
00ad 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ae e20e       |    |		Load	0x1,0xe
00af 00dc       |    |		Load_Top	At_Offset_4
00b0 0267       | g  |		Execute	Discrete,Predecessor
00b1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b2 e20e       |    |		Load	0x1,0xe
00b3 00dc       |    |		Load_Top	At_Offset_4
00b4 0268       | h  |		Execute	Discrete,Successor
00b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b6 ; --------------------------------------------------------------------------------------
00b6 ; STRING TABLE
00b6 ; --------------------------------------------------------------------------------------
00b6 0008       |    |		.STRTAB	0x0008->0x00ba							; "PAIR_BALL_AND_BOXES"
00b7 0019       |    |		.STRTAB	0x0019->0x00c3							; "REMOVE_THE_ROBOTS"
00b8 0028       | (  |		.STRTAB	0x0028->0x00cc							; "NO_MORE"
00b9 002d       | -  |		.STREND 0x002d->0x00cf
00ba 5041 4952  |PAIR|		.STRTAB_STRINGS
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x6567,0x0000,0x0001,0x0004
00d6 000b 00e6  |    |		.DBG4T	0x000b,0x00e6,0x8000,0x0000
00da 000e 00e9  |    |		.DBG4T	0x000e,0x00e9,0x8000,0x0000
00de 0083 00f2  |    |		.DBG4T	0x0083,0x00f2,0x0001,0x0000
00e2 0093 0000  |    |		.DBG4T	0x0093,0x0000,0x0005,0x0000
00e6 ; --------------------------------------------------------------------------------------
00e6 ; Debug chain
00e6 ; --------------------------------------------------------------------------------------
00e6 0001 0000  |    |		.DBGLEN	0x0001,0x0000
00e8 000b       |    |		.DBGLNO	0x000b
00e9 ; --------------------------------------------------------------------------------------
00e9 ; Debug chain
00e9 ; --------------------------------------------------------------------------------------
00e9 0007 0000  |    |		.DBGLEN	0x0007,0x0000
00eb 000e 0013  |    |		.DBGLNO	0x000e,0x0013,0x0021,0x0037,0x0045,0x0052,0x007a
00f2 ; --------------------------------------------------------------------------------------
00f2 ; Debug chain
00f2 ; --------------------------------------------------------------------------------------
00f2 0000 0001  |    |		.DBGLEN	0x0000,0x0001
00f4 0083       |    |		.DBGLNO	0x0083
00f5 0000 0000  |    |		.BLANK	0000[0x10b]