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

⟦151629d5f⟧

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

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 0148       | H  |		.CONST	0x0148								; 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 00f5       |    |		.CONST	0x00f5								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0011       |    |		.CONST	0x0011								; Number of locals
000b			INIT_0008:
000b 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 4800       |H   |		Short_Literal	0x0
000f 4802       |H   |		Short_Literal	0x2
0010 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
0012 03fd       |    |		Declare_Type	Discrete,Defined
0013 4800       |H   |		Short_Literal	0x0
0014 4802       |H   |		Short_Literal	0x2
0015 e001       |    |		Load	0x0,0x1
0016 01d7       |    |		Execute	Vector,Field_Read
0017 02a0       |    |		Declare_Subprogram	Null_Subprogram
0018 038e       |    |		Declare_Type	Package,Defined
0019 e001       |    |		Load	0x0,0x1
001a 4801       |H   |		Short_Literal	0x1
001b e001       |    |		Load	0x0,0x1
001c 01d7       |    |		Execute	Vector,Field_Read
001d 4802       |H   |		Short_Literal	0x2
001e 00db       |    |		Load_Top	At_Offset_3
001f 020e       |    |		Execute	Module,Augment_Imports
0020 0387       |    |		Declare_Variable	Package
0021 e002       |    |		Load	0x0,0x2
0022 e003       |    |		Load	0x0,0x3
0023 a004       |    |		Store_Unchecked	0x0,0x4
0024 a005       |    |		Store_Unchecked	0x0,0x5
0025 a006       |    |		Store_Unchecked	0x0,0x6
0026 a007       |    |		Store_Unchecked	0x0,0x7
0027 a008       |    |		Store_Unchecked	0x0,0x8
0028 a009       |    |		Store_Unchecked	0x0,0x9
0029 a00a       |    |		Store_Unchecked	0x0,0xa
002a a00b       |    |		Store_Unchecked	0x0,0xb
002b a00c       |    |		Store_Unchecked	0x0,0xc
002c e00d       |    |		Load	0x0,0xd
002d a00e       |    |		Store_Unchecked	0x0,0xe
002e a00f       |    |		Store_Unchecked	0x0,0xf
002f a010       |    |		Store_Unchecked	0x0,0x10
0030 480f       |H   |		Short_Literal	0xf
0031 e20f       |    |		Load	0x1,0xf
0032 020e       |    |		Execute	Module,Augment_Imports
0033 00d8       |    |		Load_Top	At_Offset_0
0034 020f       |    |		Execute	Module,Activate
0035 4800       |H   |		Short_Literal	0x0
0036 4804       |H   |		Short_Literal	0x4
0037 e001       |    |		Load	0x0,0x1
0038 01d7       |    |		Execute	Vector,Field_Read
0039 02a0       |    |		Declare_Subprogram	Null_Subprogram
003a 038e       |    |		Declare_Type	Package,Defined
003b e001       |    |		Load	0x0,0x1
003c 4803       |H   |		Short_Literal	0x3
003d e001       |    |		Load	0x0,0x1
003e 01d7       |    |		Execute	Vector,Field_Read
003f 4802       |H   |		Short_Literal	0x2
0040 00db       |    |		Load_Top	At_Offset_3
0041 020e       |    |		Execute	Module,Augment_Imports
0042 0387       |    |		Declare_Variable	Package
0043 e002       |    |		Load	0x0,0x2
0044 e003       |    |		Load	0x0,0x3
0045 a011       |    |		Store_Unchecked	0x0,0x11
0046 a005       |    |		Store_Unchecked	0x0,0x5
0047 a012       |    |		Store_Unchecked	0x0,0x12
0048 a006       |    |		Store_Unchecked	0x0,0x6
0049 a007       |    |		Store_Unchecked	0x0,0x7
004a a008       |    |		Store_Unchecked	0x0,0x8
004b a009       |    |		Store_Unchecked	0x0,0x9
004c a00a       |    |		Store_Unchecked	0x0,0xa
004d a00b       |    |		Store_Unchecked	0x0,0xb
004e a00c       |    |		Store_Unchecked	0x0,0xc
004f e00d       |    |		Load	0x0,0xd
0050 a00e       |    |		Store_Unchecked	0x0,0xe
0051 a00f       |    |		Store_Unchecked	0x0,0xf
0052 a010       |    |		Store_Unchecked	0x0,0x10
0053 4810       |H   |		Short_Literal	0x10
0054 e210       |    |		Load	0x1,0x10
0055 020e       |    |		Execute	Module,Augment_Imports
0056 00d8       |    |		Load_Top	At_Offset_0
0057 020f       |    |		Execute	Module,Activate
0058 0093 0000  |    |		push_full_address	0x0
005a 60a9       |`   |		Indirect_Literal	Discrete,0x104,{0x80000000, 0x00010000}
005b 0273       | s  |		Execute	Discrete,Plus
005c e013       |    |		Load	0x0,0x13
005d 0273       | s  |		Execute	Discrete,Plus
005e e014       |    |		Load	0x0,0x14
005f 0273       | s  |		Execute	Discrete,Plus
0060 4800       |H   |		Short_Literal	0x0
0061 e20e       |    |		Load	0x1,0xe
0062 4802       |H   |		Short_Literal	0x2
0063 4800       |H   |		Short_Literal	0x0
0064 0092 012e  |   .|		Action	Push_String_Extended,0x12e					; "CHANGE_THREE_NOTES"
0066 e20f       |    |		Load	0x1,0xf
0067 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0068 e20f       |    |		Load	0x1,0xf
0069 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
006a 4801       |H   |		Short_Literal	0x1
006b 0092 012f  |   /|		Action	Push_String_Extended,0x12f					; "CHANGE_TWO_NOTES"
006d e210       |    |		Load	0x1,0x10
006e 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
006f e210       |    |		Load	0x1,0x10
0070 190e       |    |		Execute	Package,Field_Reference,Field_Number 0xe
0071 4802       |H   |		Short_Literal	0x2
0072 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0074 00c4       |    |		Action	Make_Default
0075 a015       |    |		Store_Unchecked	0x0,0x15
0076 4802       |H   |		Short_Literal	0x2
0077 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0079 00c4       |    |		Action	Make_Default
007a a015       |    |		Store_Unchecked	0x0,0x15
007b 4802       |H   |		Short_Literal	0x2
007c 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
007e 00c4       |    |		Action	Make_Default
007f a015       |    |		Store_Unchecked	0x0,0x15
0080 4802       |H   |		Short_Literal	0x2
0081 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0083 00c4       |    |		Action	Make_Default
0084 a015       |    |		Store_Unchecked	0x0,0x15
0085 4802       |H   |		Short_Literal	0x2
0086 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0088 00c4       |    |		Action	Make_Default
0089 a015       |    |		Store_Unchecked	0x0,0x15
008a 4802       |H   |		Short_Literal	0x2
008b 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
008d 00c4       |    |		Action	Make_Default
008e a015       |    |		Store_Unchecked	0x0,0x15
008f 4802       |H   |		Short_Literal	0x2
0090 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0092 00c4       |    |		Action	Make_Default
0093 a015       |    |		Store_Unchecked	0x0,0x15
0094 4802       |H   |		Short_Literal	0x2
0095 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
0097 00c4       |    |		Action	Make_Default
0098 a015       |    |		Store_Unchecked	0x0,0x15
0099 4802       |H   |		Short_Literal	0x2
009a 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
009c 00c4       |    |		Action	Make_Default
009d a015       |    |		Store_Unchecked	0x0,0x15
009e 4802       |H   |		Short_Literal	0x2
009f 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00a1 00c4       |    |		Action	Make_Default
00a2 a015       |    |		Store_Unchecked	0x0,0x15
00a3 4802       |H   |		Short_Literal	0x2
00a4 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00a6 00c4       |    |		Action	Make_Default
00a7 a015       |    |		Store_Unchecked	0x0,0x15
00a8 4802       |H   |		Short_Literal	0x2
00a9 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00ab 00c4       |    |		Action	Make_Default
00ac a015       |    |		Store_Unchecked	0x0,0x15
00ad 4802       |H   |		Short_Literal	0x2
00ae 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00b0 00c4       |    |		Action	Make_Default
00b1 a015       |    |		Store_Unchecked	0x0,0x15
00b2 4802       |H   |		Short_Literal	0x2
00b3 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00b5 00c4       |    |		Action	Make_Default
00b6 a015       |    |		Store_Unchecked	0x0,0x15
00b7 4802       |H   |		Short_Literal	0x2
00b8 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00ba 00c4       |    |		Action	Make_Default
00bb a015       |    |		Store_Unchecked	0x0,0x15
00bc 4802       |H   |		Short_Literal	0x2
00bd 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00bf 00c4       |    |		Action	Make_Default
00c0 a015       |    |		Store_Unchecked	0x0,0x15
00c1 4802       |H   |		Short_Literal	0x2
00c2 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00c4 00c4       |    |		Action	Make_Default
00c5 a015       |    |		Store_Unchecked	0x0,0x15
00c6 4802       |H   |		Short_Literal	0x2
00c7 0092 0130  |   0|		Action	Push_String_Extended,0x130					; "NO_MORE"
00c9 00c4       |    |		Action	Make_Default
00ca a015       |    |		Store_Unchecked	0x0,0x15
00cb e016       |    |		Load	0x0,0x16
00cc c21f       |    |		Store	0x1,0x1f
00cd e016       |    |		Load	0x0,0x16
00ce c223       | #  |		Store	0x1,0x23
00cf e016       |    |		Load	0x0,0x16
00d0 c227       | '  |		Store	0x1,0x27
00d1 e016       |    |		Load	0x0,0x16
00d2 c22b       | +  |		Store	0x1,0x2b
00d3 e016       |    |		Load	0x0,0x16
00d4 c22f       | /  |		Store	0x1,0x2f
00d5 e016       |    |		Load	0x0,0x16
00d6 c233       | 3  |		Store	0x1,0x33
00d7 e016       |    |		Load	0x0,0x16
00d8 c237       | 7  |		Store	0x1,0x37
00d9 e016       |    |		Load	0x0,0x16
00da c23b       | ;  |		Store	0x1,0x3b
00db e016       |    |		Load	0x0,0x16
00dc c23f       | ?  |		Store	0x1,0x3f
00dd e016       |    |		Load	0x0,0x16
00de c243       | C  |		Store	0x1,0x43
00df e016       |    |		Load	0x0,0x16
00e0 c247       | G  |		Store	0x1,0x47
00e1 e016       |    |		Load	0x0,0x16
00e2 c24b       | K  |		Store	0x1,0x4b
00e3 e016       |    |		Load	0x0,0x16
00e4 c24f       | O  |		Store	0x1,0x4f
00e5 e016       |    |		Load	0x0,0x16
00e6 c253       | S  |		Store	0x1,0x53
00e7 e016       |    |		Load	0x0,0x16
00e8 c257       | W  |		Store	0x1,0x57
00e9 e016       |    |		Load	0x0,0x16
00ea c25b       | [  |		Store	0x1,0x5b
00eb e016       |    |		Load	0x0,0x16
00ec c25f       | _  |		Store	0x1,0x5f
00ed e016       |    |		Load	0x0,0x16
00ee c263       | c  |		Store	0x1,0x63
00ef e017       |    |		Load	0x0,0x17
00f0 0387       |    |		Declare_Variable	Package
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 020f       |    |		Execute	Module,Activate
00f3 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
00f4 00c7       |    |		Action	Elaborate_Subprogram
00f5			BODY_0008:
00f5 00bc       |    |		Action	Signal_Activated
00f6 00bb       |    |		Action	Signal_Completion
00f7 0000       |    |		.XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 00db       |    |		Load_Top	At_Offset_3
00fd e018       |    |		Load	0x0,0x18
00fe e211       |    |		Load	0x1,0x11
00ff 0096       |    |		Execute	Package,Entry
0100 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0101 0000 0000  |    |		.XXX[0x3]
0103 0000       |    |
0104 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4607       |F   |		Jump_Case	0x8
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7807       |x   |		Jump	0x115								; case 0x1
010e 780a       |x   |		Jump	0x119								; case 0x2
010f 780e       |x   |		Jump	0x11e								; case 0x3
0110 7811       |x   |		Jump	0x122								; case 0x4
0111 7812       |x   |		Jump	0x124								; case 0x5
0112 7813       |x   |		Jump	0x126								; case 0x6
0113 7816       |x   |		Jump	0x12a								; case 0x7
0114 4302       |C   |		.XXX[0x1]
0115 00da       |    |		Load_Top	At_Offset_2
0116 0091 012e  |   .|		Action	Push_String_Extended_Indexed,0x12e				; "CHANGE_THREE_NOTES"
0118 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0119 00db       |    |		Load_Top	At_Offset_3
011a 00db       |    |		Load_Top	At_Offset_3
011b 00e0       |    |		Load_Encached	Standard_Cache
011c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e 00da       |    |		Load_Top	At_Offset_2
011f 00e0       |    |		Load_Encached	Standard_Cache
0120 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0121 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0122 00db       |    |		Load_Top	At_Offset_3
0123 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0124 00db       |    |		Load_Top	At_Offset_3
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 e20e       |    |		Load	0x1,0xe
0127 00dc       |    |		Load_Top	At_Offset_4
0128 0267       | g  |		Execute	Discrete,Predecessor
0129 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012a e20e       |    |		Load	0x1,0xe
012b 00dc       |    |		Load_Top	At_Offset_4
012c 0268       | h  |		Execute	Discrete,Successor
012d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012e ; --------------------------------------------------------------------------------------
012e ; STRING TABLE
012e ; --------------------------------------------------------------------------------------
012e 0008       |    |		.STRTAB	0x0008->0x0132							; "CHANGE_THREE_NOTES"
012f 0018       |    |		.STRTAB	0x0018->0x013b							; "CHANGE_TWO_NOTES"
0130 0026       | &  |		.STRTAB	0x0026->0x0143							; "NO_MORE"
0131 002b       | +  |		.STREND 0x002b->0x0146
0132 4348 414e  |CHAN|		.STRTAB_STRINGS
0147 0000       |    |		.XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0xb0c2,0x0000,0x0001,0x0004
014e 000b 015e  |   ^|		.DBG4T	0x000b,0x015e,0x8000,0x0000
0152 000e 0161  |   a|		.DBG4T	0x000e,0x0161,0x8000,0x0000
0156 00fb 016a  |   j|		.DBG4T	0x00fb,0x016a,0x0001,0x0000
015a 010b 0000  |    |		.DBG4T	0x010b,0x0000,0x0005,0x0000
015e ; --------------------------------------------------------------------------------------
015e ; Debug chain
015e ; --------------------------------------------------------------------------------------
015e 0001 0000  |    |		.DBGLEN	0x0001,0x0000
0160 000b       |    |		.DBGLNO	0x000b
0161 ; --------------------------------------------------------------------------------------
0161 ; Debug chain
0161 ; --------------------------------------------------------------------------------------
0161 0007 0000  |    |		.DBGLEN	0x0007,0x0000
0163 000e 0013  |    |		.DBGLNO	0x000e,0x0013,0x0021,0x0035,0x0043,0x0058,0x00f3
016a ; --------------------------------------------------------------------------------------
016a ; Debug chain
016a ; --------------------------------------------------------------------------------------
016a 0000 0001  |    |		.DBGLEN	0x0000,0x0001
016c 00fb       |    |		.DBGLNO	0x00fb
016d 0000 0000  |    |		.BLANK	0000[0x93]