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

⟦14778b599⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 00a8       |    |		.CONST	0x00a8								; 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 8000       |    |		.CONST	0x8000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0017       |    |		.CONST	0x0017								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0004       |    |		.CONST	0x0004								; Number of locals
000b			INIT_0008:
000b e022       | "  |		Load	0x0,0x22
000c 1b1d       |    |		Execute	Package,Field_Read,Field_Number 0x1d
000d 02ff       |    |		Declare_Variable	Variant_Record
000e 00d8       |    |		Load_Top	At_Offset_0
000f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0010 e024       | $  |		Load	0x0,0x24
0011 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0012 02c7       |    |		Declare_Variable	Any
0013 00d8       |    |		Load_Top	At_Offset_0
0014 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0015 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0017			BODY_0008:
0017 e5fd       |    |		Load	0x2,-0x3
0018 e5fe       |    |		Load	0x2,-0x2
0019 8404       |    |		Call	0x2,0x4
001a 00cf       |    |		Action	Mark_Auxiliary
001b e5ff       |    |		Load	0x2,-0x1
001c e022       | "  |		Load	0x0,0x22
001d 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
001e e5ff       |    |		Load	0x2,-0x1
001f e022       | "  |		Load	0x0,0x22
0020 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0021 0263       | c  |		Execute	Discrete,Above_Bound
0022 702f       |p/  |		Jump_Nonzero	0x52
0023 00d8       |    |		Load_Top	At_Offset_0
0024 e5ff       |    |		Load	0x2,-0x1
0025 e022       | "  |		Load	0x0,0x22
0026 182f       | /  |		Execute	Package,Field_Execute,Field_Number 0x2f
0027 e402       |    |		Load	0x2,0x2
0028 016d       | m  |		Execute	Variant_Record,Structure_Write
0029 e402       |    |		Load	0x2,0x2
002a 2e04       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
002b c403       |    |		Store	0x2,0x3
002c 4801       |H   |		Short_Literal	0x1
002d 480d       |H   |		Short_Literal	0xd
002e e022       | "  |		Load	0x0,0x22
002f 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0030 00ea       |    |		Load_Encached	Null_String_Cache
0031 4800       |H   |		Short_Literal	0x0
0032 e402       |    |		Load	0x2,0x2
0033 e022       | "  |		Load	0x0,0x22
0034 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0035 4801       |H   |		Short_Literal	0x1
0036 e402       |    |		Load	0x2,0x2
0037 e022       | "  |		Load	0x0,0x22
0038 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0039 820f       |    |		Call	0x1,0xf
003a 4801       |H   |		Short_Literal	0x1
003b 480d       |H   |		Short_Literal	0xd
003c e022       | "  |		Load	0x0,0x22
003d 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
003e 0092 008c  |    |		Action	Push_String_Extended,0x8c					; " "
0040 e403       |    |		Load	0x2,0x3
0041 e022       | "  |		Load	0x0,0x22
0042 189f       |    |		Execute	Package,Field_Execute,Field_Number 0x9f
0043 e403       |    |		Load	0x2,0x3
0044 e024       | $  |		Load	0x0,0x24
0045 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0046 e022       | "  |		Load	0x0,0x22
0047 1b49       | I  |		Execute	Package,Field_Read,Field_Number 0x49
0048 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0049 0092 008d  |    |		Action	Push_String_Extended,0x8d					; "SRS "
004b e403       |    |		Load	0x2,0x3
004c e022       | "  |		Load	0x0,0x22
004d 189f       |    |		Execute	Package,Field_Execute,Field_Number 0x9f
004e 01cc       |    |		Execute	Vector,Catenate
004f 820f       |    |		Call	0x1,0xf
0050 00c8       |    |		Action	Pop_Auxiliary_Range
0051 3fd1       |?   |		Loop_Increasing	0x23
0052 00ce       |    |		Action	Pop_Auxiliary
0053 e023       | #  |		Load	0x0,0x23
0054 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0055 e023       | #  |		Load	0x0,0x23
0056 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0057 8210       |    |		Call	0x1,0x10
0058 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0059 0000 0000  |    |		.BLANK	0000[0x7]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 480a       |H   |		Short_Literal	0xa
0064 e022       | "  |		Load	0x0,0x22
0065 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0066 e023       | #  |		Load	0x0,0x23
0067 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0068 4800       |H   |		Short_Literal	0x0
0069 e7fe       |    |		Load	0x3,-0x2
006a e7ff       |    |		Load	0x3,-0x1
006b 820d       |    |		Call	0x1,0xd
006c 480b       |H   |		Short_Literal	0xb
006d e022       | "  |		Load	0x0,0x22
006e 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
006f e023       | #  |		Load	0x0,0x23
0070 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0071 5816       |X   |		Indirect_Literal	Float,0x88,40.0
0072 4802       |H   |		Short_Literal	0x2
0073 0092 008e  |    |		Action	Push_String_Extended,0x8e					; "Requirement Name"
0075 820e       |    |		Call	0x1,0xe
0076 480b       |H   |		Short_Literal	0xb
0077 e022       | "  |		Load	0x0,0x22
0078 1862       | b  |		Execute	Package,Field_Execute,Field_Number 0x62
0079 e023       | #  |		Load	0x0,0x23
007a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
007b 5808       |X   |		Indirect_Literal	Float,0x84,25.0
007c 4802       |H   |		Short_Literal	0x2
007d 0092 008f  |    |		Action	Push_String_Extended,0x8f					; "Applicable Specification"
007f 820e       |    |		Call	0x1,0xe
0080 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0081 0000 0000  |    |		.XXX[0x3]
0083 0000       |    |
0084 4039 0000  |@9  |		.DBL	25.0
0086 0000 0000  |    |
0088 4044 0000  |@D  |		.DBL	40.0
008a 0000 0000  |    |
008c ; --------------------------------------------------------------------------------------
008c ; STRING TABLE
008c ; --------------------------------------------------------------------------------------
008c 000a       |    |		.STRTAB	0x000a->0x0091							; " "
008d 0009       |    |		.STRTAB	0x0009->0x0091							; "SRS "
008e 000b       |    |		.STRTAB	0x000b->0x0093							; "Requirement Name"
008f 0019       |    |		.STRTAB	0x0019->0x009b							; "Applicable Specification"
0090 002f       | /  |		.STREND 0x002f->0x00a7
0091 2053 5253  | SRS|		.STRTAB_STRINGS
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug Table
00a8 ; --------------------------------------------------------------------------------------
00a8 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0xfc9d,0x0000,0x0001,0x0000
00ae e088 4e86  |  N |		.XXX[0x152]
00b0 d323 6a00  | #j |
00b2 29bf fb62  |)  b|
00b4 2e72 dde4  |.r  |
00b6 8e2e 46d4  | .F |
00b8 022f 911a  | /  |
00ba c867 e4ce  | g  |
00bc 8068 c82d  | h -|
00be e1fa f00b  |    |
00c0 d629 0eca  | )  |
00c2 1882 45f1  |  E |
00c4 2738 90ee  |'8  |
00c6 48f4 fe7e  |H  ~|
00c8 0671 0640  | q @|
00ca 99bd 0c1b  |    |
00cc 408c 0f51  |@  Q|
00ce 6018 8000  |`   |
00d0 fec8 8e29  |   )|
00d2 a261 0a18  | a  |
00d4 2b52 4b6c  |+RKl|
00d6 1209 92e9  |    |
00d8 20ba 6526  |  e&|
00da d12e 380b  | .8 |
00dc 6d43 f416  |mC  |
00de ed90 4e56  |  NV|
00e0 abd8 d2c1  |    |
00e2 2d78 25a2  |-x% |
00e4 3546 31d3  |5F1 |
00e6 7a85 1369  |z  i|
00e8 e1ff 00da  |    |
00ea 792f b163  |y/ c|
00ec 705f da1b  |p_  |
00ee 8bc1 5f81  |  _ |
00f0 6766 5641  |gfVA|
00f2 5948 ac44  |YH D|
00f4 7012 0116  |p   |
00f6 2412 82e3  |$   |
00f8 44cf f866  |D  f|
00fa ec05 c845  |   E|
00fc 3356 0628  |3V (|
00fe 7da3 62d4  |} b |
0100 8050 6c61  | Pla|
0102 9c28 0139  | ( 9|
0104 3f2b 3d56  |?+=V|
0106 1c7f 8019  |    |
0108 809f 5926  |  Y&|
010a e557 4cba  | WL |
010c 9207 fd94  |    |
010e 1f6a f0d3  | j  |
0110 3251 3800  |2Q8 |
0112 9f55 867d  | U }|
0114 8190 98aa  |    |
0116 0004 2019  |    |
0118 3372 a27b  |3r {|
011a f200 df01  |    |
011c 2bb0 1beb  |+   |
011e 61af 1b21  |a  !|
0120 29e2 81d6  |)   |
0122 02c3 8a8a  |    |
0124 80de 8481  |    |
0126 7216 703b  |r p;|
0128 6327 3b8d  |c'; |
012a ddca 1cc2  |    |
012c 7ab2 efd6  |z   |
012e 4c82 5057  |L PW|
0130 2adc 48dc  |* H |
0132 0149 d4ec  | I  |
0134 83b5 ec0f  |    |
0136 8027 3ee5  | '> |
0138 c028 e417  | (  |
013a 3794 6623  |7 f#|
013c 9fe8 37b8  |  7 |
013e 0f48 04db  | H  |
0140 71fd 44d0  |q D |
0142 0845 41ec  | EA |
0144 a049 375f  | I7_|
0146 293a f213  |):  |
0148 f0b7 8bbe  |    |
014a 91f0 b938  |   8|
014c 45b0 4d8b  |E M |
014e 28b1 970b  |(   |
0150 83c2 a56f  |   o|
0152 e125 d345  | % E|
0154 c04a 6d69  | Jmi|
0156 9b04 9301  |    |
0158 31c9 7cc3  |1 | |
015a f0e8 1ba5  |    |
015c a351 31f4  | Q1 |
015e 28a4 c4e8  |(   |
0160 8056 c0c7  | V  |
0162 2f0c c1c3  |/   |
0164 d4be dabe  |    |
0166 e907 7745  |  wE|
0168 eb63 2555  | c%U|
016a 0cf5 ec66  |   f|
016c f6ca ed6e  |   n|
016e c2b4 dd12  |    |
0170 0013 e25c  |   \|
0172 683c a035  |h< 5|
0174 c040 f393  | @  |
0176 f9d8 7e00  |  ~ |
0178 3bc2 7bca  |; { |
017a bc32 8282  | 2  |
017c 9807 056c  |   l|
017e 3414 40af  |4 @ |
0180 61b3 779d  |a w |
0182 6242 30d0  |bB0 |
0184 0c02 ae8e  |    |
0186 1ae9 b8b4  |    |
0188 f371 d065  | q e|
018a a43c 6dfd  | <m |
018c 009b 83a5  |    |
018e ecb1 af1a  |    |
0190 0063 f043  | c C|
0192 d793 7e30  |  ~0|
0194 eace a932  |   2|
0196 78c4 0f50  |x  P|
0198 a336 9668  | 6 h|
019a 32b7 c8a1  |2   |
019c 0ad0 2400  |  $ |
019e e008 c1c5  |    |
01a0 4c11 8197  |L   |
01a2 b78d 6366  |  cf|
01a4 c604 b908  |    |
01a6 af2c b8e1  | ,  |
01a8 aa1a d6d8  |    |
01aa c8ff ceb9  |    |
01ac 70bc e000  |p   |
01ae 206e 7239  | nr9|
01b0 140b 4881  |  H |
01b2 9ee5 6002  |  ` |
01b4 3566 9910  |5f  |
01b6 0fe3 2b35  |  +5|
01b8 7efd c98c  |~   |
01ba 0284 f160  |   `|
01bc b821 2004  | !  |
01be a919 657f  |  e |
01c0 a260 15b6  | `  |
01c2 c470 88e0  | p  |
01c4 0ba1 2b5c  |  +\|
01c6 c7e1 6ec6  |  n |
01c8 c9f3 4072  |  @r|
01ca c241 1003  | A  |
01cc 4400 b32c  |D  ,|
01ce b847 30c9  | G0 |
01d0 6c65 7260  |ler`|
01d2 c503 b529  |   )|
01d4 ba10 35ff  |  5 |
01d6 5341 c965  |SA e|
01d8 c2d2 70ec  |  p |
01da 40db a02f  |@  /|
01dc 0f13 2d7c  |  -||
01de a561 7c65  | a|e|
01e0 a401 8b83  |    |
01e2 6012 5bac  |` [ |
01e4 02b7 94c8  |    |
01e6 0040 d2da  | @  |
01e8 b13d da94  | =  |
01ea c65a 3402  | Z4 |
01ec 2538 1141  |%8 A|
01ee 9166 98f1  | f  |
01f0 58d8 1c71  |X  q|
01f2 eb70 d2fd  | p  |
01f4 942a 6967  | *ig|
01f6 d6ca f15b  |   [|
01f8 58b3 1e1a  |X   |
01fa 672e 9595  |g.  |
01fc f900 5e82  |  ^ |
01fe 32c5 7059  |2 pY|