|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3840 (0xf00)
Types: TextFile
Names: »fil«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »fil«
82.11.12. 11.42. pascal version 1980.06.17
1 program wheatstone(input,output);
2 (*$t-*)
3 (*$c+*)
4 type usedarray = array Æ1..4Å of real;
5 var
6 x1,x2,x3,x4,x,y,z,t,t1,t2: real;
7 e1 : usedarray;
8 i,j,k,l,n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11 : integer;
9 procedure pa(var e: usedarray);
10 var j: integer;
11 0 begin
12 1 j:=0;
13 2 repeat
14 3 eÆ1Å := (eÆ1Å+eÆ2Å+eÆ3Å-eÆ4Å)*t;
15 4 eÆ2Å := (eÆ1Å+eÆ2Å-eÆ3Å+eÆ4Å)*t;
16 5 eÆ3Å := (eÆ1Å-eÆ2Å+eÆ3Å+eÆ4Å)*t;
17 6 eÆ4Å := (-eÆ1Å+eÆ2Å+eÆ3Å+eÆ4Å)/t2;
18 7 j := j+1;
19 8 until j=5;
20 end ; (* procedure pa*)
21 (*$c-*)
22
23 procedure po;
24 0 begin
25 1 e1ÆjÅ := e1ÆkÅ;
26 2 e1ÆkÅ := e1ÆlÅ;
27 3 e1ÆlÅ := e1ÆjÅ;
28 end; (* procedure po *)
29 procedure p3(x,y : real; var z:real);
s.w. PA segment: 1
0: 6170640 rs w2 x2-2032
2: 5246976 rl w0 x1
4: 6039566 rs w0 x2-2034
6: 2883584 al w0 0
8: 6039570 rs w0 x2-2030
10: 5318668 rl w1 x2-2036
12: -2551806 dl w1 x1+2
14: 5449740 rl w3 x2-2036
16: -4116474 fa w1 x3+6
18: 5449740 rl w3 x2-2036
20: -4116470 fa w1 x3+10
22: 5449740 rl w3 x2-2036
24: -3854322 fs w1 x3+14
26: 2385934 am w0 (x2-2034)
28: -3602372 fm w1 -1988
30: 5449740 rl w3 x2-2036
32: -2281470 ds w1 x3+2
34: 5318668 rl w1 x2-2036
36: -2551806 dl w1 x1+2
38: 5449740 rl w3 x2-2036
40: -4116474 fa w1 x3+6
42: 5449740 rl w3 x2-2036
44: -3854326 fs w1 x3+10
46: 5449740 rl w3 x2-2036
48: -4116466 fa w1 x3+14
50: 2385934 am w0 (x2-2034)
52: -3602372 fm w1 -1988
54: 5449740 rl w3 x2-2036
56: -2281466 ds w1 x3+6
58: 5318668 rl w1 x2-2036
60: -2551806 dl w1 x1+2
62: 5449740 rl w3 x2-2036
64: -3854330 fs w1 x3+6
66: 5449740 rl w3 x2-2036
68: -4116470 fa w1 x3+10
70: 5449740 rl w3 x2-2036
72: -4116466 fa w1 x3+14
74: 2385934 am w0 (x2-2034)
76: -3602372 fm w1 -1988
78: 5449740 rl w3 x2-2036
80: -2281462 ds w1 x3+10
82: -2523092 dl. w1 44 126
84: 5449740 rl w3 x2-2036
86: -3854334 fs w1 x3+2
88: 5449740 rl w3 x2-2036
90: -4116474 fa w1 x3+6
92: 5449740 rl w3 x2-2036
94: -4116470 fa w1 x3+10
96: 5449740 rl w3 x2-2036
98: -4116466 fa w1 x3+14
100: 2385934 am w0 (x2-2034)
102: -3078076 fd w1 -1980
104: 5449740 rl w3 x2-2036
106: -2281458 ds w1 x3+14
108: 5318674 rl w1 x2-2030
110: 2953217 al w1 x1+1
112: 6105106 rs w1 x2-2030
114: 5318674 rl w1 x2-2030
116: -5701627 se w1 5
118: 3444628 jl. w0 -108 10
120: 5449742 rl w3 x2-2034
122: 3438595 jl w0 (x3-2045)
124: 0 aw w0 0
126: 2048 aw w0 -2048
e.
Code: 1K + 556 Halfwords
end
blocksread = 106
▶EOF◀