|
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 0138 | 8 | .CONST 0x0138 ; 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 0013 | | .CONST 0x0013 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0005 | | .CONST 0x0005 ; Number of locals
000b INIT_0008:
000b 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
000d 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
000f 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0011 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0013 BODY_0008:
0013 e5ff | | Load 0x2,-0x1
0014 e022 | " | Load 0x0,0x22
0015 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0016 700b |p | Jump_Nonzero 0x22
0017 e023 | # | Load 0x0,0x23
0018 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0019 e023 | # | Load 0x0,0x23
001a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
001b e5fc | | Load 0x2,-0x4
001c e022 | " | Load 0x0,0x22
001d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
001e e023 | # | Load 0x0,0x23
001f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0020 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0021 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0022 8402 | | Call 0x2,0x2
0023 00cf | | Action Mark_Auxiliary
0024 e5ff | | Load 0x2,-0x1
0025 e022 | " | Load 0x0,0x22
0026 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0027 e5ff | | Load 0x2,-0x1
0028 e022 | " | Load 0x0,0x22
0029 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
002a 0263 | c | Execute Discrete,Above_Bound
002b 7007 |p | Jump_Nonzero 0x33
002c 00d8 | | Load_Top At_Offset_0
002d e5ff | | Load 0x2,-0x1
002e e022 | " | Load 0x0,0x22
002f 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0030 8405 | | Call 0x2,0x5
0031 00c8 | | Action Pop_Auxiliary_Range
0032 3ff9 |? | Loop_Increasing 0x2c
0033 00ce | | Action Pop_Auxiliary
0034 e023 | # | Load 0x0,0x23
0035 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0036 e023 | # | Load 0x0,0x23
0037 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0038 8210 | | Call 0x1,0x10
0039 4505 |E | Exit_Suprogram New_Top_Offset 0x5
003a 0000 0000 | | .BLANK 0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 480a |H | Short_Literal 0xa
0044 e022 | " | Load 0x0,0x22
0045 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0046 e023 | # | Load 0x0,0x23
0047 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0048 4800 |H | Short_Literal 0x0
0049 e5fd | | Load 0x2,-0x3
004a e5fe | | Load 0x2,-0x2
004b 820d | | Call 0x1,0xd
004c 480b |H | Short_Literal 0xb
004d e022 | " | Load 0x0,0x22
004e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
004f e023 | # | Load 0x0,0x23
0050 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0051 581e |X | Indirect_Literal Float,0x70,20.0
0052 4802 |H | Short_Literal 0x2
0053 0092 0116 | | Action Push_String_Extended,0x116 ; "SRS/IRS Paragraph"
0055 820e | | Call 0x1,0xe
0056 480b |H | Short_Literal 0xb
0057 e022 | " | Load 0x0,0x22
0058 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0059 e023 | # | Load 0x0,0x23
005a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
005b 5810 |X | Indirect_Literal Float,0x6c,40.0
005c 4802 |H | Short_Literal 0x2
005d 0092 0117 | | Action Push_String_Extended,0x117 ; "Name and ID"
005f 820e | | Call 0x1,0xe
0060 480b |H | Short_Literal 0xb
0061 e022 | " | Load 0x0,0x22
0062 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0063 e023 | # | Load 0x0,0x23
0064 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0065 5806 |X | Indirect_Literal Float,0x6c,40.0
0066 4802 |H | Short_Literal 0x2
0067 0092 0118 | | Action Push_String_Extended,0x118 ; "SSS Paragraph(s)"
0069 820e | | Call 0x1,0xe
006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006b 0000 | | .XXX[0x1]
006c 4044 0000 |@D | .DBL 40.0
006e 0000 0000 | |
0070 4034 0000 |@4 | .DBL 20.0
0072 0000 0000 | |
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007f | | .CONST 0x007f ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e22c | , | Load 0x1,0x2c
007c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
007d 00e1 | | Load_Encached Boolean_Cache
007e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
007f BODY_0078:
007f 00cf | | Action Mark_Auxiliary
0080 e7ff | | Load 0x3,-0x1
0081 01d9 | | Execute Vector,Reverse_Bounds
0082 0263 | c | Execute Discrete,Above_Bound
0083 7020 |p | Jump_Nonzero 0xa4
0084 00db | | Load_Top At_Offset_3
0085 680e |h | Jump_Zero 0x94
0086 e602 | | Load 0x3,0x2
0087 483b |H; | Short_Literal 0x3b
0088 00da | | Load_Top At_Offset_2
0089 e7ff | | Load 0x3,-0x1
008a 01d7 | | Execute Vector,Field_Read
008b e022 | " | Load 0x0,0x22
008c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
008d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
008e e22c | , | Load 0x1,0x2c
008f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0090 c602 | | Store 0x3,0x2
0091 4800 |H | Short_Literal 0x0
0092 a603 | | Store_Unchecked 0x3,0x3
0093 780e |x | Jump 0xa2
0094 e602 | | Load 0x3,0x2
0095 0092 0119 | | Action Push_String_Extended,0x119 ; ", "
0097 483b |H; | Short_Literal 0x3b
0098 00db | | Load_Top At_Offset_3
0099 e7ff | | Load 0x3,-0x1
009a 01d7 | | Execute Vector,Field_Read
009b e022 | " | Load 0x0,0x22
009c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
009d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009e 01cc | | Execute Vector,Catenate
009f e22c | , | Load 0x1,0x2c
00a0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00a1 c602 | | Store 0x3,0x2
00a2 00c8 | | Action Pop_Auxiliary_Range
00a3 3fe0 |? | Loop_Increasing 0x84
00a4 00ce | | Action Pop_Auxiliary
00a5 00d9 | | Load_Top At_Offset_1
00a6 e22c | , | Load 0x1,0x2c
00a7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a9 0000 0000 | | .BLANK 0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00da | | Load_Top At_Offset_2
00b4 e024 | $ | Load 0x0,0x24
00b5 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00b6 0f10 | | Execute_Immediate Equal,0x10
00b7 7004 |p | Jump_Nonzero 0xbc
00b8 00da | | Load_Top At_Offset_2
00b9 e022 | " | Load 0x0,0x22
00ba 189f | | Execute Package,Field_Execute,Field_Number 0x9f
00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bc 482e |H. | Short_Literal 0x2e
00bd 4807 |H | Short_Literal 0x7
00be e7ff | | Load 0x3,-0x1
00bf e022 | " | Load 0x0,0x22
00c0 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c2 01cb | | Execute Vector,Append
00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d8 | | .CONST 0x00d8 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0004 | | .CONST 0x0004 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00cd e024 | $ | Load 0x0,0x24
00ce 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00cf 011e | | Execute Any,Convert
00d0 e022 | " | Load 0x0,0x22
00d1 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
00d2 481b |H | Short_Literal 0x1b
00d3 00da | | Load_Top At_Offset_2
00d4 e024 | $ | Load 0x0,0x24
00d5 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
00d6 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
00d8 BODY_00c8:
00d8 00da | | Load_Top At_Offset_2
00d9 e024 | $ | Load 0x0,0x24
00da 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00db 6802 |h | Jump_Zero 0xde
00dc 8604 | | Call 0x3,0x4
00dd 7808 |x | Jump 0xe6
00de 4801 |H | Short_Literal 0x1
00df 480d |H | Short_Literal 0xd
00e0 e022 | " | Load 0x0,0x22
00e1 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00e2 e023 | # | Load 0x0,0x23
00e3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e4 e236 | 6 | Load 0x1,0x36
00e5 820f | | Call 0x1,0xf
00e6 4801 |H | Short_Literal 0x1
00e7 480d |H | Short_Literal 0xd
00e8 e022 | " | Load 0x0,0x22
00e9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00ea 00ea | | Load_Encached Null_String_Cache
00eb 4800 |H | Short_Literal 0x0
00ec e602 | | Load 0x3,0x2
00ed e022 | " | Load 0x0,0x22
00ee 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00ef 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00f0 4807 |H | Short_Literal 0x7
00f1 e602 | | Load 0x3,0x2
00f2 e022 | " | Load 0x0,0x22
00f3 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f5 820f | | Call 0x1,0xf
00f6 4801 |H | Short_Literal 0x1
00f7 480d |H | Short_Literal 0xd
00f8 e022 | " | Load 0x0,0x22
00f9 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
00fa e023 | # | Load 0x0,0x23
00fb 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00fc e603 | | Load 0x3,0x3
00fd 8403 | | Call 0x2,0x3
00fe 820f | | Call 0x1,0xf
00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0105 | | .CONST 0x0105 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e602 | | Load 0x3,0x2
0104 8404 | | Call 0x2,0x4
0105 BODY_0100:
0105 4801 |H | Short_Literal 0x1
0106 480d |H | Short_Literal 0xd
0107 e022 | " | Load 0x0,0x22
0108 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0109 00ea | | Load_Encached Null_String_Cache
010a 00db | | Load_Top At_Offset_3
010b e7ff | | Load 0x3,-0x1
010c 4806 |H | Short_Literal 0x6
010d e022 | " | Load 0x0,0x22
010e 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
010f 00db | | Load_Top At_Offset_3
0110 e7ff | | Load 0x3,-0x1
0111 4806 |H | Short_Literal 0x6
0112 e022 | " | Load 0x0,0x22
0113 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0114 820f | | Call 0x1,0xf
0115 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0116 ; --------------------------------------------------------------------------------------
0116 ; STRING TABLE
0116 ; --------------------------------------------------------------------------------------
0116 000a | | .STRTAB 0x000a->0x011b ; "SRS/IRS Paragraph"
0117 0019 | | .STRTAB 0x0019->0x0123 ; "Name and ID"
0118 0022 | " | .STRTAB 0x0022->0x0129 ; "SSS Paragraph(s)"
0119 0030 | 0 | .STRTAB 0x0030->0x0131 ; ", "
011a 0030 | 0 | .STREND 0x0030->0x0132
011b 5352 532f |SRS/| .STRTAB_STRINGS
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug Table
0138 ; --------------------------------------------------------------------------------------
0138 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc89,0x0000,0x0001,0x0000
013e 0a67 36a9 | g6 | .XXX[0xc2]
0140 521f c2a9 |R |
0142 5a1f 1e66 |Z f|
0144 784b 11d0 |xK |
0146 89bf 2e65 | .e|
0148 921e 54c7 | T |
014a 3a65 5d81 |:e] |
014c a61e a025 | %|
014e 7981 b21e |y |
0150 1c23 5a65 | #Ze|
0152 8183 6267 | bg|
0154 144a 8ea9 | J |
0156 be67 dea8 | g |
0158 c0c7 7a66 | zf|
015a b0c5 e21f | |
015c 8665 ea1f | e |
015e 8e67 89d3 | g |
0160 9665 fa1e | e |
0162 ecc7 a265 | e|
0164 c583 aa66 | f|
0166 2a1f 384b |* 8K|
0168 b666 1e1c | f |
016a 812a 261e | *& |
016c 061f f04a | J|
016e 321f d266 |2 f|
0170 1982 3e1f | > |
0172 e1d2 4a1e | J |
0174 6e1f f1d3 |n |
0176 ee67 f9d3 | g |
0178 f664 0e6b | d k|
017a 8cc4 2268 | "h|
017c 066a 5580 | jU |
017e 984e 761e | Nv |
0180 6982 7e1e |i ~ |
0182 7580 35d6 |u 5 |
0184 7d80 3668 |} 6h|
0186 41d5 1928 |A (|
0188 2562 f63c |%b <|
018a 4a6b f4c6 |Jk |
018c aa1c 00c8 | |
018e 65d7 faaa |e |
0190 96aa be1d | |
0192 c89c 6a6a | jj|
0194 ca1c 766a | vj|
0196 b1b6 d180 | |
0198 34ca de1c |4 |
019a 99d7 06a0 | |
019c 5431 9000 |T1 |
019e 8e69 984e | i N|
01a0 f61c d657 | W|
01a2 0180 ae69 | i|
01a4 a928 c9d4 | ( |
01a6 5638 be68 |V8 h|
01a8 c66b 2580 | k% |
01aa ce6b 261c | k& |
01ac c9a8 da69 | i|
01ae 7027 361e |p'6 |
01b0 bcac ea6a | j|
01b2 5a62 642b |Zbd+|
01b4 4a1d 15d7 |J |
01b6 521c f26b |R k|
01b8 5a1d 252b |Z %+|
01ba 7581 1a68 |u h|
01bc 8e82 859f | |
01be 8d83 7a1d | z |
01c0 326b 821f |2k |
01c2 6e1f 8e1d |n |
01c4 5dd5 80c9 |] |
01c6 4e69 e2a9 |Ni |
01c8 566b cd81 |Vk |
01ca 5e6a 8928 |^j (|
01cc 9ea6 9129 | )|
01ce 6e69 1451 |ni Q|
01d0 7669 a8cb |vi |
01d2 b8e9 a9d5 | |
01d4 7269 b1d4 |ri |
01d6 fea9 e1d7 | |
01d8 092b 6129 | +a)|
01da a268 2185 | h! |
01dc aa6b 5574 | kUt|
01de 2d85 b668 |- h|
01e0 0e22 0dd4 | " |
01e2 fa82 18ca | |
01e4 3cc9 d268 |< h|
01e6 2a21 da68 |*! h|
01e8 3221 e26a |2! j|
01ea 05d5 ea69 | i|
01ec ca18 45ec | E |
01ee 7d85 fcc8 |} |
01f0 5622 70ca |V"p |
01f2 066a 7cc8 | j| |
01f4 6a20 ec50 |j P|
01f6 9d86 326a | 2j|
01f8 72ac 7e22 |r ~"|
01fa 2668 8623 |&h #|
01fc fa1c 7622 | v"|
01fe 16a8 d986 | |