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