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

⟦18fbf40c6⟧

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

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 0058       | X  |		.CONST	0x0058								; 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 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
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 001b       |    |		.CONST	0x001b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0001       |    |		.CONST	0x0001								; Number of locals
001b			BODY_0018:
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
001d e001       |    |		Load	0x0,0x1
001e 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
001f 00db       |    |		Load_Top	At_Offset_3
0020 680a       |h   |		Jump_Zero	0x2b
0021 4801       |H   |		Short_Literal	0x1
0022 e001       |    |		Load	0x0,0x1
0023 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0024 0092 0038  |   8|		Action	Push_String_Extended,0x38					; "------- End of  step:   "
0026 00db       |    |		Load_Top	At_Offset_3
0027 01cc       |    |		Execute	Vector,Catenate
0028 e001       |    |		Load	0x0,0x1
0029 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
002a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
002b 4801       |H   |		Short_Literal	0x1
002c e001       |    |		Load	0x0,0x1
002d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
002e 0092 0039  |   9|		Action	Push_String_Extended,0x39					; "------- Beginning step: "
0030 00db       |    |		Load_Top	At_Offset_3
0031 01cc       |    |		Execute	Vector,Catenate
0032 e001       |    |		Load	0x0,0x1
0033 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0034 4801       |H   |		Short_Literal	0x1
0035 e001       |    |		Load	0x0,0x1
0036 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0037 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0038 ; --------------------------------------------------------------------------------------
0038 ; STRING TABLE
0038 ; --------------------------------------------------------------------------------------
0038 0006       |    |		.STRTAB	0x0006->0x003b							; "------- End of  step:   "
0039 001c       |    |		.STRTAB	0x001c->0x0047							; "------- Beginning step: "
003a 0032       | 2  |		.STREND 0x0032->0x0053
003b 2d2d 2d2d  |----|		.STRTAB_STRINGS
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x7924,0x0000,0x0001,0x0000
005e 0400 1c02  |    |		.XXX[0x1a2]
0060 4871 5510  |HqU |
0062 0400 0100  |    |
0064 9000 0000  |    |
0066 0000 00ff  |    |
0068 8000 0000  |    |
006a 0000 0006  |    |
006c b806 dc07  |    |
006e 0807 3c07  |  < |
0070 4807 6c07  |H l |
0072 ac07 e008  |    |
0074 0008 2408  |  $ |
0076 4408 6408  |D d |
0078 7408 8808  |t   |
007a b808 e809  |    |
007c 1009 2409  |  $ |
007e 5409 7009  |T p |
0080 9c09 c809  |    |
0082 ec0a 040a  |    |
0084 280a 580a  |( X |
0086 780a a80a  |x   |
0088 c40a f40b  |    |
008a 1c0b 440b  |  D |
008c 6c0b 900b  |l   |
008e b80b d80b  |    |
0090 fc0c 240c  |  $ |
0092 400c 700c  |@ p |
0094 9c0c a80c  |    |
0096 a80c c00c  |    |
0098 d80c fc0d  |    |
009a 140d 2c0d  |  , |
009c 440d 600d  |D ` |
009e 840d 980d  |    |
00a0 c40d f40e  |    |
00a2 180e 4c0e  |  L |
00a4 7c0e a80e  ||   |
00a6 d40e d00f  |    |
00a8 000f 240f  |  $ |
00aa 4c0f 780f  |L x |
00ac b80f b80f  |    |
00ae f010 3410  |  4 |
00b0 6810 9810  |h   |
00b2 d010 e811  |    |
00b4 1411 4811  |  H |
00b6 7c11 a011  ||   |
00b8 c411 f012  |    |
00ba 2012 5412  |  T |
00bc 9412 d813  |    |
00be 1813 3813  |  8 |
00c0 4013 4813  |@ H |
00c2 7c13 a013  ||   |
00c4 c413 e414  |    |
00c6 1c14 5814  |  X |
00c8 8414 b014  |    |
00ca e815 0c15  |    |
00cc 3415 3015  |4 0 |
00ce 5015 6415  |P d |
00d0 8015 b415  |    |
00d2 e416 1816  |    |
00d4 3816 5c16  |8 \ |
00d6 8416 a416  |    |
00d8 cc16 f017  |    |
00da 1017 3c17  |  < |
00dc 6817 9c17  |h   |
00de e018 0818  |    |
00e0 3018 4c18  |0 L |
00e2 8018 c018  |    |
00e4 ec19 2019  |    |
00e6 5419 8c19  |T   |
00e8 bc19 ec1a  |    |
00ea 1c1a 501a  |  P |
00ec 741a 981a  |t   |
00ee c81b 041b  |    |
00f0 201b 341b  |  4 |
00f2 441b 6c1b  |D l |
00f4 9c1b cc1c  |    |
00f6 101c 581c  |  X |
00f8 7c1c d41c  ||   |
00fa f41d 101d  |    |
00fc 141d 401d  |  @ |
00fe 701d ac1e  |p   |
0100 0c1e 581e  |  X |
0102 8c1e c01e  |    |
0104 ec1e f41f  |    |
0106 141f 541f  |  T |
0108 901f c820  |    |
010a 0420 3c20  |  < |
010c 7020 9820  |p   |
010e d021 0821  | ! !|
0110 3821 6821  |8!h!|
0112 9421 cc21  | ! !|
0114 f022 2822  | "("|
0116 5c22 8822  |\" "|
0118 d023 0c23  | # #|
011a 2423 5023  |$#P#|
011c 6823 8c23  |h# #|
011e b423 f024  | # $|
0120 1424 4c24  | $L$|
0122 5824 6824  |X$h$|
0124 8424 a824  | $ $|
0126 d425 0425  | % %|
0128 4025 7825  |@%x%|
012a 8c25 a425  | % %|
012c a425 e026  | % &|
012e 3026 3426  |0&4&|
0130 3c26 4826  |<&H&|
0132 7426 9826  |t& &|
0134 bc26 dc26  | & &|
0136 d827 0026  | ' &|
0138 fc26 f826  | & &|
013a f426 f427  | & '|
013c 3827 3427  |8'4'|
013e 3427 3027  |4'0'|
0140 2c27 2827  |,'('|
0142 2d51 e5c1  |-Q  |
0144 957d 3d99  | }= |
0146 99cd 95d1  |    |
0148 51bd 7d09  |Q } |
014a 957d 0589  | }  |
014c bdc9 d195  |    |
014e 9105 89bd  |    |
0150 c9d1 7d41  |  }A|
0152 c9bd d195  |    |
0154 8dd1 9591  |    |
0156 4dd1 858d  |M   |
0158 ad11 85d1  |    |
015a 857d 3d99  | }= |
015c 99cd 95d1  |    |
015e 09bd d5b9  |    |
0160 91cd 7d5d  |  }]|
0162 a5d1 a17d  |   }|
0164 3d89 a995  |=   |
0166 8dd1 1195  |    |
0168 c9a5 d995  |    |
016a cd7d 41c9  | }A |
016c a5d9 858d  |    |
016e e525 cd7d  | % }|
0170 41c9 a5d9  |A   |
0172 85d1 9525  |   %|
0174 cd7d 0dbd  | }  |
0176 b9cd d185  |    |
0178 b9d1 25cd  |  % |
017a 7d59 a5cd  |}Y  |
017c a589 b195  |    |
017e 4185 d1a1  |A   |
0180 7d4d d185  |}M  |
0182 8dad 3d99  |  = |
0184 99cd 95d1  |    |
0186 4d95 9db5  |M   |
0188 95b9 d10d  |    |
018a a1a5 b191  |    |
018c c995 b97d  |   }|
018e 4dd1 85c9  |M   |
0190 d10d bdb9  |    |
0192 d1c9 bdb1  |    |
0194 7d3d 9999  |}=  |
0196 cd95 d14d  |   M|
0198 d589 c1c9  |    |
019a bd9d 7d4d  |  }M|
019c a5d1 953d  |   =|
019e 997d 2da5  | }- |
01a0 b991 4d8d  |  M |
01a2 bdc1 957d  |   }|
01a4 19bd c97d  |   }|
01a6 4da5 d195  |M   |
01a8 3195 e17d  |1  }|
01aa 3195 d995  |1   |
01ac b14d d589  | M  |
01ae c1c9 bd9d  |    |
01b0 7d4d d185  |}M  |
01b2 c9d1 1195  |    |
01b4 8db1 85c9  |    |
01b6 957d 19c9  | }  |
01b8 85b5 95cd  |    |
01ba d185 c9d0  |    |
01bc 81c1 8c80  |    |
01be f480 ec81  |    |
01c0 b195 e080  |    |
01c2 f481 91a5  |    |
01c4 cdd1 c9a5  |    |
01c6 89d5 d1bd  |    |
01c8 c98d bdb9  |    |
01ca d1c9 bdb0  |    |
01cc 8195 e1d1  |    |
01ce 95b9 d189  |    |
01d0 c995 85ac  |    |
01d2 81b5 85cd  |    |
01d4 ad25 cd7d  | % }|
01d6 0d85 d185  |    |
01d8 b1bd 9dd5  |    |
01da 9590 8125  |   %|
01dc cd7d 5da5  | }] |
01de c995 9081  |    |
01e0 1195 b185  |    |
01e2 e57d 11d5  | }  |
01e4 c985 d1a5  |    |
01e6 bdb9 51a5  |  Q |
01e8 b595 917d  |   }|
01ea 0da1 bda5  |    |
01ec 8d95 3595  |  5 |
01ee b589 95c9  |    |
01f0 7d25 b991  |}%  |
01f2 95e1 19a5  |    |
01f4 c9cd d17d  |   }|
01f6 3595 b589  |5   |
01f8 95c9 3595  |  5 |
01fa b589 95c9  |    |
01fc 7d4d a5d1  |}M  |
01fe 9515 b9d1  |    |