|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
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 00e8 | | .CONST 0x00e8 ; 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 0011 | | .CONST 0x0011 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 000f 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0011 BODY_0008: 0011 e5ff | | Load 0x2,-0x1 0012 e022 | " | Load 0x0,0x22 0013 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0014 700b |p | Jump_Nonzero 0x20 0015 e023 | # | Load 0x0,0x23 0016 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0017 e023 | # | Load 0x0,0x23 0018 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0019 e5fc | | Load 0x2,-0x4 001a e022 | " | Load 0x0,0x22 001b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 001c e023 | # | Load 0x0,0x23 001d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 001e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 001f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0020 8403 | | Call 0x2,0x3 0021 00cf | | Action Mark_Auxiliary 0022 e5ff | | Load 0x2,-0x1 0023 e022 | " | Load 0x0,0x22 0024 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0025 e5ff | | Load 0x2,-0x1 0026 e022 | " | Load 0x0,0x22 0027 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0028 0263 | c | Execute Discrete,Above_Bound 0029 7007 |p | Jump_Nonzero 0x31 002a 00d8 | | Load_Top At_Offset_0 002b e5ff | | Load 0x2,-0x1 002c e022 | " | Load 0x0,0x22 002d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 002e 8404 | | Call 0x2,0x4 002f 00c8 | | Action Pop_Auxiliary_Range 0030 3ff9 |? | Loop_Increasing 0x2a 0031 00ce | | Action Pop_Auxiliary 0032 e023 | # | Load 0x0,0x23 0033 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0034 e023 | # | Load 0x0,0x23 0035 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0036 8210 | | Call 0x1,0x10 0037 4505 |E | Exit_Suprogram New_Top_Offset 0x5 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 00da | | Load_Top At_Offset_2 003c e024 | $ | Load 0x0,0x24 003d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 003e 0f10 | | Execute_Immediate Equal,0x10 003f 700e |p | Jump_Nonzero 0x4e 0040 0092 00ce | | Action Push_String_Extended,0xce ; "<XRS_PARA (" 0042 00db | | Load_Top At_Offset_3 0043 e024 | $ | Load 0x0,0x24 0044 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0045 e027 | ' | Load 0x0,0x27 0046 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29 0047 011c | | Execute Any,Convert_Unchecked 0048 1c01 | | Execute_Immediate Run_Utility,0x1 0049 01cc | | Execute Vector,Catenate 004a 0092 00cf | | Action Push_String_Extended,0xcf ; ")>" 004c 01cc | | Execute Vector,Catenate 004d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004e 482e |H. | Short_Literal 0x2e 004f 4807 |H | Short_Literal 0x7 0050 e7ff | | Load 0x3,-0x1 0051 e022 | " | Load 0x0,0x22 0052 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0053 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0054 01cb | | Execute Vector,Append 0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0056 0000 0000 | | .XXX[0x2] 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 480a |H | Short_Literal 0xa 005c e022 | " | Load 0x0,0x22 005d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 005e 00ea | | Load_Encached Null_String_Cache 005f e5ff | | Load 0x2,-0x1 0060 e022 | " | Load 0x0,0x22 0061 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0062 4800 |H | Short_Literal 0x0 0063 e5fd | | Load 0x2,-0x3 0064 e5fe | | Load 0x2,-0x2 0065 820d | | Call 0x1,0xd 0066 480b |H | Short_Literal 0xb 0067 e022 | " | Load 0x0,0x22 0068 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0069 e023 | # | Load 0x0,0x23 006a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 006b 5814 |X | Indirect_Literal Float,0x80,70.0 006c 4802 |H | Short_Literal 0x2 006d 0092 00d0 | | Action Push_String_Extended,0xd0 ; "Requirement Name" 006f 820e | | Call 0x1,0xe 0070 480b |H | Short_Literal 0xb 0071 e022 | " | Load 0x0,0x22 0072 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0073 e023 | # | Load 0x0,0x23 0074 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0075 5806 |X | Indirect_Literal Float,0x7c,30.0 0076 4802 |H | Short_Literal 0x2 0077 0092 00d1 | | Action Push_String_Extended,0xd1 ; "IRS Paragraph" 0079 820e | | Call 0x1,0xe 007a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007b 0000 | | .XXX[0x1] 007c 403e 0000 |@> | .DBL 30.0 007e 0000 0000 | | 0080 4051 8000 |@Q | .DBL 70.0 0082 0000 0000 | | 0084 0000 0000 | | .BLANK 0000[0x4] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0092 | | .CONST 0x0092 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0003 | | .CONST 0x0003 ; Number of locals 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4 008d e024 | $ | Load 0x0,0x24 008e 1b15 | | Execute Package,Field_Read,Field_Number 0x15 008f 011e | | Execute Any,Convert 0090 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0092 BODY_0088: 0092 4801 |H | Short_Literal 0x1 0093 480d |H | Short_Literal 0xd 0094 e022 | " | Load 0x0,0x22 0095 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0096 00ea | | Load_Encached Null_String_Cache 0097 4800 |H | Short_Literal 0x0 0098 e602 | | Load 0x3,0x2 0099 e022 | " | Load 0x0,0x22 009a 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 009b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 009c 4801 |H | Short_Literal 0x1 009d e602 | | Load 0x3,0x2 009e e022 | " | Load 0x0,0x22 009f 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a1 820f | | Call 0x1,0xf 00a2 00d9 | | Load_Top At_Offset_1 00a3 e024 | $ | Load 0x0,0x24 00a4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00a5 6802 |h | Jump_Zero 0xa8 00a6 8603 | | Call 0x3,0x3 00a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a8 4801 |H | Short_Literal 0x1 00a9 480d |H | Short_Literal 0xd 00aa e022 | " | Load 0x0,0x22 00ab 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00ac e023 | # | Load 0x0,0x23 00ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00ae e236 | 6 | Load 0x1,0x36 00af 820f | | Call 0x1,0xf 00b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bd | | .CONST 0x00bd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e602 | | Load 0x3,0x2 00bc 8402 | | Call 0x2,0x2 00bd BODY_00b8: 00bd 4801 |H | Short_Literal 0x1 00be 480d |H | Short_Literal 0xd 00bf e022 | " | Load 0x0,0x22 00c0 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 00c1 00ea | | Load_Encached Null_String_Cache 00c2 00db | | Load_Top At_Offset_3 00c3 e7ff | | Load 0x3,-0x1 00c4 4806 |H | Short_Literal 0x6 00c5 e022 | " | Load 0x0,0x22 00c6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 00c7 00db | | Load_Top At_Offset_3 00c8 e7ff | | Load 0x3,-0x1 00c9 4806 |H | Short_Literal 0x6 00ca e022 | " | Load 0x0,0x22 00cb 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00cc 820f | | Call 0x1,0xf 00cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ce ; -------------------------------------------------------------------------------------- 00ce ; STRING TABLE 00ce ; -------------------------------------------------------------------------------------- 00ce 000a | | .STRTAB 0x000a->0x00d3 ; "<XRS_PARA (" 00cf 0013 | | .STRTAB 0x0013->0x00d8 ; ")>" 00d0 0013 | | .STRTAB 0x0013->0x00d9 ; "Requirement Name" 00d1 0021 | ! | .STRTAB 0x0021->0x00e1 ; "IRS Paragraph" 00d2 002c | , | .STREND 0x002c->0x00e8 00d3 3c58 5253 |<XRS| .STRTAB_STRINGS 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; Debug Table 00e8 ; -------------------------------------------------------------------------------------- 00e8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc84,0x0000,0x0001,0x0000 00ee c389 af8b | | .XXX[0x112] 00f0 6ac0 8772 |j r| 00f2 bb89 c37b | {| 00f4 9ecd cb89 | | 00f6 6218 54d0 |b T | 00f8 3f76 cf89 |?v | 00fa 9b85 e78b | | 00fc ef77 bf74 | w t| 00fe 04cd 134e | N| 0100 c788 077e | ~| 0102 af88 696d | im| 0104 8b18 2800 | ( | 0106 1b51 6b86 | Qk | 0108 cf8a 6b71 | kq| 010a c789 3b80 | ; | 010c 4577 bb6d |Ew m| 010e 8800 82d2 | | 0110 df86 eb80 | | 0112 bc06 6037 | `7| 0114 5b88 3405 |[ 4 | 0116 dcc3 8372 | r| 0118 cb7b 578b | {W | 011a 4a87 7388 |J s | 011c 5401 eb3a |T :| 011e 1cfe 7377 | sw| 0120 6b8b 878a |k | 0122 3d11 ef69 |= i| 0124 0389 0802 | | 0126 b436 4df1 | 6M | 0128 077a b38b | z | 012a b40f bb89 | | 012c c048 0401 | H | 012e 0719 4f84 | O | 0130 3787 cb8a |7 | 0132 b45f d78b | _ | 0134 7728 8cbe |w( | 0136 7377 e389 |sw | 0138 df59 e71e | Y | 013a c385 5f88 | _ | 013c 8f22 a9a7 | " | 013e 3f77 aec1 |?w | 0140 7389 138a |s | 0142 5b89 4b74 |[ Kt| 0144 550d 9401 |U | 0146 3ca4 9401 |< | 0148 8ead d380 | | 014a 178c 338c | 3 | 014c 6804 3b8d |h ; | 014e d318 2802 | ( | 0150 a5dd 0f74 | t| 0152 2f8d 5022 |/ P"| 0154 e5de 6383 | c | 0156 4b88 d0d0 |K | 0158 7410 b76d |t m| 015a 8b77 0788 | w | 015c bf89 3c5c | <\| 015e 838d 536e | Sn| 0160 6b6d b72c |km ,| 0162 6b7c d76d |k| m| 0164 6774 9f8c |gt | 0166 578e 1848 |W H| 0168 8b89 294c | )L| 016a ab8d 6b6c | kl| 016c 3c1d f370 |< p| 016e 4389 621a |C b | 0170 2746 ef01 |'F | 0172 d758 9b77 | X w| 0174 c389 636c | cl| 0176 5b75 6b6c |[ukl| 0178 6402 8953 |d S| 017a 1f88 938c | | 017c f78d 8b6d | m| 017e 038d af8b | | 0180 b844 bf8c | D | 0182 62c1 0f8d |b | 0184 a76f eb85 | o | 0186 677f 1374 |g t| 0188 2801 9800 |( | 018a 437c db74 |C| t| 018c 2d9d 2005 |- | 018e e388 8f8e | | 0190 9b71 f354 | q T| 0192 414d bb73 |AM s| 0194 6781 4b89 |g K | 0196 741e 1ae5 |t | 0198 872c 2803 | ,( | 019a 89e9 9f6d | m| 019c 4b8c 5c0a |K \ | 019e c970 d780 | p | 01a0 d78d 7e1a | ~ | 01a2 7b21 476d |{!Gm| 01a4 4b8c 878c |K | 01a6 0789 5b8d | [ | 01a8 4b8b 5422 |K T"| 01aa 1ae4 3f8e | ? | 01ac 6378 7804 |cxx | 01ae 8aed 49ed | I | 01b0 4401 4b38 |D K8| 01b2 2802 592c |( Y,| 01b4 837d af8d | } | 01b6 536c 301e |Sl0 | 01b8 bf86 f389 | | 01ba 7e18 8ef5 |~ | 01bc 278f 7244 |' rD| 01be 4b74 8b8d |Kt | 01c0 1788 594d | YM| 01c2 d759 8b76 | Y v| 01c4 1ae6 3770 | 7p| 01c6 3786 278d |7 ' | 01c8 6b6e 2f8c |kn/ | 01ca 578f b32d |W -| 01cc 8b8e 138d | | 01ce 1611 c002 | | 01d0 4b55 9f8e |KU | 01d2 e6d8 22b6 | " | 01d4 8370 0402 | p | 01d6 882c 238d | ,# | 01d8 3b85 2b78 |; +x| 01da 5322 3786 |S"7 | 01dc 4b21 cf8c |K! | 01de 3804 8aee |8 | 01e0 e422 6b6d | "km| 01e2 bb18 9cbf | | 01e4 136e 838c | n | 01e6 a418 3c1c | < | 01e8 8f7c 078d | | | 01ea cf8a 2803 | ( | 01ec 5f70 0403 |_p | 01ee 777a b379 |wz y| 01f0 bb8d d38c | | 01f2 0400 e019 | | 01f4 dcc1 fb79 | y| 01f6 6f8e e38d |o | 01f8 e806 ef8c | | 01fa 578f d147 |W G| 01fc ab70 8aed | p | 01fe 397d f002 |9} |