|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0038 | 8 | .CONST 0x0038 ; 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 000f | | .CONST 0x000f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0002 | | .CONST 0x0002 ; Number of locals
000b INIT_0008:
000b e403 | | Load 0x2,0x3
000c 0322 | " | Declare_Variable Record
000d 00d8 | | Load_Top At_Offset_0
000e 1c00 | | Execute_Immediate Run_Utility,0x0
000f BODY_0008:
000f e7ff | | Load 0x3,-0x1
0010 800d | | Call 0x0,0xd
0011 e602 | | Load 0x3,0x2
0012 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0013 e7ff | | Load 0x3,-0x1
0014 800e | | Call 0x0,0xe
0015 e602 | | Load 0x3,0x2
0016 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0017 e7ff | | Load 0x3,-0x1
0018 800f | | Call 0x0,0xf
0019 e602 | | Load 0x3,0x2
001a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
001b e7ff | | Load 0x3,-0x1
001c 8010 | | Call 0x0,0x10
001d e602 | | Load 0x3,0x2
001e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
001f e7ff | | Load 0x3,-0x1
0020 8011 | | Call 0x0,0x11
0021 7004 |p | Jump_Nonzero 0x26
0022 4801 |H | Short_Literal 0x1
0023 e602 | | Load 0x3,0x2
0024 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0025 7803 |x | Jump 0x29
0026 4800 |H | Short_Literal 0x0
0027 e602 | | Load 0x3,0x2
0028 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0029 e405 | | Load 0x2,0x5
002a 4800 |H | Short_Literal 0x0
002b e7ff | | Load 0x3,-0x1
002c 8012 | | Call 0x0,0x12
002d 840a | | Call 0x2,0xa
002e e602 | | Load 0x3,0x2
002f 8409 | | Call 0x2,0x9
0030 e7ff | | Load 0x3,-0x1
0031 8012 | | Call 0x0,0x12
0032 e404 | | Load 0x2,0x4
0033 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0034 c405 | | Store 0x2,0x5
0035 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; Debug Table
0038 ; --------------------------------------------------------------------------------------
0038 0004 0011 | | .DEBUG4 0x0004,0x0011,0x2386,0x0000,0x0001,0x0000
003e 8076 305c | v0\| .XXX[0x49]
0040 8000 0003 | |
0042 8000 0020 | |
0044 1014 3337 | 37|
0046 b910 32bc | 2 |
0048 30b6 b836 |0 6|
004a 3290 3a34 |2 :4|
004c 3290 3637 |2 67|
004e b3b4 b710 | |
0050 36b0 b730 |6 0|
0052 b3b2 b910 | |
0054 37b9 1031 |7 1|
0056 b7b9 3290 | 2 |
0058 32b2 34ba |2 4 |
005a 37b9 1490 |7 |
005c 3a37 9038 |:7 8|
005e 3932 bb32 |92 2|
0060 b73a 1037 | : 7|
0062 ba34 32b9 | 42 |
0064 0076 3360 | v3`|
0066 8000 0005 | |
0068 0076 3438 | v48|
006a 8076 31c0 | v1 |
006c 8000 0003 | |
006e 8000 0017 | |
0070 1035 37b1 | 57 |
0072 3990 3339 |9 39|
0074 37b6 9036 |7 6|
0076 b2b9 b9b4 | |
0078 b733 903b | 3 ;|
007a b4ba 3410 | 4 |
007c 3a34 3290 |:42 |
007e 39ba 30ba |9 0 |
0080 3290 37b3 |2 7 |
0082 1034 ba39 | 4 9|
0084 9038 37b9 | 87 |
0086 3a17 |: |
0087 0000 0000 | | .BLANK 0000[0x4]
008b 0076 3478 | v4x| .XXX[0xfc]
008d 8076 3320 | v3 |
008f 8076 34b8 | v4 |
0091 8000 0005 | |
0093 0076 35e4 | v5 |
0095 8076 3438 | v48|
0097 8000 0003 | |
0099 8000 0021 | !|
009b 9023 37b9 | #7 |
009d 1032 b0b1 | 2 |
009f b410 2a32 | *2|
00a1 b637 32ba | 72 |
00a3 1038 37b9 | 87 |
00a5 3a10 3a34 |: :4|
00a7 32b9 3290 |2 2 |
00a9 34b9 9030 |4 0|
00ab 9021 37b7 | !7 |
00ad b632 b0b7 | 2 |
00af 103a 3430 | :40|
00b1 ba16 1034 | 4|
00b3 b310 2a39 | *9|
00b5 3ab2 9610 |: |
00b7 31b0 bab9 |1 |
00b9 b2b9 9032 | 2|
00bb b0b1 b400 | |
00bd 7636 2480 |v6$ |
00bf 0000 0500 | |
00c1 7637 4880 |v7H |
00c3 7634 7880 |v4x |
00c5 0000 0380 | |
00c7 0000 2090 | |
00c9 3932 b1b2 |92 |
00cb b4bb 32b2 | 2 |
00cd 1021 a926 | ! &|
00cf 2310 142a |# *|
00d1 32b6 3732 |2 72|
00d3 ba10 3732 | 72|
00d5 bbaf b634 | 4|
00d7 b732 9490 | 2 |
00d9 39b2 b8ba |9 |
00db b2b7 31b2 | 1 |
00dd 903a 3790 | :7 |
00df 3132 9039 |12 9|
00e1 32b0 b210 |2 |
00e3 30b9 9021 |0 !|
00e5 a910 30b6 | 0 |
00e7 37b7 3297 |7 2 |
00e9 0076 3788 | v7 |
00eb 8000 0005 | |
00ed 0076 38ac | v8 |
00ef 8076 35e4 | v5 |
00f1 8000 0003 | |
00f3 8000 0020 | |
00f5 902a 3432 | *42|
00f7 9038 3ab9 | 8: |
00f9 3837 b9b2 |87 |
00fb 9037 b310 | 7 |
00fd 3a34 34b9 |:44 |
00ff 9039 bbb4 | 9 |
0101 ba31 b410 | 1 |
0103 34b9 903a |4 :|
0105 3790 39ba |7 9 |
0107 b838 37b9 | 87 |
0109 3a10 2a32 |: *2|
010b b637 32ba | 72 |
010d 103a 32b9 | :2 |
010f 36b4 b730 |6 0|
0111 b610 39b2 | 9 |
0113 b93b 32b9 | ;2 |
0115 3980 7638 |9 v8|
0117 ec80 0000 | |
0119 0500 763a | v:|
011b 1480 7637 | v7|
011d 4880 0000 |H |
011f 0380 0000 | |
0121 2110 3a34 |! :4|
0123 30ba 103a |0 :|
0125 3930 b739 |90 9|
0127 b6b4 ba10 | |
0129 3a34 3290 |:42 |
012b 39b4 b733 |9 3|
012d b632 9035 | 2 5|
012f b2bc b9ba | |
0131 3937 b5b2 |97 |
0133 902d b932 | - 2|
0135 ba3a b937 | : 7|
0137 2e90 30b9 |. 0 |
0139 9030 902a | 0 *|
013b 32b6 3732 |2 72|
013d ba10 3732 | 72|
013f bbaf b634 | 4|
0141 b732 9700 | 2 |
0143 763a 5480 |v:T |
0145 0000 0500 | |
0147 763b 7880 |v;x |
0149 7638 ac80 |v8 |
014b 0000 0380 | |
014d 0000 2090 | |
014f 20ba 1039 | 9|
0151 bcb9 ba32 | 2|
0153 b690 3137 | 17|
0155 b7ba 103a | :|
0157 34b6 b296 |4 |
0159 1032 bb32 | 2 2|
015b b93c 9038 | < 8|
015d 37b9 3a13 |7 : |
015f b990 39bb | 9 |
0161 b4ba 31b4 | 1 |
0163 1034 b990 | 4 |
0165 39b2 ba10 |9 |
0167 3a37 902a |:7 *|
0169 393a b297 |9: |
016b 1010 24ba | $ |
016d 1036 b0bc | 6 |
016f 8076 3bb8 | v; |
0171 8000 0005 | |
0173 0076 3c38 | v<8|
0175 8076 3a14 | v: |
0177 8000 0003 | |
0179 8000 000c | |
017b 1031 3290 | 12 |
017d 31b4 30b7 |1 0 |
017f 33b2 b210 |3 |
0181 30ba 1030 |0 0|
0183 b73c 903a | < :|
0185 34b6 b297 |4 |
0187 0000 0000 | | .BLANK 0000[0x4]
018b 0076 2294 | v" | .XXX[0xc]
018d 8076 3b78 | v;x|
018f 8000 93e3 | |
0191 4000 0000 |@ |
0193 0000 0001 | |
0195 00ec 4529 | E)|
0197 0000 0000 | | .BLANK 0000[0x4]
019b 0076 3d18 | v= | .XXX[0x1e]
019d 8000 0005 | |
019f 0076 3e04 | v> |
01a1 8076 3dc4 | v= |
01a3 8000 0003 | |
01a5 8000 0011 | |
01a7 9029 b2ba | ) |
01a9 103a 3432 | :42|
01ab 9039 bbb4 | 9 |
01ad ba31 b410 | 1 |
01af 3a37 903a |:7 :|
01b1 3432 9033 |42 3|
01b3 b4bb 32b7 | 2 |
01b5 103b 30b6 | ;0 |
01b7 3ab2 9700 |: |
01b9 0000 0000 | | .BLANK 0000[0x4]
01bd 763c d880 |v< | .XXX[0x4]
01bf 763e 0480 |v> |
01c1 0000 0000 | | .BLANK 0000[0x4]
01c5 763d c480 |v= | .XXX[0x30]
01c7 763c d880 |v< |
01c9 0094 c240 | @|
01cb 0000 0000 | |
01cd 0000 0100 | |
01cf ec7b 8900 | { |
01d1 ec41 f100 | A |
01d3 ec87 0900 | |
01d5 763e e480 |v> |
01d7 0000 0500 | |
01d9 763f e480 |v? |
01db 763f a480 |v? |
01dd 0000 0380 | |
01df 0000 1410 | |
01e1 2932 ba3a |)2 :|
01e3 b937 103a | 7 :|
01e5 3432 9038 |42 8|
01e7 3932 b9b2 |92 |
01e9 b73a 103b | : ;|
01eb 30b6 3ab2 |0 : |
01ed 9037 b310 | 7 |
01ef 3a34 3290 |:42 |
01f1 39bb b4ba |9 |
01f3 31b4 1700 |1 |
01f5 0000 0000 | | .BLANK 0000[0x4]
01f9 763e a480 |v> | .XXX[0x7]
01fb 763f e480 |v? |
01fd 0000 0000 | |
01ff 0000 | |