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

⟦4af5f85cb⟧

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

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 0140       | @  |		.CONST	0x0140								; 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 0027       | '  |		.CONST	0x0027								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0018       |    |		.CONST	0x0018								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 029a 0033  |   3|		Declare_Subprogram	INIT_0030,For_Outer_Call,Visible,Unelaborated
0010 c20f       |    |		Store	0x1,0xf
0011 00bf       |    |		Action	Accept_Activation
0012 0092 0092  |    |		Action	Push_String_Extended,0x92					; "Rs6000_Aix_Ibm"
0014 e001       |    |		Load	0x0,0x1
0015 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0016 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0017 e002       |    |		Load	0x0,0x2
0018 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
0019 e003       |    |		Load	0x0,0x3
001a 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
001b e004       |    |		Load	0x0,0x4
001c 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
001d e005       |    |		Load	0x0,0x5
001e 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
001f e006       |    |		Load	0x0,0x6
0020 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
0021 e007       |    |		Load	0x0,0x7
0022 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
0023 e008       |    |		Load	0x0,0x8
0024 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
0025 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0026 00c7       |    |		Action	Elaborate_Subprogram
0027			BODY_0008:
0027 00bc       |    |		Action	Signal_Activated
0028 00bb       |    |		Action	Signal_Completion
0029 0000 0000  |    |		.BLANK	0000[0x7]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 003a       | :  |		.CONST	0x003a								; Address of begin
0031 007d       | }  |		.CONST	0x007d								; Address of exception handler
0032 0003       |    |		.CONST	0x0003								; Number of locals
0033			INIT_0030:
0033 e009       |    |		Load	0x0,0x9
0034 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0035 02c7       |    |		Declare_Variable	Any
0036 00d8       |    |		Load_Top	At_Offset_0
0037 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0038 029f 008b  |    |		Declare_Subprogram	INIT_0088,For_Call
003a			BODY_0030:
003a 00d9       |    |		Load_Top	At_Offset_1
003b e210       |    |		Load	0x1,0x10
003c e00a       |    |		Load	0x0,0xa
003d 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
003e c402       |    |		Store	0x2,0x2
003f 00d9       |    |		Load_Top	At_Offset_1
0040 e009       |    |		Load	0x0,0x9
0041 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0042 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0043 680e       |h   |		Jump_Zero	0x52
0044 e00b       |    |		Load	0x0,0xb
0045 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0046 4806       |H   |		Short_Literal	0x6
0047 00db       |    |		Load_Top	At_Offset_3
0048 e009       |    |		Load	0x0,0x9
0049 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
004a e00c       |    |		Load	0x0,0xc
004b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
004c 00d9       |    |		Load_Top	At_Offset_1
004d e009       |    |		Load	0x0,0x9
004e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
004f 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0050 6801       |h   |		Jump_Zero	0x52
0051 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0052 e5ff       |    |		Load	0x2,-0x1
0053 6802       |h   |		Jump_Zero	0x56
0054 4801       |H   |		Short_Literal	0x1
0055 a211       |    |		Store_Unchecked	0x1,0x11
0056 e5fe       |    |		Load	0x2,-0x2
0057 8218       |    |		Call	0x1,0x18
0058 8214       |    |		Call	0x1,0x14
0059 8216       |    |		Call	0x1,0x16
005a 8213       |    |		Call	0x1,0x13
005b 8215       |    |		Call	0x1,0x15
005c 8217       |    |		Call	0x1,0x17
005d e210       |    |		Load	0x1,0x10
005e e00d       |    |		Load	0x0,0xd
005f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0060 0092 0093  |    |		Action	Push_String_Extended,0x93					; "<PROFILE>"
0062 0092 0094  |    |		Action	Push_String_Extended,0x94					; "Name => RCI_Rev2_0_2_Rs6000_Aix_Ibm_"
0064 8212       |    |		Call	0x1,0x12
0065 e001       |    |		Load	0x0,0x1
0066 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0067 011c       |    |		Execute	Any,Convert_Unchecked
0068 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0069 01cc       |    |		Execute	Vector,Catenate
006a 8403       |    |		Call	0x2,0x3
006b 01cc       |    |		Execute	Vector,Catenate
006c 0092 0095  |    |		Action	Push_String_Extended,0x95					; ", output => !machine.error_logs."
006e 01cc       |    |		Execute	Vector,Catenate
006f e210       |    |		Load	0x1,0x10
0070 01cc       |    |		Execute	Vector,Catenate
0071 0092 0096  |    |		Action	Push_String_Extended,0x96					; "_extensions_log"
0073 01cc       |    |		Execute	Vector,Catenate
0074 4800       |H   |		Short_Literal	0x0
0075 0092 0097  |    |		Action	Push_String_Extended,0x97					; "!targets.implementation.RCI_customization.rs6000_aix_ibm'view"
0077 4800       |H   |		Short_Literal	0x0
0078 0092 0098  |    |		Action	Push_String_Extended,0x98					; "\x22!targets.implementation.RCI_customization.rs6000_aix_ibm'view.units\x22.register_all_extensions(\x22Rs6000_Aix_Ibm\x22);"
007a e00e       |    |		Load	0x0,0xe
007b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
007c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
007d			TRAP_0030:
007d 0007       |    |		Action	Break_Optional
007e e00b       |    |		Load	0x0,0xb
007f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0080 4807       |H   |		Short_Literal	0x7
0081 0092 0099  |    |		Action	Push_String_Extended,0x99					; "Register completed with Errors."
0083 e00c       |    |		Load	0x0,0xc
0084 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0085 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b e5ff       |    |		Load	0x2,-0x1
008c 6803       |h   |		Jump_Zero	0x90
008d 0092 009a  |    |		Action	Push_String_Extended,0x9a					; "_batch"
008f 00ca       |    |		Action	Exit_Nullary_Function
0090 00ea       |    |		Load_Encached	Null_String_Cache
0091 00ca       |    |		Action	Exit_Nullary_Function
0092 ; --------------------------------------------------------------------------------------
0092 ; STRING TABLE
0092 ; --------------------------------------------------------------------------------------
0092 0014       |    |		.STRTAB	0x0014->0x009c							; "Rs6000_Aix_Ibm"
0093 0020       |    |		.STRTAB	0x0020->0x00a3							; "<PROFILE>"
0094 0027       | '  |		.STRTAB	0x0027->0x00a7							; "Name => RCI_Rev2_0_2_Rs6000_Aix_Ibm_"
0095 0049       | I  |		.STRTAB	0x0049->0x00b9							; ", output => !machine.error_logs."
0096 0067       | g  |		.STRTAB	0x0067->0x00c9							; "_extensions_log"
0097 0074       | t  |		.STRTAB	0x0074->0x00d1							; "!targets.implementation.RCI_customization.rs6000_aix_ibm'view"
0098 00af       |    |		.STRTAB	0x00af->0x00ef							; "\x22!targets.implementation.RCI_customization.rs6000_aix_ibm'view.units\x22.register_all_extensions(\x22Rs6000_Aix_Ibm\x22);"
0099 011d       |    |		.STRTAB	0x011d->0x0127							; "Register completed with Errors."
009a 013a       | :  |		.STRTAB	0x013a->0x0137							; "_batch"
009b 013e       | >  |		.STREND 0x013e->0x013a
009c 5273 3630  |Rs60|		.STRTAB_STRINGS
013a 0000 0000  |    |		.BLANK	0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0004 0003  |    |		.DEBUG4	0x0004,0x0003,0x46b2,0x0000,0x0001,0x0004
0146 000b 0156  |   V|		.DBG4T	0x000b,0x0156,0x8000,0x0000
014a 0012 0159  |   Y|		.DBG4T	0x0012,0x0159,0x8000,0x8000
014e 0033 016f  | 3 o|		.DBG4T	0x0033,0x016f,0x0001,0x0000
0152 008b 017d  |   }|		.DBG4T	0x008b,0x017d,0x0002,0x0000
0156 ; --------------------------------------------------------------------------------------
0156 ; Debug chain
0156 ; --------------------------------------------------------------------------------------
0156 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0158 000e       |    |		.DBGLNO	0x000e
0159 ; --------------------------------------------------------------------------------------
0159 ; Debug chain
0159 ; --------------------------------------------------------------------------------------
0159 000a 0000  |    |		.DBGLEN	0x000a,0x0000
015b 0012 0014  |    |		.DBGLNO	0x0012,0x0014,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025
0165 000c 000d  |    |		.XXX[0xa]
0167 000e 000f  |    |
0169 0010 0011  |    |
016b 0012 0013  |    |
016d 0014 0015  |    |
016f ; --------------------------------------------------------------------------------------
016f ; Debug chain
016f ; --------------------------------------------------------------------------------------
016f 0002 000a  |    |		.DBGLEN	0x0002,0x000a
0171 0033 0038  | 3 8|		.DBGLNO	0x0033,0x0038,0x003a,0x003f,0x0044,0x004c,0x0051,0x0052,0x0054,0x0056,0x0060,0x007e
017d ; --------------------------------------------------------------------------------------
017d ; Debug chain
017d ; --------------------------------------------------------------------------------------
017d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
017f 008b 008d  |    |		.DBGLNO	0x008b,0x008d,0x0090
0182 0000 0000  |    |		.BLANK	0000[0x7e]