FUNCTIONS:
FOR MOST FUNCTIONS, A SAMPLE LINE IS SHOWN AND THEN EXECUTED:
FABS( ) ABSOLUTE VALUE
EXAMPLE (WRITTEN THEN EXECUTED):
03.40 TYPE FABS(-3),FABS(2),!!!!
3.0000 2.0000
FADC( ) ANALOG TO DIGITAL INPUT FUNCTION
04.22 SET X=FADC( );TYPE !!!!
FATN( ) ARCTANGENT ARGUMENT RANGE: 0<A<10^6
05.25 TYPE FATN(1),!!!!;COM: OUTPUTS RADIAN ANGLE WHOSE TANGENT = 1.00
PRECISION DOES NOT EXCEED 6 DIGITS AND DROPS FOR NEAR-ZERO ARGUMENTS
0.7854
------- TANGENT 'FTAN( )' IS NOT AVAILABLE
TANGENT IS COMPUTED AS THE QUOTIENT (SINE/COSINE)
05.55 TYPE FSIN(1)/FCOS(1),!!!!;COMMENT: OUTPUTS TANGENT OF 1 RADIAN
1.5574
FCOS( ) COSINE
06.27 TYPE FCOS(1),FCOS(3/2),!!!!; COM: OUTPUTS COSINES OF 1 & 1.5 RADIANS
0.5403 0.0707
FDIS( ) DISPLAY FUNCTION FOR DEC TYPE 34D DISPLAY
EXAMPLE:
07.20 SET DU=FDIS(X,Y)
(PLOTS A POINT AT POSITION (X,Y) ON DISPLAY)
('DU' IS DUMMY VARIABLE)
DISPLAY AND JOYSTICK FUNCTIONS FOR PS/8 FOCAL ARE AVAILABLE FOR THE
TEKTRONIX T-4002 GRAPHIC COMPUTER TERMINAL
FEXP( ) EXPONENTIAL
08.24 TYPE FEXP(1),FEXP(2.17),!!!!; COM: NATURAL BASE TO THE POWER (X)
2.7183 8.7583
FITR( ) INTEGER
SERIOUS ROUNDING ERRORS OCCUR FOR NUMBERS OF MORE THAN 5 DIGITS.
THE PROBLEM MAY BE HANDLED BY ADDING EMPIRACAL CONSTANTS TO THE
ARGUMENT.
09.18 TYPE FITR(3/2),FITR(23.719),FITR(-2.99),!!!!
1.0000 23.0000 - 2.0000
FLOG( ) NATURAL LOGARITHM
10.14 TYPE FLOG(1),FLOG(4.237),FLOG(10),!!!!
0.0000 1.4439 2.3026
FRAN( ) RANDOM NUMBER
11.22 TYPE FRAN( ),FRAN( ),FRAN( ),FRAN( ),FRAN( ),!
0.0069 0.4270 0.5935 0.9991 0.4975
THE PSEUDO-RANDOM NUMBERS PRODUCED ARE PART OF A VERY LONG AND WELL
DISTRIBUTED BUT DETERMINISTIC SERIES. YOU WILL USUALLY OBSERVE AN
ENTIRELY DIFFERENT SERIES EACH TIME FOCAL IS INITIALIZED. HOWEVER,
FRAN( ) DOES NOT GENERATE TRULY RANDOM NUMBERS.
FSGN( ) SIGN
12.34 T %1.0 FSGN(2.78)," ",FSGN(-299)," ",FSGN(0)," ",FSGN(-1),!!!!
1 -1 0 -1
FSIN( ) SINE OF AN ANGLE GIVEN IN RADIANS
13.52 TYPE FSIN(1),FSIN(0),FSIN(37-2.22),!!!!
0.8415 0.0000 - 0.2207
FSQT( ) SQUARE ROOT OF A POSITIVE NUMBER
14.40 TYPE FSQT(4),FSQT(391),FSQT(.0038953),!!!!
2.0000 19.7737 0.0624
FIN( ) CHARACTER INPUT FUNCTION
ASKS FOR A CHARACTER FROM THE TERMINAL (OR A FILE); EXAMPLE:
09.14 SET X=FIN( )
SETS X TO THE DESCIMAL ASCII CODE OF THE INPUT CHARACTER
FOUT( ) CHARACTER OUTPUT FUNCTION
EXAMPLE:
09.25 SET A=FOUT(X)
OUTPUTS THE CHARACTER WHOSE CODE EQUALS X
IF AN 'L' WERE TYPED IN RESPONSE TO LINE 9.14, X WOULD BE SET
EQUAL TO 204. THEN LINE 9.25 WOULD CAUSE AN 'L' TO BE OUTPUT.
THE 'A' ON LINE 9.25 IS A DUMMY VARIABLE.
DECIMAL ASCII CODES:
FOR FIN( ) AND FOUT( ):
CODE CHARACTER CD. CHAR. CD. CHAR.
---- ----------- --- ----- --- -----
128 CTRL/SHFT/P 160 SPACE 193 A
(LEADER) 161 ! 194 B
129 CTRL/A 162 " 195 C
130 CTRL/B 163 # 196 D
131 CTRL/C 164 $ 197 E
132 CTRL/D 165 % 198 F
133 CTRL/E 166 & 199 G
134 CTRL/F 167 ' 200 H
135 CTRL/G 168 ( 201 I
136 CTRL/H 169 ) 202 J
137 CTRL/I 170 * 203 K
138 LINE FEED 171 + 204 L
139 CTRL/K 172 , 205 M
140 CTRL/L 173 - 206 N
141 RETURN 174 . 207 O
142 CTRL/N 175 / 208 P
143 CTRL/O 176 0 209 Q
144 CTRL/P 177 1 210 R
145 CTRL/Q 178 2 211 S
146 CTRL/R 179 3 212 T
147 CTRL/S 180 4 213 U
148 CTRL/T 181 5 214 V
149 CTRL/U 182 6 215 W
150 CTRL/V 183 7 216 X
151 CTRL/W 184 8 217 Y
152 CTRL/X 185 9 218 Z
153 CTRL/Y 186 : 219 [
154 CTRL/Z 187 ; 220 \
155 CTRK/SHFT/K 188 < 221 ]
156 CTRL/SHFT/L 189 = 222 ^
157 CTRL/SHFT/M 190 > 223 _
158 CTRL/SHFT/N 191 ? 253 ALT MODE
159 CTRL/SHFT/O 192 @ 255 RUBOUT
FOUT(141) WILL OUTPUT A RETURN/LINE FEED; FOUT(13) WILL OUTPUT A
CARRIAGE RETURN ONLY. CODE 144 (CTRL/P) IS PS/8 FOCAL'S BREAK CHARACTER.
224 THROUGH 250 ARE LOWER-CASE LETTERS ON SOME TERMINALS. MANY
TERMINALS USE SHIFT/K, /L, AND /M FOR '[', '\', AND ']'.
Feel free to contact me, David Gesswein djg@pdp8online.com
with any questions, comments on the web site, or if you have related equipment,
documentation, software etc. you are willing to part with. I am
interested in anything PDP-8
related, computers, peripherals used with them, DEC or third party, or
documentation.
PDP-8 Home Page
 PDP-8 Site Map
 PDP-8 Site Search
Mirror site if this site is slow
highgate.comm.sfu.ca