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

⟦f577dfa99⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01d0       |    |		.CONST	0x01d0								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001a       |    |		.CONST	0x001a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0004       |    |		.CONST	0x0004								; Number of locals
000b			INIT_0008:
000b 480a       |H   |		Short_Literal	0xa
000c e003       |    |		Load	0x0,0x3
000d 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
000e e003       |    |		Load	0x0,0x3
000f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0010 e003       |    |		Load	0x0,0x3
0011 1b8f       |    |		Execute	Package,Field_Read,Field_Number 0x8f
0012 02ff       |    |		Declare_Variable	Variant_Record
0013 00d8       |    |		Load_Top	At_Offset_0
0014 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0015 e003       |    |		Load	0x0,0x3
0016 1b8f       |    |		Execute	Package,Field_Read,Field_Number 0x8f
0017 02ff       |    |		Declare_Variable	Variant_Record
0018 00d8       |    |		Load_Top	At_Offset_0
0019 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001a			BODY_0008:
001a e407       |    |		Load	0x2,0x7
001b 6801       |h   |		Jump_Zero	0x1d
001c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
001d 4808       |H   |		Short_Literal	0x8
001e e003       |    |		Load	0x0,0x3
001f 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0020 00ea       |    |		Load_Encached	Null_String_Cache
0021 0092 00a4  |    |		Action	Push_String_Extended,0xa4					; "5"
0023 480b       |H   |		Short_Literal	0xb
0024 e003       |    |		Load	0x0,0x3
0025 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
0026 0092 00a5  |    |		Action	Push_String_Extended,0xa5					; "CSCI DATA"
0028 4805       |H   |		Short_Literal	0x5
0029 e003       |    |		Load	0x0,0x3
002a 187d       | }  |		Execute	Package,Field_Execute,Field_Number 0x7d
002b 4825       |H%  |		Short_Literal	0x25
002c e003       |    |		Load	0x0,0x3
002d 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
002e e003       |    |		Load	0x0,0x3
002f 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0030 00d9       |    |		Load_Top	At_Offset_1
0031 016d       | m  |		Execute	Variant_Record,Structure_Write
0032 0092 00a6  |    |		Action	Push_String_Extended,0xa6					; "The "
0034 00db       |    |		Load_Top	At_Offset_3
0035 01cc       |    |		Execute	Vector,Catenate
0036 0092 00a7  |    |		Action	Push_String_Extended,0xa7					; " CSCI contains no global constants or variables."
0038 01cc       |    |		Execute	Vector,Catenate
0039 0092 00a8  |    |		Action	Push_String_Extended,0xa8					; "The global constants and variables of the "
003b e602       |    |		Load	0x3,0x2
003c 01cc       |    |		Execute	Vector,Catenate
003d 0092 00a9  |    |		Action	Push_String_Extended,0xa9					; " CSCI are described in Table "
003f 01cc       |    |		Execute	Vector,Catenate
0040 0092 00aa  |    |		Action	Push_String_Extended,0xaa					; "CSCI "
0042 e602       |    |		Load	0x3,0x2
0043 01cc       |    |		Execute	Vector,Catenate
0044 0092 00ab  |    |		Action	Push_String_Extended,0xab					; " Global Constants and Variables"
0046 01cc       |    |		Execute	Vector,Catenate
0047 00db       |    |		Load_Top	At_Offset_3
0048 e010       |    |		Load	0x0,0x10
0049 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
004a 4801       |H   |		Short_Literal	0x1
004b e406       |    |		Load	0x2,0x6
004c e001       |    |		Load	0x0,0x1
004d 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
004e 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
004f 00ea       |    |		Load_Encached	Null_String_Cache
0050 0092 00ac  |    |		Action	Push_String_Extended,0xac					; "The utilization of "
0052 e602       |    |		Load	0x3,0x2
0053 01cc       |    |		Execute	Vector,Catenate
0054 0092 00ad  |    |		Action	Push_String_Extended,0xad					; " CSCI global constants and variables is described in Table "
0056 01cc       |    |		Execute	Vector,Catenate
0057 0092 00aa  |    |		Action	Push_String_Extended,0xaa					; "CSCI "
0059 e602       |    |		Load	0x3,0x2
005a 01cc       |    |		Execute	Vector,Catenate
005b 0092 00ae  |    |		Action	Push_String_Extended,0xae					; " Global Constant and Variable Utilization"
005d 01cc       |    |		Execute	Vector,Catenate
005e 00db       |    |		Load_Top	At_Offset_3
005f e010       |    |		Load	0x0,0x10
0060 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0061 4824       |H$  |		Short_Literal	0x24
0062 e003       |    |		Load	0x0,0x3
0063 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
0064 e003       |    |		Load	0x0,0x3
0065 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0066 00da       |    |		Load_Top	At_Offset_2
0067 016d       | m  |		Execute	Variant_Record,Structure_Write
0068 4801       |H   |		Short_Literal	0x1
0069 e406       |    |		Load	0x2,0x6
006a e001       |    |		Load	0x0,0x1
006b 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
006c 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
006d 0092 00a6  |    |		Action	Push_String_Extended,0xa6					; "The "
006f 00db       |    |		Load_Top	At_Offset_3
0070 01cc       |    |		Execute	Vector,Catenate
0071 0092 00af  |    |		Action	Push_String_Extended,0xaf					; " CSCI contains no global type definitions."
0073 01cc       |    |		Execute	Vector,Catenate
0074 0092 00b0  |    |		Action	Push_String_Extended,0xb0					; "The global type declarations of the "
0076 e602       |    |		Load	0x3,0x2
0077 01cc       |    |		Execute	Vector,Catenate
0078 0092 00a9  |    |		Action	Push_String_Extended,0xa9					; " CSCI are described in Table "
007a 01cc       |    |		Execute	Vector,Catenate
007b 0092 00aa  |    |		Action	Push_String_Extended,0xaa					; "CSCI "
007d e602       |    |		Load	0x3,0x2
007e 01cc       |    |		Execute	Vector,Catenate
007f 0092 00b1  |    |		Action	Push_String_Extended,0xb1					; " Global Type Declarations"
0081 01cc       |    |		Execute	Vector,Catenate
0082 e603       |    |		Load	0x3,0x3
0083 e010       |    |		Load	0x0,0x10
0084 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0085 4801       |H   |		Short_Literal	0x1
0086 e406       |    |		Load	0x2,0x6
0087 e001       |    |		Load	0x0,0x1
0088 1b32       | 2  |		Execute	Package,Field_Read,Field_Number 0x32
0089 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
008a 0092 00a6  |    |		Action	Push_String_Extended,0xa6					; "The "
008c 00db       |    |		Load_Top	At_Offset_3
008d 01cc       |    |		Execute	Vector,Catenate
008e 0092 00b2  |    |		Action	Push_String_Extended,0xb2					; " CSCI contains no external interface data elements."
0090 01cc       |    |		Execute	Vector,Catenate
0091 0092 00b3  |    |		Action	Push_String_Extended,0xb3					; "The data elements of the "
0093 e602       |    |		Load	0x3,0x2
0094 01cc       |    |		Execute	Vector,Catenate
0095 0092 00b4  |    |		Action	Push_String_Extended,0xb4					; " CSCI external interfaces are described in Table "
0097 01cc       |    |		Execute	Vector,Catenate
0098 0092 00aa  |    |		Action	Push_String_Extended,0xaa					; "CSCI "
009a e602       |    |		Load	0x3,0x2
009b 01cc       |    |		Execute	Vector,Catenate
009c 0092 00b5  |    |		Action	Push_String_Extended,0xb5					; " External Interface Data Identification"
009e 01cc       |    |		Execute	Vector,Catenate
009f e40a       |    |		Load	0x2,0xa
00a0 4805       |H   |		Short_Literal	0x5
00a1 e010       |    |		Load	0x0,0x10
00a2 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00a3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00a4 ; --------------------------------------------------------------------------------------
00a4 ; STRING TABLE
00a4 ; --------------------------------------------------------------------------------------
00a4 0026       | &  |		.STRTAB	0x0026->0x00b7							; "5"
00a5 0025       | %  |		.STRTAB	0x0025->0x00b7							; "CSCI DATA"
00a6 002c       | ,  |		.STRTAB	0x002c->0x00bc							; "The "
00a7 002e       | .  |		.STRTAB	0x002e->0x00be							; " CSCI contains no global constants or variables."
00a8 005c       | \  |		.STRTAB	0x005c->0x00d6							; "The global constants and variables of the "
00a9 0084       |    |		.STRTAB	0x0084->0x00eb							; " CSCI are described in Table "
00aa 009f       |    |		.STRTAB	0x009f->0x00f9							; "CSCI "
00ab 00a2       |    |		.STRTAB	0x00a2->0x00fc							; " Global Constants and Variables"
00ac 00bf       |    |		.STRTAB	0x00bf->0x010b							; "The utilization of "
00ad 00d0       |    |		.STRTAB	0x00d0->0x0115							; " CSCI global constants and variables is described in Table "
00ae 0109       |    |		.STRTAB	0x0109->0x0132							; " Global Constant and Variable Utilization"
00af 0130       | 0  |		.STRTAB	0x0130->0x0147							; " CSCI contains no global type definitions."
00b0 0158       | X  |		.STRTAB	0x0158->0x015c							; "The global type declarations of the "
00b1 017a       | z  |		.STRTAB	0x017a->0x016e							; " Global Type Declarations"
00b2 0191       |    |		.STRTAB	0x0191->0x017a							; " CSCI contains no external interface data elements."
00b3 01c2       |    |		.STRTAB	0x01c2->0x0194							; "The data elements of the "
00b4 01d9       |    |		.STRTAB	0x01d9->0x01a0							; " CSCI external interfaces are described in Table "
00b5 0208       |    |		.STRTAB	0x0208->0x01b9							; " External Interface Data Identification"
00b6 022d       | -  |		.STREND 0x022d->0x01cc
00b7 3543 5343  |5CSC|		.STRTAB_STRINGS
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xfcc8,0x0000,0x0001,0x0000
01d6 0000 0000  |    |		.BLANK	0000[0x2a]