|
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} |