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

⟦0092b7323⟧

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

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 0098       |    |		.CONST	0x0098								; 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	; Debug Table 0x0 = .DEBUG	0x000b,0x00ba,0x8000,0x0000,0x0056,0xf3a5,0x0000,0x0007
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 003e       | >  |		.CONST	0x003e								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000d       |    |		.CONST	0x000d								; Number of locals
001b			INIT_0018:
001b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1 = .DEBUG	0x001b,0x00bc,0xa801,0x0002,0x0056,0xf3a5,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 02a0       |    |		Declare_Subprogram	Null_Subprogram
001d 03ad       |    |		Declare_Type	Heap_Access,Defined
001e e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x1 = 0x1e,0xfffe
													; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 1919       |    |		Execute	Package,Field_Reference,Field_Number 0x19
0020 00c6       |    |		Action	Check_Subprogram_Elaborated
0021 e5fd       |    |		Load	0x2,-0x3
0022 e5fe       |    |		Load	0x2,-0x2
0023 606c       |`l  |		Indirect_Literal	Discrete,0x90,{0x00000000, 0x0056f3e5}
0024 4828       |H(  |		Short_Literal	0x28
0025 4807       |H   |		Short_Literal	0x7
0026 6069       |`i  |		Indirect_Literal	Discrete,0x90,{0x00000000, 0x0056f3e5}		; Debug Table 0x1.0x3 = 0x26,0xfffc
0027 4835       |H5  |		Short_Literal	0x35
0028 00e1       |    |		Load_Encached	Boolean_Cache
0029 e402       |    |		Load	0x2,0x2
002a e002       |    |		Load	0x0,0x2
002b 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
002c 0387       |    |		Declare_Variable	Package
002d 00d8       |    |		Load_Top	At_Offset_0
002e 020f       |    |		Execute	Module,Activate
002f 6060       |``  |		Indirect_Literal	Discrete,0x90,{0x00000000, 0x0056f3e5}		; Debug Table 0x1.0x4 = 0x2f,0xfffb
0030 483e       |H>  |		Short_Literal	0x3e
0031 00e1       |    |		Load_Encached	Boolean_Cache
0032 e402       |    |		Load	0x2,0x2
0033 e001       |    |		Load	0x0,0x1
0034 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0035 0387       |    |		Declare_Variable	Package
0036 00d8       |    |		Load_Top	At_Offset_0
0037 020f       |    |		Execute	Module,Activate
0038 e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x5 = 0x38,0xfffa
0039 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x1.0x6 = 0x39,0xfff9
003a e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0x7 = 0x3a,0xfff8
003b 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
003c 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
003e			BODY_0018:
003e 840d       |    |		Call	0x2,0xd								; Debug Table 0x1.0x8 = 0x3e,0x1
003f 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1.0x9 = 0x3f,0x2
0040 e409       |    |		Load	0x2,0x9
0041 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0042 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0043 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x1.0xa = 0x43,0x3
0044 a5fa       |    |		Store_Unchecked	0x2,-0x6
0045 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x1.0xb = 0x45,0x4
0046 e409       |    |		Load	0x2,0x9
0047 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0048 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0049 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x1.0xc = 0x49,0x5
004a 00db       |    |		Load_Top	At_Offset_3
004b e403       |    |		Load	0x2,0x3
004c e404       |    |		Load	0x2,0x4
004d 4805       |H   |		Short_Literal	0x5
004e 4802       |H   |		Short_Literal	0x2
004f 0099       |    |		Action	Reference_Dynamic
0050 e001       |    |		Load	0x0,0x1
0051 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0052 a5fb       |    |		Store_Unchecked	0x2,-0x5
0053 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5					; Debug Table 0x1.0xd = 0x53,0x6
0054 0000 0000  |    |		.BLANK	0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005d       | ]  |		.CONST	0x005d								; Address of begin
0059 0064       | d  |		.CONST	0x0064								; Address of exception handler
005a 0002       |    |		.CONST	0x0002								; Number of locals
005b			INIT_0058:
005b 029f 0073  |   s|		Declare_Subprogram	INIT_0070,For_Call				; Debug Table 0x2 = .DEBUG	0x005b,0x00da,0x0804,0x0002,0x0056,0xf3e5,0x0000,0x0095
005d			BODY_0058:
005d e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x0 = 0x5d,0x1
005e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
005f e5fc       |    |		Load	0x2,-0x4
0060 e408       |    |		Load	0x2,0x8
0061 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0062 a40a       |    |		Store_Unchecked	0x2,0xa
0063 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0064			TRAP_0058:
0064 00d8       |    |		Load_Top	At_Offset_0
0065 0107       |    |		Execute	Exception,Get_Name
0066 4950       |IP  |		Short_Literal	0x150
0067 495f       |I_  |		Short_Literal	0x15f
0068 0262       | b  |		Execute	Discrete,In_Range
0069 6802       |h   |		Jump_Zero	0x6c
006a 8602       |    |		Call	0x3,0x2								; Debug Table 0x2.0x1 = 0x6a,0x2
006b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
006c 0100       |    |		Execute	Exception,Raise
006d 0000 0000  |    |		.XXX[0x3]
006f 0000       |    |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007f       |    |		.CONST	0x007f								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0003       |    |		.CONST	0x0003								; Number of locals
0073			INIT_0070:
0073 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x3 = .DEBUG	0x0073,0x00e0,0x0804,0x0002,0x0056,0xf3e5,0x0000,0x0091
													; Debug Table 0x3.0x0 = 0x73,0xffff
0074 02c7       |    |		Declare_Variable	Any
0075 00d8       |    |		Load_Top	At_Offset_0
0076 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0077 6018       |`   |		Indirect_Literal	Discrete,0x90,{0x00000000, 0x0056f3e5}		; Debug Table 0x3.0x1 = 0x77,0xfffe
0078 4871       |Hq  |		Short_Literal	0x71
0079 e5fd       |    |		Load	0x2,-0x3
007a e002       |    |		Load	0x0,0x2
007b 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
007c 0387       |    |		Declare_Variable	Package
007d 00d8       |    |		Load_Top	At_Offset_0
007e 020f       |    |		Execute	Module,Activate
007f			BODY_0070:
007f 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0x3.0x2 = 0x7f,0x1
0080 e5fd       |    |		Load	0x2,-0x3
0081 0119       |    |		Execute	Any,Check_In_Formal_Type
0082 e002       |    |		Load	0x0,0x2
0083 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0084 e5fc       |    |		Load	0x2,-0x4
0085 00db       |    |		Load_Top	At_Offset_3
0086 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0087 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x3 = 0x87,0x2
0088 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0089 e5fc       |    |		Load	0x2,-0x4
008a e408       |    |		Load	0x2,0x8
008b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
008c a40a       |    |		Store_Unchecked	0x2,0xa
008d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
008e 0000 0000  |    |		.XXX[0x2]
0090 0000 0000  |    |		.LITERAL	{0x00000000, 0x0056f3e5}
0094 0000 0000  |    |		.BLANK	0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0003 0004  |    |		.CONST	0x0003,0x0004
009a 000b 00ba  |    |		.DEBUG	0x000b,0x00ba,0x8000,0x0000,0x0056,0xf3a5,0x0000,0x0007
00a2 001b 00bc  |    |		.DEBUG	0x001b,0x00bc,0xa801,0x0002,0x0056,0xf3a5,0x0000,0x0007
00aa 005b 00da  | [  |		.DEBUG	0x005b,0x00da,0x0804,0x0002,0x0056,0xf3e5,0x0000,0x0095
00b2 0073 00e0  | s  |		.DEBUG	0x0073,0x00e0,0x0804,0x0002,0x0056,0xf3e5,0x0000,0x0091
00ba ; --------------------------------------------------------------------------------------
00ba ; Debug3 Subtable 0x0
00ba ; --------------------------------------------------------------------------------------
00ba 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
00bc ; --------------------------------------------------------------------------------------
00bc ; Debug3 Subtable 0x1
00bc ; --------------------------------------------------------------------------------------
00bc 0008 0006  |    |		.DBG3TAB	0x0008,0x0006
00be 001b ffff  |    |		.CONST	0x001b,0xffff
00c0 001e fffe  |    |		.CONST	0x001e,0xfffe
00c2 001e fffd  |    |		.CONST	0x001e,0xfffd
00c4 0026 fffc  | &  |		.CONST	0x0026,0xfffc
00c6 002f fffb  | /  |		.CONST	0x002f,0xfffb
00c8 0038 fffa  | 8  |		.CONST	0x0038,0xfffa
00ca 0039 fff9  | 9  |		.CONST	0x0039,0xfff9
00cc 003a fff8  | :  |		.CONST	0x003a,0xfff8
00ce 003e 0001  | >  |		.CONST	0x003e,0x0001
00d0 003f 0002  | ?  |		.CONST	0x003f,0x0002
00d2 0043 0003  | C  |		.CONST	0x0043,0x0003
00d4 0045 0004  | E  |		.CONST	0x0045,0x0004
00d6 0049 0005  | I  |		.CONST	0x0049,0x0005
00d8 0053 0006  | S  |		.CONST	0x0053,0x0006
00da ; --------------------------------------------------------------------------------------
00da ; Debug3 Subtable 0x2
00da ; --------------------------------------------------------------------------------------
00da 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
00dc 005d 0001  | ]  |		.CONST	0x005d,0x0001
00de 006a 0002  | j  |		.CONST	0x006a,0x0002
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug3 Subtable 0x3
00e0 ; --------------------------------------------------------------------------------------
00e0 0002 0002  |    |		.DBG3TAB	0x0002,0x0002
00e2 0073 ffff  | s  |		.CONST	0x0073,0xffff
00e4 0077 fffe  | w  |		.CONST	0x0077,0xfffe
00e6 007f 0001  |    |		.CONST	0x007f,0x0001
00e8 0087 0002  |    |		.CONST	0x0087,0x0002
00ea 0000 0000  |    |		.BLANK	0000[0x116]