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

⟦bc66c9eb4⟧

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

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 00d8       |    |		.CONST	0x00d8								; 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 0034       | 4  |		.CONST	0x0034								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 029a 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000f 029a 005b  |   [|		Declare_Subprogram	INIT_0058,For_Outer_Call,Visible,Unelaborated
0011 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
0013 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0015 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0017 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0019 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
001b 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
001d 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
001f 00bf       |    |		Action	Accept_Activation
0020 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0021 00c7       |    |		Action	Elaborate_Subprogram
0022 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0023 00c7       |    |		Action	Elaborate_Subprogram
0024 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0025 00c7       |    |		Action	Elaborate_Subprogram
0026 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0027 00c7       |    |		Action	Elaborate_Subprogram
0028 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0029 00c7       |    |		Action	Elaborate_Subprogram
002a 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
002b 00c7       |    |		Action	Elaborate_Subprogram
002c 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
002d 00c7       |    |		Action	Elaborate_Subprogram
002e 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
002f 00c7       |    |		Action	Elaborate_Subprogram
0030 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0031 00c7       |    |		Action	Elaborate_Subprogram
0032 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0033 00c7       |    |		Action	Elaborate_Subprogram
0034			BODY_0008:
0034 00bc       |    |		Action	Signal_Activated
0035 00bb       |    |		Action	Signal_Completion
0036 0000 0000  |    |		.XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 00db       |    |		Load_Top	At_Offset_3
003c 00db       |    |		Load_Top	At_Offset_3
003d 8003       |    |		Call	0x0,0x3
003e 8004       |    |		Call	0x0,0x4
003f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 4800       |H   |		Short_Literal	0x0
0044 4802       |H   |		Short_Literal	0x2
0045 e005       |    |		Load	0x0,0x5
0046 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0047 00db       |    |		Load_Top	At_Offset_3
0048 e005       |    |		Load	0x0,0x5
0049 2305       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x5
004a 0119       |    |		Execute	Any,Check_In_Formal_Type
004b 00d9       |    |		Load_Top	At_Offset_1
004c 2a05       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
004d e5fe       |    |		Load	0x2,-0x2
004e e005       |    |		Load	0x0,0x5
004f 2306       |#   |		Execute	Variant_Record,Field_Type,Field_Number 0x6
0050 0119       |    |		Execute	Any,Check_In_Formal_Type
0051 00d9       |    |		Load_Top	At_Offset_1
0052 2a06       |*   |		Execute	Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
0053 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0054 0000 0000  |    |		.BLANK	0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 00db       |    |		Load_Top	At_Offset_3
005c e006       |    |		Load	0x0,0x6
005d 0119       |    |		Execute	Any,Check_In_Formal_Type
005e 00db       |    |		Load_Top	At_Offset_3
005f 8007       |    |		Call	0x0,0x7
0060 e008       |    |		Load	0x0,0x8
0061 0119       |    |		Execute	Any,Check_In_Formal_Type
0062 820e       |    |		Call	0x1,0xe
0063 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0064 0000 0000  |    |		.BLANK	0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 00db       |    |		Load_Top	At_Offset_3
006c e006       |    |		Load	0x0,0x6
006d 0119       |    |		Execute	Any,Check_In_Formal_Type
006e 00db       |    |		Load_Top	At_Offset_3
006f 8009       |    |		Call	0x0,0x9
0070 e008       |    |		Load	0x0,0x8
0071 0119       |    |		Execute	Any,Check_In_Formal_Type
0072 820e       |    |		Call	0x1,0xe
0073 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0074 0000 0000  |    |		.BLANK	0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00db       |    |		Load_Top	At_Offset_3
007c e006       |    |		Load	0x0,0x6
007d 0119       |    |		Execute	Any,Check_In_Formal_Type
007e 00db       |    |		Load_Top	At_Offset_3
007f 800a       |    |		Call	0x0,0xa
0080 820f       |    |		Call	0x1,0xf
0081 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0082 0000 0000  |    |		.BLANK	0000[0x6]
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 00db       |    |		Load_Top	At_Offset_3
008c e006       |    |		Load	0x0,0x6
008d 0119       |    |		Execute	Any,Check_In_Formal_Type
008e 00db       |    |		Load_Top	At_Offset_3
008f 800b       |    |		Call	0x0,0xb
0090 820f       |    |		Call	0x1,0xf
0091 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0092 0000 0000  |    |		.BLANK	0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00db       |    |		Load_Top	At_Offset_3
009c e006       |    |		Load	0x0,0x6
009d 0119       |    |		Execute	Any,Check_In_Formal_Type
009e 00db       |    |		Load_Top	At_Offset_3
009f 800c       |    |		Call	0x0,0xc
00a0 820f       |    |		Call	0x1,0xf
00a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00a2 0000 0000  |    |		.BLANK	0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00db       |    |		Load_Top	At_Offset_3
00ac e006       |    |		Load	0x0,0x6
00ad 0119       |    |		Execute	Any,Check_In_Formal_Type
00ae 00db       |    |		Load_Top	At_Offset_3
00af 800d       |    |		Call	0x0,0xd
00b0 820f       |    |		Call	0x1,0xf
00b1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00b2 0000 0000  |    |		.BLANK	0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00db       |    |		Load_Top	At_Offset_3
00bc e006       |    |		Load	0x0,0x6
00bd 0119       |    |		Execute	Any,Check_In_Formal_Type
00be 00db       |    |		Load_Top	At_Offset_3
00bf 800e       |    |		Call	0x0,0xe
00c0 820f       |    |		Call	0x1,0xf
00c1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00db       |    |		Load_Top	At_Offset_3
00cc e006       |    |		Load	0x0,0x6
00cd 0119       |    |		Execute	Any,Check_In_Formal_Type
00ce 00db       |    |		Load_Top	At_Offset_3
00cf 800f       |    |		Call	0x0,0xf
00d0 820f       |    |		Call	0x1,0xf
00d1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00d2 0000 0000  |    |		.BLANK	0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; Debug Table
00d8 ; --------------------------------------------------------------------------------------
00d8 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0x8809,0x0000,0x0001,0x000c
00de 000b 010e  |    |		.DBG4T	0x000b,0x010e,0x0000,0x0000
00e2 0020 011a  |    |		.DBG4T	0x0020,0x011a,0x0000,0x0000
00e6 003b 0126  | ; &|		.DBG4T	0x003b,0x0126,0x0002,0x0000
00ea 0043 0129  | C )|		.DBG4T	0x0043,0x0129,0x0002,0x0000
00ee 005b 012c  | [ ,|		.DBG4T	0x005b,0x012c,0x0002,0x0000
00f2 006b 012f  | k /|		.DBG4T	0x006b,0x012f,0x0002,0x0000
00f6 007b 0132  | { 2|		.DBG4T	0x007b,0x0132,0x0002,0x0000
00fa 008b 0135  |   5|		.DBG4T	0x008b,0x0135,0x0002,0x0000
00fe 009b 0138  |   8|		.DBG4T	0x009b,0x0138,0x0002,0x0000
0102 00ab 013b  |   ;|		.DBG4T	0x00ab,0x013b,0x0002,0x0000
0106 00bb 013e  |   >|		.DBG4T	0x00bb,0x013e,0x0002,0x0000
010a 00cb 0141  |   A|		.DBG4T	0x00cb,0x0141,0x0002,0x0000
010e ; --------------------------------------------------------------------------------------
010e ; Debug chain
010e ; --------------------------------------------------------------------------------------
010e 000a 0000  |    |		.DBGLEN	0x000a,0x0000
0110 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d
011a ; --------------------------------------------------------------------------------------
011a ; Debug chain
011a ; --------------------------------------------------------------------------------------
011a 000a 0000  |    |		.DBGLEN	0x000a,0x0000
011c 0020 0022  |   "|		.DBGLNO	0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032
0126 ; --------------------------------------------------------------------------------------
0126 ; Debug chain
0126 ; --------------------------------------------------------------------------------------
0126 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0128 003b       | ;  |		.DBGLNO	0x003b
0129 ; --------------------------------------------------------------------------------------
0129 ; Debug chain
0129 ; --------------------------------------------------------------------------------------
0129 0000 0001  |    |		.DBGLEN	0x0000,0x0001
012b 0043       | C  |		.DBGLNO	0x0043
012c ; --------------------------------------------------------------------------------------
012c ; Debug chain
012c ; --------------------------------------------------------------------------------------
012c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
012e 005b       | [  |		.DBGLNO	0x005b
012f ; --------------------------------------------------------------------------------------
012f ; Debug chain
012f ; --------------------------------------------------------------------------------------
012f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0131 006b       | k  |		.DBGLNO	0x006b
0132 ; --------------------------------------------------------------------------------------
0132 ; Debug chain
0132 ; --------------------------------------------------------------------------------------
0132 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0134 007b       | {  |		.DBGLNO	0x007b
0135 ; --------------------------------------------------------------------------------------
0135 ; Debug chain
0135 ; --------------------------------------------------------------------------------------
0135 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0137 008b       |    |		.DBGLNO	0x008b
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug chain
0138 ; --------------------------------------------------------------------------------------
0138 0000 0001  |    |		.DBGLEN	0x0000,0x0001
013a 009b       |    |		.DBGLNO	0x009b
013b ; --------------------------------------------------------------------------------------
013b ; Debug chain
013b ; --------------------------------------------------------------------------------------
013b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
013d 00ab       |    |		.DBGLNO	0x00ab
013e ; --------------------------------------------------------------------------------------
013e ; Debug chain
013e ; --------------------------------------------------------------------------------------
013e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0140 00bb       |    |		.DBGLNO	0x00bb
0141 ; --------------------------------------------------------------------------------------
0141 ; Debug chain
0141 ; --------------------------------------------------------------------------------------
0141 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0143 00cb       |    |		.DBGLNO	0x00cb
0144 0000 0000  |    |		.BLANK	0000[0xbc]