godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial revision

Browse Source
This commit is contained in:
ceriel
1988-10-05 13:29:42 +00:00
parent fafba34a5c
commit 5d6bd5f65f
10 changed files with 1078 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
lang/a68s/test/complex.8 Normal file
View File

@@ -0,0 +1,118 @@
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 )