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

⟦fac47002c⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df

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 5813       |X   |		.CONST	0x5813								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0088       |    |		.CONST	0x0088								; 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 001a       |    |		.CONST	0x001a								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 0007       |    |		Action	Break_Optional							; Debug Table 0x0 = .DEBUG	0x000b,0x00b2,0x8000,0x0000,0x005a,0x7965,0x0000,0x0003
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0xe,0xfffc
0010 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x10,0xfffb
0012 00bf       |    |		Action	Accept_Activation
0013 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x0013,0x00be,0x8000,0x0000,0x005a,0x87e5,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x13,0xffff
0014 029d 0053  |   S|		Declare_Subprogram	INIT_0050,For_Outer_Call			; Debug Table 0x1.0x1 = 0x14,0xfffe
0016 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1.0x2 = 0x16,0xfffd
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x3 = 0x18,0xfffc
0019 00c7       |    |		Action	Elaborate_Subprogram
001a			BODY_0008:
001a 00bc       |    |		Action	Signal_Activated
001b 00bb       |    |		Action	Signal_Completion
001c 0000 0000  |    |		.BLANK	0000[0x4]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023       | #  |		.CONST	0x0023								; Address of begin
0021 002d       | -  |		.CONST	0x002d								; Address of exception handler
0022 0001       |    |		.CONST	0x0001								; Number of locals
0023			BODY_0020:
0023			INIT_0020:
0023 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2 = .DEBUG	0x0023,0x00c8,0x0001,0x0000,0x005a,0x7965,0x0000,0x0011
													; Debug Table 0x2.0x0 = 0x23,0x1
0024 e001       |    |		Load	0x0,0x1
0025 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0026 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x2.0x1 = 0x26,0x401
0027 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x2.0x2 = 0x27,0x1
0028 4801       |H   |		Short_Literal	0x1
0029 e5fe       |    |		Load	0x2,-0x2
002a e002       |    |		Load	0x0,0x2
002b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
002c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
002d			TRAP_0020:
002d 0007       |    |		Action	Break_Optional
002e e003       |    |		Load	0x0,0x3								; Debug Table 0x2.0x3 = 0x2e,0x2
002f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0030 0092 0061  |   a|		Action	Push_String_Extended,0x61					; "Start_Command"
0032 820f       |    |		Call	0x1,0xf
0033 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0034 0000 0000  |    |		.BLANK	0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0045       | E  |		.CONST	0x0045								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 4801       |H   |		Short_Literal	0x1							; Debug Table 0x3 = .DEBUG	0x003b,0x00d2,0x0001,0x0000,0x005a,0x7965,0x0000,0x001f
													; Debug Table 0x3.0x0 = 0x3b,0x1
003c e001       |    |		Load	0x0,0x1
003d 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
003e 00ec       |    |		Load_Encached	Diana_Tree_Cache					; Debug Table 0x3.0x1 = 0x3e,0x401
003f e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x2 = 0x3f,0x1
0040 4802       |H   |		Short_Literal	0x2
0041 e5fe       |    |		Load	0x2,-0x2
0042 e002       |    |		Load	0x0,0x2
0043 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0044 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0045			TRAP_0038:
0045 0007       |    |		Action	Break_Optional
0046 e003       |    |		Load	0x0,0x3								; Debug Table 0x3.0x3 = 0x46,0x2
0047 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0048 0092 0062  |   b|		Action	Push_String_Extended,0x62					; "Execute_Command"
004a 820f       |    |		Call	0x1,0xf
004b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
004c 0000 0000  |    |		.BLANK	0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053       | S  |		.CONST	0x0053								; Address of begin
0051 0004       |    |		.CONST	0x0004								; Address of exception handler
0052 0001       |    |		.CONST	0x0001								; Number of locals
0053			BODY_0050:
0053			INIT_0050:
0053 e004       |    |		Load	0x0,0x4								; Debug Table 0x4 = .DEBUG	0x0053,0x00dc,0x0001,0x0000,0x005a,0x87e5,0x0000,0x000c
													; Debug Table 0x4.0x0 = 0x53,0x1
0054 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0055 0092 0063  |   c|		Action	Push_String_Extended,0x63					; "*** Exception in Command_Interface."
													; Debug Table 0x4.0x1 = 0x55,0x2
0057 00db       |    |		Load_Top	At_Offset_3
0058 01cc       |    |		Execute	Vector,Catenate
0059 0092 0064  |   d|		Action	Push_String_Extended,0x64					; ": "
005b 01cc       |    |		Execute	Vector,Catenate
005c e5fe       |    |		Load	0x2,-0x2
005d 01cc       |    |		Execute	Vector,Catenate
005e e004       |    |		Load	0x0,0x4
005f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0060 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0061 ; --------------------------------------------------------------------------------------
0061 ; STRING TABLE
0061 ; --------------------------------------------------------------------------------------
0061 000a       |    |		.STRTAB	0x000a->0x0066							; "Start_Command"
0062 0015       |    |		.STRTAB	0x0015->0x006c							; "Execute_Command"
0063 0022       | "  |		.STRTAB	0x0022->0x0074							; "*** Exception in Command_Interface."
0064 0043       | C  |		.STRTAB	0x0043->0x0085							; ": "
0065 0043       | C  |		.STREND 0x0043->0x0086
0066 5374 6172  |Star|		.STRTAB_STRINGS
0087 0000       |    |		.XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; Debug Table
0088 ; --------------------------------------------------------------------------------------
0088 0003 0005  |    |		.CONST	0x0003,0x0005
008a 000b 00b2  |    |		.DEBUG	0x000b,0x00b2,0x8000,0x0000,0x005a,0x7965,0x0000,0x0003
0092 0013 00be  |    |		.DEBUG	0x0013,0x00be,0x8000,0x0000,0x005a,0x87e5,0x0000,0x0007
009a 0023 00c8  | #  |		.DEBUG	0x0023,0x00c8,0x0001,0x0000,0x005a,0x7965,0x0000,0x0011
00a2 003b 00d2  | ;  |		.DEBUG	0x003b,0x00d2,0x0001,0x0000,0x005a,0x7965,0x0000,0x001f
00aa 0053 00dc  | S  |		.DEBUG	0x0053,0x00dc,0x0001,0x0000,0x005a,0x87e5,0x0000,0x000c
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug3 Subtable 0x0
00b2 ; --------------------------------------------------------------------------------------
00b2 0005 0000  |    |		.DBG3TAB	0x0005,0x0000
00b4 000b ffff  |    |		.CONST	0x000b,0xffff
00b6 000c fffe  |    |		.CONST	0x000c,0xfffe
00b8 000d fffd  |    |		.CONST	0x000d,0xfffd
00ba 000e fffc  |    |		.CONST	0x000e,0xfffc
00bc 0010 fffb  |    |		.CONST	0x0010,0xfffb
00be ; --------------------------------------------------------------------------------------
00be ; Debug3 Subtable 0x1
00be ; --------------------------------------------------------------------------------------
00be 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
00c0 0013 ffff  |    |		.CONST	0x0013,0xffff
00c2 0014 fffe  |    |		.CONST	0x0014,0xfffe
00c4 0016 fffd  |    |		.CONST	0x0016,0xfffd
00c6 0018 fffc  |    |		.CONST	0x0018,0xfffc
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug3 Subtable 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
00ca 0023 0001  | #  |		.CONST	0x0023,0x0001
00cc 0026 0401  | &  |		.CONST	0x0026,0x0401
00ce 0027 0001  | '  |		.CONST	0x0027,0x0001
00d0 002e 0002  | .  |		.CONST	0x002e,0x0002
00d2 ; --------------------------------------------------------------------------------------
00d2 ; Debug3 Subtable 0x3
00d2 ; --------------------------------------------------------------------------------------
00d2 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
00d4 003b 0001  | ;  |		.CONST	0x003b,0x0001
00d6 003e 0401  | >  |		.CONST	0x003e,0x0401
00d8 003f 0001  | ?  |		.CONST	0x003f,0x0001
00da 0046 0002  | F  |		.CONST	0x0046,0x0002
00dc ; --------------------------------------------------------------------------------------
00dc ; Debug3 Subtable 0x4
00dc ; --------------------------------------------------------------------------------------
00dc 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
00de 0053 0001  | S  |		.CONST	0x0053,0x0001
00e0 0055 0002  | U  |		.CONST	0x0055,0x0002
00e2 0000 0000  |    |		.BLANK	0000[0x11e]