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

⟦a0dea0d4e⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0108       |    |		.CONST	0x0108								; 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 0053       | S  |		.CONST	0x0053								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c 036e       | n  |		Declare_Variable	Task,Visible
000d 606e       |`n  |		Indirect_Literal	Discrete,0x7c,{0x00000000, 0x001e0000}
000e 00e7       |    |		Load_Encached	Duration_Cache
000f 03f0       |    |		Declare_Variable	Discrete,Visible,With_Value
0010 00e4       |    |		Load_Encached	Positive_Cache
0011 0401       |    |		Execute_Immediate	Set_Value_Visible_Unchecked,0x1
0012 e003       |    |		Load	0x0,0x3
0013 0321       | !  |		Declare_Variable	Record,Visible
0014 00d8       |    |		Load_Top	At_Offset_0
0015 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0016 00d8       |    |		Load_Top	At_Offset_0
0017 0321       | !  |		Declare_Variable	Record,Visible
0018 00d8       |    |		Load_Top	At_Offset_0
0019 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001a 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
001c 00bf       |    |		Action	Accept_Activation
001d e004       |    |		Load	0x0,0x4
001e 0337       | 7  |		Declare_Variable	Array
001f e005       |    |		Load	0x0,0x5
0020 02ff       |    |		Declare_Variable	Variant_Record
0021 00d8       |    |		Load_Top	At_Offset_0
0022 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0023 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0024 00c7       |    |		Action	Elaborate_Subprogram
0025 4800       |H   |		Short_Literal	0x0
0026 0093 00c3  |    |		push_full_address	INIT_00c0
0028 00f5       |    |		Load_Encached	Unused21
0029 037d       | }  |		Declare_Type	Task,Defined
002a 036f       | o  |		Declare_Variable	Task
002b 4800       |H   |		Short_Literal	0x0
002c 0093 0083  |    |		push_full_address	INIT_0080
002e 00f5       |    |		Load_Encached	Unused21
002f 037d       | }  |		Declare_Type	Task,Defined
0030 036f       | o  |		Declare_Variable	Task
0031 00da       |    |		Load_Top	At_Offset_2
0032 a006       |    |		Store_Unchecked	0x0,0x6
0033 a007       |    |		Store_Unchecked	0x0,0x7
0034 a008       |    |		Store_Unchecked	0x0,0x8
0035 a009       |    |		Store_Unchecked	0x0,0x9
0036 a00a       |    |		Store_Unchecked	0x0,0xa
0037 a00b       |    |		Store_Unchecked	0x0,0xb
0038 e210       |    |		Load	0x1,0x10
0039 a00c       |    |		Store_Unchecked	0x0,0xc
003a e00d       |    |		Load	0x0,0xd
003b e00e       |    |		Load	0x0,0xe
003c 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
003d a00f       |    |		Store_Unchecked	0x0,0xf
003e a010       |    |		Store_Unchecked	0x0,0x10
003f 480e       |H   |		Short_Literal	0xe
0040 e215       |    |		Load	0x1,0x15
0041 020e       |    |		Execute	Module,Augment_Imports
0042 0007       |    |		Action	Break_Optional
0043 e011       |    |		Load	0x0,0x11
0044 e005       |    |		Load	0x0,0x5
0045 e012       |    |		Load	0x0,0x12
0046 e211       |    |		Load	0x1,0x11
0047 e00d       |    |		Load	0x0,0xd
0048 a013       |    |		Store_Unchecked	0x0,0x13
0049 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
004a a014       |    |		Store_Unchecked	0x0,0x14
004b a010       |    |		Store_Unchecked	0x0,0x10
004c a015       |    |		Store_Unchecked	0x0,0x15
004d e20d       |    |		Load	0x1,0xd
004e e016       |    |		Load	0x0,0x16
004f e017       |    |		Load	0x0,0x17
0050 480d       |H   |		Short_Literal	0xd
0051 e216       |    |		Load	0x1,0x16
0052 020e       |    |		Execute	Module,Augment_Imports
0053			BODY_0008:
0053 00be       |    |		Action	Activate_Tasks
0054 00bc       |    |		Action	Signal_Activated
0055 00bb       |    |		Action	Signal_Completion
0056 0000 0000  |    |		.XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005c       | \  |		.CONST	0x005c								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0002       |    |		.CONST	0x0002								; Number of locals
005b			INIT_0058:
005b 00e1       |    |		Load_Encached	Boolean_Cache
005c			BODY_0058:
005c e214       |    |		Load	0x1,0x14
005d e5ff       |    |		Load	0x2,-0x1
005e 8006       |    |		Call	0x0,0x6
005f e5ff       |    |		Load	0x2,-0x1
0060 8007       |    |		Call	0x0,0x7
0061 e5ff       |    |		Load	0x2,-0x1
0062 8008       |    |		Call	0x0,0x8
0063 e5ff       |    |		Load	0x2,-0x1
0064 8009       |    |		Call	0x0,0x9
0065 e5ff       |    |		Load	0x2,-0x1
0066 800a       |    |		Call	0x0,0xa
0067 800b       |    |		Call	0x0,0xb
0068 00d1       |    |		Pop_Control	Pop_Count_1
0069 e210       |    |		Load	0x1,0x10
006a 800c       |    |		Call	0x0,0xc
006b 00d1       |    |		Pop_Control	Pop_Count_1
006c 00d8       |    |		Load_Top	At_Offset_0
006d e210       |    |		Load	0x1,0x10
006e e00d       |    |		Load	0x0,0xd
006f e00e       |    |		Load	0x0,0xe
0070 e20e       |    |		Load	0x1,0xe
0071 4801       |H   |		Short_Literal	0x1
0072 e5fd       |    |		Load	0x2,-0x3
0073 e5fe       |    |		Load	0x2,-0x2
0074 e214       |    |		Load	0x1,0x14
0075 800f       |    |		Call	0x0,0xf
0076 00d1       |    |		Pop_Control	Pop_Count_1
0077 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0078 e210       |    |		Load	0x1,0x10
0079 8010       |    |		Call	0x0,0x10
007a 00d8       |    |		Load_Top	At_Offset_0
007b 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
007c 0000 0000  |    |		.LITERAL	{0x00000000, 0x001e0000}
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0098       |    |		.CONST	0x0098								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0011       |    |		.CONST	0x0011								; Number of locals
0083			INIT_0080:
0083 00bf       |    |		Action	Accept_Activation
0084 e001       |    |		Load	0x0,0x1
0085 0322       | "  |		Declare_Variable	Record
0086 00d8       |    |		Load_Top	At_Offset_0
0087 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0088 e002       |    |		Load	0x0,0x2
0089 02ff       |    |		Declare_Variable	Variant_Record
008a 00d8       |    |		Load_Top	At_Offset_0
008b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008c 4800       |H   |		Short_Literal	0x0
008d 48c7       |H   |		Short_Literal	0xc7
008e e003       |    |		Load	0x0,0x3
008f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0090 035b       | [  |		Declare_Type	Array,Constrained
0091 0337       | 7  |		Declare_Variable	Array
0092 00e3       |    |		Load_Encached	Natural_Cache
0093 e001       |    |		Load	0x0,0x1
0094 0322       | "  |		Declare_Variable	Record
0095 00d8       |    |		Load_Top	At_Offset_0
0096 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0097 00bc       |    |		Action	Signal_Activated
0098			BODY_0080:
0098 00cf       |    |		Action	Mark_Auxiliary
0099 e004       |    |		Load	0x0,0x4
009a e005       |    |		Load	0x0,0x5
009b 8006       |    |		Call	0x0,0x6
009c 00d1       |    |		Pop_Control	Pop_Count_1
009d e004       |    |		Load	0x0,0x4
009e 00e3       |    |		Load_Encached	Natural_Cache
009f e20f       |    |		Load	0x1,0xf
00a0 e007       |    |		Load	0x0,0x7
00a1 8008       |    |		Call	0x0,0x8
00a2 00d1       |    |		Pop_Control	Pop_Count_1
00a3 c210       |    |		Store	0x1,0x10
00a4 00d1       |    |		Pop_Control	Pop_Count_1
00a5 e004       |    |		Load	0x0,0x4
00a6 8009       |    |		Call	0x0,0x9
00a7 00da       |    |		Load_Top	At_Offset_2
00a8 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00a9 6810       |h   |		Jump_Zero	0xba
00aa 00d9       |    |		Load_Top	At_Offset_1
00ab 00db       |    |		Load_Top	At_Offset_3
00ac 00d8       |    |		Load_Top	At_Offset_0
00ad 00e4       |    |		Load_Encached	Positive_Cache
00ae 0260       | `  |		Execute	Discrete,In_Type
00af 7001       |p   |		Jump_Nonzero	0xb1
00b0 0801       |    |		Execute_Immediate	Raise,0x1
00b1 e20f       |    |		Load	0x1,0xf
00b2 800a       |    |		Call	0x0,0xa
00b3 00d1       |    |		Pop_Control	Pop_Count_1
00b4 00d9       |    |		Load_Top	At_Offset_1
00b5 4801       |H   |		Short_Literal	0x1
00b6 e00b       |    |		Load	0x0,0xb
00b7 e00c       |    |		Load	0x0,0xc
00b8 00ad       |    |		QQ_Action	Package,Field_Execute_Dynamic
00b9 7804       |x   |		Jump	0xbe
00ba 0092 00fa  |    |		Action	Push_String_Extended,0xfa					; "reception 0 bytes"
00bc e00d       |    |		Load	0x0,0xd
00bd 184f       | O  |		Execute	Package,Field_Execute,Field_Number 0x4f
00be 00c9       |    |		Action	Pop_Auxiliary_Loop
00bf 7fd9       |    |		Jump	0x99
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d0       |    |		.CONST	0x00d0								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0010       |    |		.CONST	0x0010								; Number of locals
00c3			INIT_00c0:
00c3 4803       |H   |		Short_Literal	0x3
00c4 02cb       |    |		Declare_Variable	Entry
00c5 00bf       |    |		Action	Accept_Activation
00c6 00e1       |    |		Load_Encached	Boolean_Cache
00c7 00e1       |    |		Load_Encached	Boolean_Cache
00c8 480d 481b  |H H |		Declare_Variable	Select	0x000, 0x001,
00ca 4800 4800  |H H |				[0x000]: 0x000 = 0x0000,
00cc 4800 4801  |H H |				[0x00d]: 0x01b = 0x00d8
00ce 02cf       |    |
00cf 00bc       |    |		Action	Signal_Activated
00d0			BODY_00c0:
00d0 00cf       |    |		Action	Mark_Auxiliary
00d1 00d9       |    |		Load_Top	At_Offset_1
00d2 013f       | ?  |		Execute	Select,Rendezvous
00d3 00d1       |    |		Pop_Control	Pop_Count_1
00d4 00c9       |    |		Action	Pop_Auxiliary_Loop
00d5 7ffb       |    |		Jump	0xd1
00d6 0000 0000  |    |		.XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; See instruction 0x02cf at 0xc8, index=0xd
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db e001       |    |		Load	0x0,0x1
00dc e5fe       |    |		Load	0x2,-0x2
00dd 8002       |    |		Call	0x0,0x2
00de e5fe       |    |		Load	0x2,-0x2
00df 8003       |    |		Call	0x0,0x3
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 8004       |    |		Call	0x0,0x4
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 8005       |    |		Call	0x0,0x5
00e4 e5fe       |    |		Load	0x2,-0x2
00e5 8006       |    |		Call	0x0,0x6
00e6 8007       |    |		Call	0x0,0x7
00e7 00d1       |    |		Pop_Control	Pop_Count_1
00e8 e008       |    |		Load	0x0,0x8
00e9 8009       |    |		Call	0x0,0x9
00ea 00d1       |    |		Pop_Control	Pop_Count_1
00eb e20f       |    |		Load	0x1,0xf
00ec e008       |    |		Load	0x0,0x8
00ed e00a       |    |		Load	0x0,0xa
00ee e00b       |    |		Load	0x0,0xb
00ef e00c       |    |		Load	0x0,0xc
00f0 4801       |H   |		Short_Literal	0x1
00f1 e5fc       |    |		Load	0x2,-0x4
00f2 e5fd       |    |		Load	0x2,-0x3
00f3 e001       |    |		Load	0x0,0x1
00f4 800d       |    |		Call	0x0,0xd
00f5 00d1       |    |		Pop_Control	Pop_Count_1
00f6 c20f       |    |		Store	0x1,0xf
00f7 e008       |    |		Load	0x0,0x8
00f8 800e       |    |		Call	0x0,0xe
00f9 4100       |A   |		End_Rendezvous	0x0
00fa ; --------------------------------------------------------------------------------------
00fa ; STRING TABLE
00fa ; --------------------------------------------------------------------------------------
00fa 0004       |    |		.STRTAB	0x0004->0x00fc							; "reception 0 bytes"
00fb 0013       |    |		.STREND 0x0013->0x0104
00fc 7265 6365  |rece|		.STRTAB_STRINGS
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x8754,0x0000,0x0001,0x0008
010e 000b 012e  |   .|		.DBG4T	0x000b,0x012e,0x8000,0x8000
0112 001d 013a  |   :|		.DBG4T	0x001d,0x013a,0x8000,0x8000
0116 005b 014a  | [ J|		.DBG4T	0x005b,0x014a,0x0002,0x0000
011a 0083 0000  |    |		.DBG4T	0x0083,0x0000,0x0000,0x0000
011e 0084 0152  |   R|		.DBG4T	0x0084,0x0152,0x0000,0x0000
0122 00c3 0161  |   a|		.DBG4T	0x00c3,0x0161,0x0000,0x0000
0126 00c6 0164  |   d|		.DBG4T	0x00c6,0x0164,0x0000,0x4000
012a 00db 016a  |   j|		.DBG4T	0x00db,0x016a,0x0003,0x0000
012e ; --------------------------------------------------------------------------------------
012e ; Debug chain
012e ; --------------------------------------------------------------------------------------
012e 0005 0000  |    |		.DBGLEN	0x0005,0x0000
0130 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x0010,0x0012,0x001a
0135 0001 0002  |    |		.XXX[0x5]
0137 0003 0006  |    |
0139 0007       |    |
013a ; --------------------------------------------------------------------------------------
013a ; Debug chain
013a ; --------------------------------------------------------------------------------------
013a 0007 0000  |    |		.DBGLEN	0x0007,0x0000
013c 001d 001f  |    |		.DBGLNO	0x001d,0x001f,0x0023,0x0025,0x002b,0x0031,0x0043
0143 0001 0004  |    |		.XXX[0x7]
0145 0005 0006  |    |
0147 0007 0008  |    |
0149 0009       |    |
014a ; --------------------------------------------------------------------------------------
014a ; Debug chain
014a ; --------------------------------------------------------------------------------------
014a 0001 0005  |    |		.DBGLEN	0x0001,0x0005
014c 005b 005c  | [ \|		.DBGLNO	0x005b,0x005c,0x0069,0x006c,0x0078,0x007a
0152 ; --------------------------------------------------------------------------------------
0152 ; Debug chain
0152 ; --------------------------------------------------------------------------------------
0152 0005 0008  |    |		.DBGLEN	0x0005,0x0008
0154 0084 0088  |    |		.DBGLNO	0x0084,0x0088,0x008c,0x0092,0x0093,0x0098,0x0099,0x009d,0x00a5,0x00a7,0x00aa,0x00b4,0x00ba
0161 ; --------------------------------------------------------------------------------------
0161 ; Debug chain
0161 ; --------------------------------------------------------------------------------------
0161 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0163 00c3       |    |		.DBGLNO	0x00c3
0164 ; --------------------------------------------------------------------------------------
0164 ; Debug chain
0164 ; --------------------------------------------------------------------------------------
0164 0002 0001  |    |		.DBGLEN	0x0002,0x0001
0166 00c6 00c7  |    |		.DBGLNO	0x00c6,0x00c7,0x00d1
0169 0002       |    |		.XXX[0x1]
016a ; --------------------------------------------------------------------------------------
016a ; Debug chain
016a ; --------------------------------------------------------------------------------------
016a 0000 0004  |    |		.DBGLEN	0x0000,0x0004
016c 00db 00e8  |    |		.DBGLNO	0x00db,0x00e8,0x00eb,0x00f7
0170 0000 0000  |    |		.BLANK	0000[0x90]