Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0002/baiclc.fai
There is 1 other file named baiclc.fai in the archive. Click here to see a list.
TITLE BAICLC
$BEGIN__.+1
EXTERNAL CVS
0
LINK PDLNK,.-1
,CVS
3
POINT 7,[ASCII/CVS/]
REFB+PROCB+STRING
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD CVS,0
XWD CVS,0
0+INTEGR+VALUE
EXTERNAL CVOS
0
LINK PDLNK,.-1
,CVOS
4
POINT 7,[ASCII/CVOS/]
REFB+PROCB+STRING
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD CVOS,0
XWD CVOS,0
0+UNTYPE+VALUE
EXTERNAL CVSTR
0
LINK PDLNK,.-1
,CVSTR
5
POINT 7,[ASCII/CVSTR/]
REFB+PROCB+STRING
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD CVSTR,0
XWD CVSTR,0
0+INTEGR+VALUE
EXTERNAL LOG$
0
LINK PDLNK,.-1
,LOG$
3
POINT 7,[ASCII/LOG/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD LOG$,0
XWD LOG$,0
0+FLOTNG+VALUE
EXTERNAL EXP$
0
LINK PDLNK,.-1
,EXP$
3
POINT 7,[ASCII/EXP/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD EXP$,0
XWD EXP$,0
0+FLOTNG+VALUE
EXTERNAL SIN$
0
LINK PDLNK,.-1
,SIN$
3
POINT 7,[ASCII/SIN/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SIN$,0
XWD SIN$,0
0+FLOTNG+VALUE
EXTERNAL COS$
0
LINK PDLNK,.-1
,COS$
3
POINT 7,[ASCII/COS/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD COS$,0
XWD COS$,0
0+FLOTNG+VALUE
EXTERNAL SQRT$
0
LINK PDLNK,.-1
,SQRT$
4
POINT 7,[ASCII/SQRT/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD SQRT$,0
XWD SQRT$,0
0+FLOTNG+VALUE
EXTERNAL RAN$
0
LINK PDLNK,.-1
,RAN$
3
POINT 7,[ASCII/RAN/]
REFB+PROCB+FLOTNG
XWD 2*0,2
0
0
XWD 0,.+4
XWD .-10,0
XWD RAN$,0
XWD RAN$,0
0+INTEGR+VALUE
0
$DFLT$: 0
0
LINK BALNK,.-1
XWD $BEGIN,$BEGIN
IFNDEF GTJFN,<
1,,1
SIXBIT /BAICLC/
>;IFNDEF GTJFN
IFDEF GTJFN,<
1,,3
ASCIZ /SAI:BAICLC.SM1/
>;IFDEF GTJFN
-1
END