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

⟦d1bf18d2c⟧

    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 01d8       |    |		.CONST	0x01d8								; 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 8001       |    |		.CONST	0x8001								; 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 0023       | #  |		.CONST	0x0023								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0005       |    |		.CONST	0x0005								; Number of locals
001b			INIT_0018:
001b 029f 0033  |   3|		Declare_Subprogram	INIT_0030,For_Call
001d 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
001f 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call
0021 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
0023			BODY_0018:
0023 8402       |    |		Call	0x2,0x2
0024 e001       |    |		Load	0x0,0x1
0025 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0026 6801       |h   |		Jump_Zero	0x28
0027 8403       |    |		Call	0x2,0x3
0028 e002       |    |		Load	0x0,0x2
0029 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
002a 6801       |h   |		Jump_Zero	0x2c
002b 8404       |    |		Call	0x2,0x4
002c 8405       |    |		Call	0x2,0x5
002d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
002e 0000 0000  |    |		.XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033       | 3  |		.CONST	0x0033								; Address of begin
0031 0047       | G  |		.CONST	0x0047								; Address of exception handler
0032 0001       |    |		.CONST	0x0001								; Number of locals
0033			BODY_0030:
0033			INIT_0030:
0033 0092 00cc  |    |		Action	Push_String_Extended,0xcc					; "<PROFILE>"
0035 0092 00cd  |    |		Action	Push_String_Extended,0xcd					; "Name => (Smooth Snapshots)"
0037 4800       |H   |		Short_Literal	0x0
0038 0092 00ce  |    |		Action	Push_String_Extended,0xce					; "$"
003a 4800       |H   |		Short_Literal	0x0
003b 0092 00cf  |    |		Action	Push_String_Extended,0xcf					; "!Machine.Release.Current.Activity"
003d 00ea       |    |		Load_Encached	Null_String_Cache
003e 0092 00d0  |    |		Action	Push_String_Extended,0xd0					; "Smooth_Snapshots"
0040 0092 00d1  |    |		Action	Push_String_Extended,0xd1					; "!Commands.System_Maintenance"
0042 e003       |    |		Load	0x0,0x3
0043 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0044 e003       |    |		Load	0x0,0x3
0045 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0046 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0047			TRAP_0030:
0047 0007       |    |		Action	Break_Optional
0048 4801       |H   |		Short_Literal	0x1
0049 4801       |H   |		Short_Literal	0x1
004a e004       |    |		Load	0x0,0x4
004b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
004c 0092 00d2  |    |		Action	Push_String_Extended,0xd2					; "Unhandled_Exception"
004e 4802       |H   |		Short_Literal	0x2
004f 0092 00d3  |    |		Action	Push_String_Extended,0xd3					; "!Machine.Initialization.Servers.Smooth_Snapshots"
0051 e005       |    |		Load	0x0,0x5
0052 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0053 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0054 0000 0000  |    |		.BLANK	0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0067       | g  |		.CONST	0x0067								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 6018       |`   |		Indirect_Literal	Discrete,0x74,{0x00000000, 0x00028000}
005c 00ba       |    |		Action	Initiate_Delay
005d e006       |    |		Load	0x0,0x6
005e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
005f 4801       |H   |		Short_Literal	0x1
0060 4806       |H   |		Short_Literal	0x6
0061 00e9       |    |		Load_Encached	String_Cache
0062 0334       | 4  |		Declare_Variable	Array,With_Constraint
0063 5014       |P   |		Indirect_Literal	Any,0x78,{0x7463702f, 0x69702020}
0064 e007       |    |		Load	0x0,0x7
0065 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0066 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0067			TRAP_0058:
0067 0007       |    |		Action	Break_Optional
0068 4801       |H   |		Short_Literal	0x1
0069 4801       |H   |		Short_Literal	0x1
006a e004       |    |		Load	0x0,0x4
006b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006c 0092 00d2  |    |		Action	Push_String_Extended,0xd2					; "Unhandled_Exception"
006e 4802       |H   |		Short_Literal	0x2
006f 0092 00d4  |    |		Action	Push_String_Extended,0xd4					; "!Machine.Initialization.Servers.FTP"
0071 e005       |    |		Load	0x0,0x5
0072 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0073 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0074 0000 0000  |    |		.LITERAL	{0x00000000, 0x00028000}
0078 7463 702f  |tcp/|		.LITERAL	{0x7463702f, 0x69702020}
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0092       |    |		.CONST	0x0092								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 601c       |`   |		Indirect_Literal	Discrete,0xa0,{0x00000000, 0x00078000}
0084 00ba       |    |		Action	Initiate_Delay
0085 0092 00cc  |    |		Action	Push_String_Extended,0xcc					; "<PROFILE>"
0087 0092 00d5  |    |		Action	Push_String_Extended,0xd5					; "Output => !Machine.Error_Logs.Archive_Server_Log,Name => (Archive Server), User=NETWORK_PUBLIC, Password=()"
0089 4800       |H   |		Short_Literal	0x0
008a 0092 00d6  |    |		Action	Push_String_Extended,0xd6					; "!Machine.Error_Logs"
008c 4800       |H   |		Short_Literal	0x0
008d 0092 00d7  |    |		Action	Push_String_Extended,0xd7					; "\x22!Commands\x22.Archive.Server"
008f e003       |    |		Load	0x0,0x3
0090 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0091 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0092			TRAP_0080:
0092 0007       |    |		Action	Break_Optional
0093 4801       |H   |		Short_Literal	0x1
0094 4801       |H   |		Short_Literal	0x1
0095 e004       |    |		Load	0x0,0x4
0096 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0097 0092 00d2  |    |		Action	Push_String_Extended,0xd2					; "Unhandled_Exception"
0099 4802       |H   |		Short_Literal	0x2
009a 0092 00d8  |    |		Action	Push_String_Extended,0xd8					; "!Machine.Initialization.Servers.Archive"
009c e005       |    |		Load	0x0,0x5
009d 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
009e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009f 0000       |    |		.XXX[0x1]
00a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00078000}
00a4 0000 0000  |    |		.BLANK	0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 00bf       |    |		.CONST	0x00bf								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 0092 00cc  |    |		Action	Push_String_Extended,0xcc					; "<PROFILE>"
00ad 0092 00d9  |    |		Action	Push_String_Extended,0xd9					; "Name => (Console Command Interpreter)"
00af 4800       |H   |		Short_Literal	0x0
00b0 0092 00d6  |    |		Action	Push_String_Extended,0xd6					; "!Machine.Error_Logs"
00b2 4800       |H   |		Short_Literal	0x0
00b3 0092 00cf  |    |		Action	Push_String_Extended,0xcf					; "!Machine.Release.Current.Activity"
00b5 00ea       |    |		Load_Encached	Null_String_Cache
00b6 0092 00da  |    |		Action	Push_String_Extended,0xda					; "CI.Login"
00b8 0092 00db  |    |		Action	Push_String_Extended,0xdb					; "!Tools.CI"
00ba e003       |    |		Load	0x0,0x3
00bb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00bc e003       |    |		Load	0x0,0x3
00bd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00be 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00bf			TRAP_00a8:
00bf 0007       |    |		Action	Break_Optional
00c0 4801       |H   |		Short_Literal	0x1
00c1 4801       |H   |		Short_Literal	0x1
00c2 e004       |    |		Load	0x0,0x4
00c3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00c4 0092 00d2  |    |		Action	Push_String_Extended,0xd2					; "Unhandled_Exception"
00c6 4802       |H   |		Short_Literal	0x2
00c7 0092 00dc  |    |		Action	Push_String_Extended,0xdc					; "!Machine.Initialization.Servers.Ci"
00c9 e005       |    |		Load	0x0,0x5
00ca 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
00cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00cc ; --------------------------------------------------------------------------------------
00cc ; STRING TABLE
00cc ; --------------------------------------------------------------------------------------
00cc 0024       | $  |		.STRTAB	0x0024->0x00de							; "<PROFILE>"
00cd 002b       | +  |		.STRTAB	0x002b->0x00e2							; "Name => (Smooth Snapshots)"
00ce 0043       | C  |		.STRTAB	0x0043->0x00ef							; "$"
00cf 0042       | B  |		.STRTAB	0x0042->0x00f0							; "!Machine.Release.Current.Activity"
00d0 0061       | a  |		.STRTAB	0x0061->0x0100							; "Smooth_Snapshots"
00d1 006f       | o  |		.STRTAB	0x006f->0x0108							; "!Commands.System_Maintenance"
00d2 0089       |    |		.STRTAB	0x0089->0x0116							; "Unhandled_Exception"
00d3 009a       |    |		.STRTAB	0x009a->0x0120							; "!Machine.Initialization.Servers.Smooth_Snapshots"
00d4 00c8       |    |		.STRTAB	0x00c8->0x0138							; "!Machine.Initialization.Servers.FTP"
00d5 00e9       |    |		.STRTAB	0x00e9->0x0149							; "Output => !Machine.Error_Logs.Archive_Server_Log,Name => (Archive Server), User=NETWORK_PUBLIC, Password=()"
00d6 0152       | R  |		.STRTAB	0x0152->0x017f							; "!Machine.Error_Logs"
00d7 0163       | c  |		.STRTAB	0x0163->0x0188							; "\x22!Commands\x22.Archive.Server"
00d8 017b       | {  |		.STRTAB	0x017b->0x0195							; "!Machine.Initialization.Servers.Archive"
00d9 01a0       |    |		.STRTAB	0x01a0->0x01a9							; "Name => (Console Command Interpreter)"
00da 01c3       |    |		.STRTAB	0x01c3->0x01bb							; "CI.Login"
00db 01c9       |    |		.STRTAB	0x01c9->0x01bf							; "!Tools.CI"
00dc 01d0       |    |		.STRTAB	0x01d0->0x01c4							; "!Machine.Initialization.Servers.Ci"
00dd 01f0       |    |		.STREND 0x01f0->0x01d5
00de 3c50 524f  |<PRO|		.STRTAB_STRINGS
01d5 0000 0000  |    |		.XXX[0x3]
01d7 0000       |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xe325,0x0000,0x0001,0x0000
01de 0202 0006  |    |		.XXX[0xe]
01e0 0206 0007  |    |
01e2 0209 0008  |    |
01e4 0000 0001  |    |
01e6 0213 0001  |    |
01e8 0000 0001  |    |
01ea 021b 0001  |    |
01ec 0000 0000  |    |		.BLANK	0000[0x14]