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

⟦fe08ac8d3⟧

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

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 0148       | H  |		.CONST	0x0148								; 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 00f3       |    |		.CONST	0x00f3								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 4800       |H   |		Short_Literal	0x0
000f 4802       |H   |		Short_Literal	0x2
0010 029f 010b  |    |		Declare_Subprogram	INIT_0108,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 e006       |    |		Load	0x0,0x6
0026 e007       |    |		Load	0x0,0x7
0027 a008       |    |		Store_Unchecked	0x0,0x8
0028 a009       |    |		Store_Unchecked	0x0,0x9
0029 e00a       |    |		Load	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 a00f       |    |		Store_Unchecked	0x0,0xf
002f a010       |    |		Store_Unchecked	0x0,0x10
0030 480f       |H   |		Short_Literal	0xf
0031 e20f       |    |		Load	0x1,0xf
0032 020e       |    |		Execute	Module,Augment_Imports
0033 00d8       |    |		Load_Top	At_Offset_0
0034 020f       |    |		Execute	Module,Activate
0035 4800       |H   |		Short_Literal	0x0
0036 4804       |H   |		Short_Literal	0x4
0037 e001       |    |		Load	0x0,0x1
0038 01d7       |    |		Execute	Vector,Field_Read
0039 02a0       |    |		Declare_Subprogram	Null_Subprogram
003a 038e       |    |		Declare_Type	Package,Defined
003b e001       |    |		Load	0x0,0x1
003c 4803       |H   |		Short_Literal	0x3
003d e001       |    |		Load	0x0,0x1
003e 01d7       |    |		Execute	Vector,Field_Read
003f 4802       |H   |		Short_Literal	0x2
0040 00db       |    |		Load_Top	At_Offset_3
0041 020e       |    |		Execute	Module,Augment_Imports
0042 0387       |    |		Declare_Variable	Package
0043 e002       |    |		Load	0x0,0x2
0044 e006       |    |		Load	0x0,0x6
0045 e00a       |    |		Load	0x0,0xa
0046 a008       |    |		Store_Unchecked	0x0,0x8
0047 a004       |    |		Store_Unchecked	0x0,0x4
0048 a009       |    |		Store_Unchecked	0x0,0x9
0049 e011       |    |		Load	0x0,0x11
004a a012       |    |		Store_Unchecked	0x0,0x12
004b a00c       |    |		Store_Unchecked	0x0,0xc
004c a00d       |    |		Store_Unchecked	0x0,0xd
004d a013       |    |		Store_Unchecked	0x0,0x13
004e a014       |    |		Store_Unchecked	0x0,0x14
004f a00e       |    |		Store_Unchecked	0x0,0xe
0050 a010       |    |		Store_Unchecked	0x0,0x10
0051 480e       |H   |		Short_Literal	0xe
0052 e210       |    |		Load	0x1,0x10
0053 020e       |    |		Execute	Module,Augment_Imports
0054 00d8       |    |		Load_Top	At_Offset_0
0055 020f       |    |		Execute	Module,Activate
0056 0093 0000  |    |		push_full_address	0x0
0058 60ab       |`   |		Indirect_Literal	Discrete,0x104,{0x80000000, 0x00010000}
0059 0273       | s  |		Execute	Discrete,Plus
005a e015       |    |		Load	0x0,0x15
005b 0273       | s  |		Execute	Discrete,Plus
005c e016       |    |		Load	0x0,0x16
005d 0273       | s  |		Execute	Discrete,Plus
005e 4800       |H   |		Short_Literal	0x0
005f e20e       |    |		Load	0x1,0xe
0060 4802       |H   |		Short_Literal	0x2
0061 4800       |H   |		Short_Literal	0x0
0062 0092 012e  |   .|		Action	Push_String_Extended,0x12e					; "CONGRATULATIONS"
0064 e20f       |    |		Load	0x1,0xf
0065 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0066 e20f       |    |		Load	0x1,0xf
0067 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0068 4801       |H   |		Short_Literal	0x1
0069 0092 012f  |   /|		Action	Push_String_Extended,0x12f					; "IMPOSSIBLE"
006b e210       |    |		Load	0x1,0x10
006c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
006d e210       |    |		Load	0x1,0x10
006e 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
006f 4802       |H   |		Short_Literal	0x2
0070 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0072 00c4       |    |		Action	Make_Default
0073 a017       |    |		Store_Unchecked	0x0,0x17
0074 4802       |H   |		Short_Literal	0x2
0075 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0077 00c4       |    |		Action	Make_Default
0078 a017       |    |		Store_Unchecked	0x0,0x17
0079 4802       |H   |		Short_Literal	0x2
007a 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
007c 00c4       |    |		Action	Make_Default
007d a017       |    |		Store_Unchecked	0x0,0x17
007e 4802       |H   |		Short_Literal	0x2
007f 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0081 00c4       |    |		Action	Make_Default
0082 a017       |    |		Store_Unchecked	0x0,0x17
0083 4802       |H   |		Short_Literal	0x2
0084 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0086 00c4       |    |		Action	Make_Default
0087 a017       |    |		Store_Unchecked	0x0,0x17
0088 4802       |H   |		Short_Literal	0x2
0089 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
008b 00c4       |    |		Action	Make_Default
008c a017       |    |		Store_Unchecked	0x0,0x17
008d 4802       |H   |		Short_Literal	0x2
008e 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0090 00c4       |    |		Action	Make_Default
0091 a017       |    |		Store_Unchecked	0x0,0x17
0092 4802       |H   |		Short_Literal	0x2
0093 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0095 00c4       |    |		Action	Make_Default
0096 a017       |    |		Store_Unchecked	0x0,0x17
0097 4802       |H   |		Short_Literal	0x2
0098 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
009a 00c4       |    |		Action	Make_Default
009b a017       |    |		Store_Unchecked	0x0,0x17
009c 4802       |H   |		Short_Literal	0x2
009d 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
009f 00c4       |    |		Action	Make_Default
00a0 a017       |    |		Store_Unchecked	0x0,0x17
00a1 4802       |H   |		Short_Literal	0x2
00a2 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00a4 00c4       |    |		Action	Make_Default
00a5 a017       |    |		Store_Unchecked	0x0,0x17
00a6 4802       |H   |		Short_Literal	0x2
00a7 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00a9 00c4       |    |		Action	Make_Default
00aa a017       |    |		Store_Unchecked	0x0,0x17
00ab 4802       |H   |		Short_Literal	0x2
00ac 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00ae 00c4       |    |		Action	Make_Default
00af a017       |    |		Store_Unchecked	0x0,0x17
00b0 4802       |H   |		Short_Literal	0x2
00b1 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00b3 00c4       |    |		Action	Make_Default
00b4 a017       |    |		Store_Unchecked	0x0,0x17
00b5 4802       |H   |		Short_Literal	0x2
00b6 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00b8 00c4       |    |		Action	Make_Default
00b9 a017       |    |		Store_Unchecked	0x0,0x17
00ba 4802       |H   |		Short_Literal	0x2
00bb 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00bd 00c4       |    |		Action	Make_Default
00be a017       |    |		Store_Unchecked	0x0,0x17
00bf 4802       |H   |		Short_Literal	0x2
00c0 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00c2 00c4       |    |		Action	Make_Default
00c3 a017       |    |		Store_Unchecked	0x0,0x17
00c4 4802       |H   |		Short_Literal	0x2
00c5 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00c7 00c4       |    |		Action	Make_Default
00c8 a017       |    |		Store_Unchecked	0x0,0x17
00c9 e018       |    |		Load	0x0,0x18
00ca c21f       |    |		Store	0x1,0x1f
00cb e018       |    |		Load	0x0,0x18
00cc c223       | #  |		Store	0x1,0x23
00cd e018       |    |		Load	0x0,0x18
00ce c227       | '  |		Store	0x1,0x27
00cf e018       |    |		Load	0x0,0x18
00d0 c22b       | +  |		Store	0x1,0x2b
00d1 e018       |    |		Load	0x0,0x18
00d2 c22f       | /  |		Store	0x1,0x2f
00d3 e018       |    |		Load	0x0,0x18
00d4 c233       | 3  |		Store	0x1,0x33
00d5 e018       |    |		Load	0x0,0x18
00d6 c237       | 7  |		Store	0x1,0x37
00d7 e018       |    |		Load	0x0,0x18
00d8 c23b       | ;  |		Store	0x1,0x3b
00d9 e018       |    |		Load	0x0,0x18
00da c23f       | ?  |		Store	0x1,0x3f
00db e018       |    |		Load	0x0,0x18
00dc c243       | C  |		Store	0x1,0x43
00dd e018       |    |		Load	0x0,0x18
00de c247       | G  |		Store	0x1,0x47
00df e018       |    |		Load	0x0,0x18
00e0 c24b       | K  |		Store	0x1,0x4b
00e1 e018       |    |		Load	0x0,0x18
00e2 c24f       | O  |		Store	0x1,0x4f
00e3 e018       |    |		Load	0x0,0x18
00e4 c253       | S  |		Store	0x1,0x53
00e5 e018       |    |		Load	0x0,0x18
00e6 c257       | W  |		Store	0x1,0x57
00e7 e018       |    |		Load	0x0,0x18
00e8 c25b       | [  |		Store	0x1,0x5b
00e9 e018       |    |		Load	0x0,0x18
00ea c25f       | _  |		Store	0x1,0x5f
00eb e018       |    |		Load	0x0,0x18
00ec c263       | c  |		Store	0x1,0x63
00ed e019       |    |		Load	0x0,0x19
00ee 0387       |    |		Declare_Variable	Package
00ef 00d8       |    |		Load_Top	At_Offset_0
00f0 020f       |    |		Execute	Module,Activate
00f1 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00f2 00c7       |    |		Action	Elaborate_Subprogram
00f3			BODY_0008:
00f3 00bc       |    |		Action	Signal_Activated
00f4 00bb       |    |		Action	Signal_Completion
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 00db       |    |		Load_Top	At_Offset_3
00fd e01a       |    |		Load	0x0,0x1a
00fe e211       |    |		Load	0x1,0x11
00ff 0096       |    |		Execute	Package,Entry
0100 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0101 0000 0000  |    |		.XXX[0x3]
0103 0000       |    |
0104 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4607       |F   |		Jump_Case	0x8
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7807       |x   |		Jump	0x115								; case 0x1
010e 780a       |x   |		Jump	0x119								; case 0x2
010f 780e       |x   |		Jump	0x11e								; case 0x3
0110 7811       |x   |		Jump	0x122								; case 0x4
0111 7812       |x   |		Jump	0x124								; case 0x5
0112 7813       |x   |		Jump	0x126								; case 0x6
0113 7816       |x   |		Jump	0x12a								; case 0x7
0114 4302       |C   |		.XXX[0x1]
0115 00da       |    |		Load_Top	At_Offset_2
0116 0091 012e  |   .|		Action	Push_String_Extended_Indexed,0x12e				; "CONGRATULATIONS"
0118 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0119 00db       |    |		Load_Top	At_Offset_3
011a 00db       |    |		Load_Top	At_Offset_3
011b 00e0       |    |		Load_Encached	Standard_Cache
011c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 00da       |    |		Load_Top	At_Offset_2
011f 00e0       |    |		Load_Encached	Standard_Cache
0120 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0121 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0122 00db       |    |		Load_Top	At_Offset_3
0123 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0124 00db       |    |		Load_Top	At_Offset_3
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 e20e       |    |		Load	0x1,0xe
0127 00dc       |    |		Load_Top	At_Offset_4
0128 0267       | g  |		Execute	Discrete,Predecessor
0129 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012a e20e       |    |		Load	0x1,0xe
012b 00dc       |    |		Load_Top	At_Offset_4
012c 0268       | h  |		Execute	Discrete,Successor
012d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012e ; --------------------------------------------------------------------------------------
012e ; STRING TABLE
012e ; --------------------------------------------------------------------------------------
012e 0008       |    |		.STRTAB	0x0008->0x0132							; "CONGRATULATIONS"
012f 0015       |    |		.STRTAB	0x0015->0x0139							; "IMPOSSIBLE"
0130 001d       |    |		.STRTAB	0x001d->0x013e							; "NO_MORE"
0131 0022       | "  |		.STREND 0x0022->0x0142
0132 434f 4e47  |CONG|		.STRTAB_STRINGS
0142 0000 0000  |    |		.BLANK	0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0xad28,0x0000,0x0001,0x0004
014e 000b 015e  |   ^|		.DBG4T	0x000b,0x015e,0x8000,0x0000
0152 000e 0161  |   a|		.DBG4T	0x000e,0x0161,0x8000,0x0000
0156 00fb 016a  |   j|		.DBG4T	0x00fb,0x016a,0x0001,0x0000
015a 010b 0000  |    |		.DBG4T	0x010b,0x0000,0x0005,0x0000
015e ; --------------------------------------------------------------------------------------
015e ; Debug chain
015e ; --------------------------------------------------------------------------------------
015e 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0160 000b       |    |		.DBGLNO	0x000b
0161 ; --------------------------------------------------------------------------------------
0161 ; Debug chain
0161 ; --------------------------------------------------------------------------------------
0161 0007 0000  |    |		.DBGLEN	0x0007,0x0000
0163 000e 0013  |    |		.DBGLNO	0x000e,0x0013,0x0021,0x0035,0x0043,0x0056,0x00f1
016a ; --------------------------------------------------------------------------------------
016a ; Debug chain
016a ; --------------------------------------------------------------------------------------
016a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
016c 00fb       |    |		.DBGLNO	0x00fb
016d 0000 0000  |    |		.BLANK	0000[0x93]