ack/lang/a68s/test/complex.8

00050 .PR POINT .PR
00100 (.LOC .COMPL X,Y:=3 .I 2,Z:=3 .I (-2) 
00110 ;.LOC .REAL A 
00120 ;.LOC .FILE RESULTS 
00130 ;.LOC [1:10] .COMPL A1,A2,A3,A4,A5,A6 
00140 ;.LOC .STRUCT(.COMPL S,T) S1,S2,S3,S4,S5,S6 
00150 ;OPEN(RESULTS,"RESULTS",STAND OUT CHANNEL)
00160 ;PUT(RESULTS,(Y,NEWLINE,Z,NEWLINE)) 
00170 ;.FOR I .TO 10 .DO A1[I]:=A2[I]:=A3[I]:=A4[I]:=A5[I]:=A6[I]:=I .I (I+1) .OD 
00180 ;S1:=S2:=S3:=S4:=S5:=S6:=(1 .I 1,4 .I 4)
00190 ;X:=Y+Z 
00200 ;PUT(RESULTS,(X,NEWLINE)) 
00210 ;X:=Y+3.14159 .I 1.23456789 
00220 ;PUT(RESULTS,(X,NEWLINE)) 
00230 ;X:=Y+9.87654321
00240 ;PUT(RESULTS,(X,NEWLINE)) 
00250 ;X:=Y-Z 
00260 ;PUT(RESULTS,(X,NEWLINE)) 
00270 ;X:=Y-3.14159 .I 1.23456789 
00280 ;PUT(RESULTS,(X,NEWLINE)) 
00290 ;X:=Y*Z 
00300 ;PUT(RESULTS,(X,NEWLINE)) 
00310 ;X:=Y*4 .I 3
00320 ;PUT(RESULTS,(X,NEWLINE)) 
00330 ;X:=Y*3.14159 .I 1.23456789 
00340 ;PUT(RESULTS,(X,NEWLINE)) 
00350 ;X:=Y/Z 
00360 ;PUT(RESULTS,(X,NEWLINE)) 
00370 ;X:=Y/4 .I 3
00380 ;PUT(RESULTS,(X,NEWLINE)) 
00390 ;X:=3.14159 .I 1.23456789/Y 
00400 ;PUT(RESULTS,(X,NEWLINE)) 
00410 ;X:=-X
00420 ;PUT(RESULTS,(X,NEWLINE)) 
00430 ;A:=.RE X 
00440 ;PUT(RESULTS,(A,NEWLINE)) 
00450 ;A:=.IM X 
00460 ;PUT(RESULTS,(A,NEWLINE)) 
00470 ;X:=.CONJ X 
00480 ;PUT(RESULTS,(X,NEWLINE)) 
00490 ;A:=.ABS Y
00500 ;PUT(RESULTS,(A,NEWLINE)) 
00510 ;A:=.ABS(3.1519 .I 1.23456789)
00520 ;PUT(RESULTS,(A,NEWLINE)) 
00530 ;A:=.ABS(0 .I 1.23456789) 
00540 ;PUT(RESULTS,(A,NEWLINE)) 
00550 ;A:=.ABS(3.1519 .I 0) 
00560 ;PUT(RESULTS,(A,NEWLINE)) 
00570 ;X:=Y**2
00580 ;PUT(RESULTS,(X,NEWLINE)) 
00590 ;X:=Z**2
00600 ;PUT(RESULTS,(X,NEWLINE)) 
00610 ;X:=Y**5
00620 ;PUT(RESULTS,(X,NEWLINE)) 
00630 ;X:=Y**-1 
00640 ;PUT(RESULTS,(X,NEWLINE)) 
00650 ;X:=Y**-3 
00660 ;PUT(RESULTS,(X,NEWLINE)) 
00670 ;X:=3.14159 .I 1.23456789**2
00680 ;PUT(RESULTS,(X,NEWLINE)) 
00690 ;X:=3.14159 .I 0**2 
00700 ;PUT(RESULTS,(X,NEWLINE)) 
00710 ;X:=0 .I 1.23456789**2
00720 ;PUT(RESULTS,(X,NEWLINE)) 
00730 ;X:=0 .I 0**2 
00740 ;PUT(RESULTS,(X,NEWLINE)) 
00750 ;.IF X=Y .THEN PUT(RESULTS,("X=Y",NEWLINE)) .FI 
00760 ;PUT(RESULTS,(X,NEWLINE)) 
00770 ;X:=Y 
00780 ;.IF X=Y .THEN PUT(RESULTS,("X=Y",NEWLINE)) .FI 
00790 ;PUT(RESULTS,(X,NEWLINE)) 
00800 ;.IF X/=Y .THEN PUT(RESULTS,("X/=Y",NEWLINE)) .FI 
00810 ;PUT(RESULTS,(X,NEWLINE)) 
00820 ;X:=Z 
00830 ;.IF X/=Y .THEN PUT(RESULTS,("X/=Y",NEWLINE)) .FI 
00840 ;PUT(RESULTS,(X,NEWLINE)) 
00850 ;X+:=Y
00860 ;PUT(RESULTS,(X,NEWLINE)) 
00870 ;X-:=Y
00880 ;PUT(RESULTS,(X,NEWLINE)) 
00890 ;X*:=Y
00900 ;PUT(RESULTS,(X,NEWLINE)) 
00910 ;X/:=Y
00920 ;PUT(RESULTS,(X,NEWLINE)) 
00930 ;A:=.ARG(4 .I 3)
00940 ;PUT(RESULTS,(A,NEWLINE)) 
00950 ;A:=.ARG(4 .I -3) 
00960 ;PUT(RESULTS,(A,NEWLINE)) 
00970 ;A:=.ARG(-4 .I -3)
00980 ;PUT(RESULTS,(A,NEWLINE)) 
00990 ;A:=.ARG(-4 .I 3) 
01000 ;PUT(RESULTS,(A,NEWLINE)) 
01010 ;A:=.ARG(3.14159 .I 1.23456789) 
01020 ;PUT(RESULTS,(A,NEWLINE)) 
01030 ;A:=.ARG(0 .I 1.23456789) 
01040 ;PUT(RESULTS,(A,NEWLINE)) 
01050 ;A:=.ARG(3.14159 .I 0)
01060 ;PUT(RESULTS,(A,NEWLINE)) 
01070 ;A1[1]+:=Y
01080 ;PUT(RESULTS,(A1[1],A2[1],NEWLINE)) 
01090 ;A2[2]-:=Y
01100 ;PUT(RESULTS,(A2[2],A3[2],NEWLINE)) 
01110 ;A3[3]*:=Y
01120 ;PUT(RESULTS,(A3[3],A4[3],NEWLINE)) 
01130 ;A4[4]/:=Y
01140 ;PUT(RESULTS,(A4[4],A5[4],NEWLINE)) 
01150 ;.FOR I .TO 10 .DO PUT(RESULTS,(A6[I],NEWLINE)) .OD 
01160 ;S .OF S1+:=Y 
01170 ;PUT(RESULTS,(S .OF S1,S .OF S2,NEWLINE)) 
01180 ;S .OF S2-:=Y 
01190 ;PUT(RESULTS,(S .OF S2,S .OF S3,NEWLINE)) 
01200 ;T .OF S3*:=Y 
01210 ;PUT(RESULTS,(T .OF S3,T .OF S4,NEWLINE)) 
01220 ;T .OF S4/:=Y 
01230 ;PUT(RESULTS,(T .OF S4,T .OF S5,NEWLINE)) 
01240 ;PUT(RESULTS,(S .OF S6,T .OF S6,NEWLINE)) 
01250 ;CLOSE(RESULTS) 
01260 )