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

⟦1a9da09f6⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0150       | P  |		.CONST	0x0150								; 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
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 0020       |    |		.CONST	0x0020								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0002       |    |		.CONST	0x0002								; Number of locals
001b			INIT_0018:
001b 0007       |    |		Action	Break_Optional
001c 0007       |    |		Action	Break_Optional
001d 0007       |    |		Action	Break_Optional
001e 029f 002b  |   +|		Declare_Subprogram	INIT_0028,For_Call
0020			BODY_0018:
0020 8402       |    |		Call	0x2,0x2
0021 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0022 0000 0000  |    |		.BLANK	0000[0x6]
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0053       | S  |		.CONST	0x0053								; Address of begin
0029 0004       |    |		.CONST	0x0004								; Address of exception handler
002a 000d       |    |		.CONST	0x000d								; Number of locals
002b			INIT_0028:
002b a002       |    |		Store_Unchecked	0x0,0x2
002c 00c6       |    |		Action	Check_Subprogram_Elaborated
002d e003       |    |		Load	0x0,0x3
002e e004       |    |		Load	0x0,0x4
002f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0030 0093 0000  |    |		push_full_address	0x0
0032 60c9       |`   |		Indirect_Literal	Discrete,0xfc,{0x80000000, 0x00020000}
0033 0273       | s  |		Execute	Discrete,Plus
0034 e005       |    |		Load	0x0,0x5
0035 0273       | s  |		Execute	Discrete,Plus
0036 e006       |    |		Load	0x0,0x6
0037 0273       | s  |		Execute	Discrete,Plus
0038 4805       |H   |		Short_Literal	0x5
0039 0007       |    |		Action	Break_Optional
003a 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
003c 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
003e a007       |    |		Store_Unchecked	0x0,0x7
003f 00c6       |    |		Action	Check_Subprogram_Elaborated
0040 e003       |    |		Load	0x0,0x3
0041 0092 011c  |    |		Action	Push_String_Extended,0x11c					; "X_Warp_Pointer_Request"
0043 4806       |H   |		Short_Literal	0x6
0044 4803       |H   |		Short_Literal	0x3
0045 0099       |    |		Action	Reference_Dynamic
0046 4807       |H   |		Short_Literal	0x7
0047 4803       |H   |		Short_Literal	0x3
0048 0099       |    |		Action	Reference_Dynamic
0049 0093 0000  |    |		push_full_address	0x0
004b 60ac       |`   |		Indirect_Literal	Discrete,0xf8,{0x80000000, 0x00010000}
004c 0273       | s  |		Execute	Discrete,Plus
004d e005       |    |		Load	0x0,0x5
004e 0273       | s  |		Execute	Discrete,Plus
004f e008       |    |		Load	0x0,0x8
0050 0273       | s  |		Execute	Discrete,Plus
0051 480d       |H   |		Short_Literal	0xd
0052 0007       |    |		Action	Break_Optional
0053			BODY_0028:
0053 0092 011d  |    |		Action	Push_String_Extended,0x11d					; "X_Warp_Pointer_Request conversions"
0055 8009       |    |		Call	0x0,0x9
0056 4801       |H   |		Short_Literal	0x1
0057 4818       |H   |		Short_Literal	0x18
0058 e004       |    |		Load	0x0,0x4
0059 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
005a 0334       | 4  |		Declare_Variable	Array,With_Constraint
005b 4818       |H   |		Short_Literal	0x18
005c 4801       |H   |		Short_Literal	0x1
005d 4800       |H   |		Short_Literal	0x0
005e 00d9       |    |		Load_Top	At_Offset_1
005f e60e       |    |		Load	0x3,0xe
0060 01d6       |    |		Execute	Vector,Field_Write
0061 3ffb       |?   |		Loop_Increasing	0x5d
0062 e003       |    |		Load	0x0,0x3
0063 0322       | "  |		Declare_Variable	Record
0064 4800       |H   |		Short_Literal	0x0
0065 00d9       |    |		Load_Top	At_Offset_1
0066 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0067 4800       |H   |		Short_Literal	0x0
0068 00d9       |    |		Load_Top	At_Offset_1
0069 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
006a 4800       |H   |		Short_Literal	0x0
006b 00d9       |    |		Load_Top	At_Offset_1
006c 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
006d 00d8       |    |		Load_Top	At_Offset_0
006e 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
006f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0070 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0071 4800       |H   |		Short_Literal	0x0
0072 00d0       |    |		Action	Swap_Control
0073 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0074 00d8       |    |		Load_Top	At_Offset_0
0075 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0076 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0077 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0078 4800       |H   |		Short_Literal	0x0
0079 00d0       |    |		Action	Swap_Control
007a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
007b 4800       |H   |		Short_Literal	0x0
007c 00d9       |    |		Load_Top	At_Offset_1
007d 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
007e 4800       |H   |		Short_Literal	0x0
007f 00d9       |    |		Load_Top	At_Offset_1
0080 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0081 4800       |H   |		Short_Literal	0x0
0082 00d9       |    |		Load_Top	At_Offset_1
0083 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
0084 4800       |H   |		Short_Literal	0x0
0085 00d9       |    |		Load_Top	At_Offset_1
0086 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
0087 4800       |H   |		Short_Literal	0x0
0088 00d9       |    |		Load_Top	At_Offset_1
0089 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
008a 4800       |H   |		Short_Literal	0x0
008b 00d9       |    |		Load_Top	At_Offset_1
008c 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
008d 0092 011e  |    |		Action	Push_String_Extended,0x11e					; "0"
008f e608       |    |		Load	0x3,0x8
0090 e609       |    |		Load	0x3,0x9
0091 480a       |H   |		Short_Literal	0xa
0092 4803       |H   |		Short_Literal	0x3
0093 0099       |    |		Action	Reference_Dynamic
0094 480b       |H   |		Short_Literal	0xb
0095 4803       |H   |		Short_Literal	0x3
0096 0099       |    |		Action	Reference_Dynamic
0097 480c       |H   |		Short_Literal	0xc
0098 4803       |H   |		Short_Literal	0x3
0099 0099       |    |		Action	Reference_Dynamic
009a 8007       |    |		Call	0x0,0x7
009b 4800       |H   |		Short_Literal	0x0
009c 4801       |H   |		Short_Literal	0x1
009d e004       |    |		Load	0x0,0x4
009e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
009f 0334       | 4  |		Declare_Variable	Array,With_Constraint
00a0 4801       |H   |		Short_Literal	0x1
00a1 4800       |H   |		Short_Literal	0x0
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 01d6       |    |		Execute	Vector,Field_Write
00a4 48ff       |H   |		Short_Literal	0xff
00a5 4801       |H   |		Short_Literal	0x1
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 e00a       |    |		Load	0x0,0xa
00a9 01cc       |    |		Execute	Vector,Catenate
00aa e00b       |    |		Load	0x0,0xb
00ab 01cc       |    |		Execute	Vector,Catenate
00ac e00c       |    |		Load	0x0,0xc
00ad 01cc       |    |		Execute	Vector,Catenate
00ae e00d       |    |		Load	0x0,0xd
00af 01cc       |    |		Execute	Vector,Catenate
00b0 e00e       |    |		Load	0x0,0xe
00b1 01cc       |    |		Execute	Vector,Catenate
00b2 e00f       |    |		Load	0x0,0xf
00b3 01cc       |    |		Execute	Vector,Catenate
00b4 e010       |    |		Load	0x0,0x10
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 e011       |    |		Load	0x0,0x11
00b7 01cc       |    |		Execute	Vector,Catenate
00b8 e012       |    |		Load	0x0,0x12
00b9 01cc       |    |		Execute	Vector,Catenate
00ba e003       |    |		Load	0x0,0x3
00bb 0322       | "  |		Declare_Variable	Record
00bc 4801       |H   |		Short_Literal	0x1
00bd 00d9       |    |		Load_Top	At_Offset_1
00be 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bf 48ff       |H   |		Short_Literal	0xff
00c0 00d9       |    |		Load_Top	At_Offset_1
00c1 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00c2 4802       |H   |		Short_Literal	0x2
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00c5 00d8       |    |		Load_Top	At_Offset_0
00c6 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00c7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00c8 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00c9 4803       |H   |		Short_Literal	0x3
00ca 00d0       |    |		Action	Swap_Control
00cb 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00cc 00d8       |    |		Load_Top	At_Offset_0
00cd 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00ce 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00cf 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
00d0 4804       |H   |		Short_Literal	0x4
00d1 00d0       |    |		Action	Swap_Control
00d2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00d3 4805       |H   |		Short_Literal	0x5
00d4 00d9       |    |		Load_Top	At_Offset_1
00d5 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00d6 4806       |H   |		Short_Literal	0x6
00d7 00d9       |    |		Load_Top	At_Offset_1
00d8 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
00d9 4807       |H   |		Short_Literal	0x7
00da 00d9       |    |		Load_Top	At_Offset_1
00db 3807       |8   |		Execute	Record,Field_Write,Field_Number 0x7
00dc 4808       |H   |		Short_Literal	0x8
00dd 00d9       |    |		Load_Top	At_Offset_1
00de 3808       |8   |		Execute	Record,Field_Write,Field_Number 0x8
00df 4809       |H   |		Short_Literal	0x9
00e0 00d9       |    |		Load_Top	At_Offset_1
00e1 3809       |8   |		Execute	Record,Field_Write,Field_Number 0x9
00e2 480a       |H   |		Short_Literal	0xa
00e3 00d9       |    |		Load_Top	At_Offset_1
00e4 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
00e5 0092 011f  |    |		Action	Push_String_Extended,0x11f					; "1.-1.2.3.4.5.6.7.8.9.10"
00e7 e608       |    |		Load	0x3,0x8
00e8 e609       |    |		Load	0x3,0x9
00e9 480a       |H   |		Short_Literal	0xa
00ea 4803       |H   |		Short_Literal	0x3
00eb 0099       |    |		Action	Reference_Dynamic
00ec 480b       |H   |		Short_Literal	0xb
00ed 4803       |H   |		Short_Literal	0x3
00ee 0099       |    |		Action	Reference_Dynamic
00ef 480c       |H   |		Short_Literal	0xc
00f0 4803       |H   |		Short_Literal	0x3
00f1 0099       |    |		Action	Reference_Dynamic
00f2 8007       |    |		Call	0x0,0x7
00f3 4801       |H   |		Short_Literal	0x1
00f4 8013       |    |		Call	0x0,0x13
00f5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00f6 0000 0000  |    |		.XXX[0x2]
00f8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
00fc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00db       |    |		Load_Top	At_Offset_3
0104 00db       |    |		Load_Top	At_Offset_3
0105 e014       |    |		Load	0x0,0x14
0106 a015       |    |		Store_Unchecked	0x0,0x15
0107 8016       |    |		Call	0x0,0x16
0108 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0109 0000 0000  |    |		.BLANK	0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00db       |    |		Load_Top	At_Offset_3
0114 00db       |    |		Load_Top	At_Offset_3
0115 e602       |    |		Load	0x3,0x2
0116 e603       |    |		Load	0x3,0x3
0117 4804       |H   |		Short_Literal	0x4
0118 4803       |H   |		Short_Literal	0x3
0119 0099       |    |		Action	Reference_Dynamic
011a 8002       |    |		Call	0x0,0x2
011b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011c ; --------------------------------------------------------------------------------------
011c ; STRING TABLE
011c ; --------------------------------------------------------------------------------------
011c 000a       |    |		.STRTAB	0x000a->0x0121							; "X_Warp_Pointer_Request"
011d 001e       |    |		.STRTAB	0x001e->0x012c							; "X_Warp_Pointer_Request conversions"
011e 003e       | >  |		.STRTAB	0x003e->0x013d							; "0"
011f 003d       | =  |		.STRTAB	0x003d->0x013d							; "1.-1.2.3.4.5.6.7.8.9.10"
0120 0052       | R  |		.STREND 0x0052->0x0149
0121 585f 5761  |X_Wa|		.STRTAB_STRINGS
0149 0000 0000  |    |		.BLANK	0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug Table
0150 ; --------------------------------------------------------------------------------------
0150 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x690c,0x0000,0x0001,0x0005
0156 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
015a 001b 016a  |   j|		.DBG4T	0x001b,0x016a,0x8001,0x0000
015e 002b 0171  | + q|		.DBG4T	0x002b,0x0171,0x0001,0x0000
0162 0103 0000  |    |		.DBG4T	0x0103,0x0000,0x000b,0x0000
0166 0113 0000  |    |		.DBG4T	0x0113,0x0000,0x000b,0x0000
016a ; --------------------------------------------------------------------------------------
016a ; Debug chain
016a ; --------------------------------------------------------------------------------------
016a 0004 0001  |    |		.DBGLEN	0x0004,0x0001
016c 001b 001c  |    |		.DBGLNO	0x001b,0x001c,0x001d,0x001e,0x0020
0171 ; --------------------------------------------------------------------------------------
0171 ; Debug chain
0171 ; --------------------------------------------------------------------------------------
0171 0002 0004  |    |		.DBGLEN	0x0002,0x0004
0173 002b 003a  | + :|		.DBGLNO	0x002b,0x003a,0x0053,0x0056,0x009b,0x00f3
0179 0000 0000  |    |		.BLANK	0000[0x87]