File FUNCT1.RE

Directory of image this file is from
This file as a plain text file

()0XGBTC-PS/8 FOCAL, 1971?MB]BEC FUNCT1.RE?MB&BJL C FOCAL.TM?MB;BTI (FITR(/2)-/2)1.8;S Z1=1.98;G 2.1?MCOB2I (FITR(/2)-/2)1.7;D 13;D 6;D 5?MC&B7I (FITR(/2)-/2),1.7;D 5.3;D 5.4;D 5.55?MC.CFS Z1=1.98?MDJCKT "REENTER PS/8 FOCAL AND RETAIN TRIG FUNCTIONS."!?MD
CPD 1.7;D 2;D 3;D 4;D 7;D 9;D 11;D 12;D 14;G 15.1?MD,C"T %6.04?MD>DJT !!!!!!"***** FUNCTIONS:"!!!!?ME"DTT "FOR MOST FUNCTIONS, A SAMPLE LINE IS SHOWN AND THEN EXECUTED:"!?ME3FJT "FABS( )  ABSOLUTE VALUE"!?MFLFTT %6.04,"EXAMPLE (WRITTEN THEN EXECUTED):"!?M
RF^W 3.4?MF"F(TYPE FABS(-3),FABS(2),!!!!?MGBHJT "FADC( )  ANALOG TO DIGITAL INPUT FUNCTION"!;D Z1;W 4.22?MGKHTT !!!;G 4.9?MGZHVSET X=FADC( );TYPE !!!!?MQFIZC?MG:J^T "-------  TANGENT   	FTAN( )	 IS NOT AVAILABLE"!?MR6J(T "TANGENT IS COMPUTED AS THE QUOTIE
T (SINE/COSINE)"!;W 5.55?MSYLJT "FCOS( )  COSINE"!;D Z1;W 6.27?MH<NOT "EXAMPLE:"!;W 7.2?MIBNQG 7.3?MW+NTSET DU=FDIS(X,Y)?MIPJT "FEXP( )  EXPONENTIAL"!;D Z1;W 8.24?MWGPXTYPE FEXP(1),FEXP(2.17),!!!!; COM: NATURAL BASE TO THE POWER (X)?MJ
RRTYPE FITR(3/2),FITR(23.719),FITR(-2.99),!!!!?MJ8TJT "FLOG( )  NATURAL LOGARITHM"!;D Z1;W 10.14?MKNTNTYPE FLOG(1),FLOG(4.237),FLOG(10),!!!!?MK%VJT "FRAN( )  RANDOM NUMBER"!;D Z1;W 11.22?MK?VVTYPE FRAN( ),FRAN( ),FRAN( ),FRAN( ),FRAN( ),!?ML&V^T "THE PSEU
O-RANDOM NUMBERS PRODUCED ARE PART OF A VERY LONG AND WELL"!?MMMV(T "DISTRIBUTED BUT DETERMINISTIC SERIES.  YOU WILL USUALLY OBSERVE AN "!?MM4V2T "ENTIRELY DIFFERENT SERIES EACH TIME FOCAL IS INITIALIZED.  HOWEVER,"!?MNSV<T "FRAN( ) DOES NOT GENERATE TRUL
 RANDOM NUMBERS."!!!!?MN&XJT "FSGN( )  SIGN"!;D Z1;W 12.34?MOJX"T %1.0 FSGN(2.78),"  ",FSGN(-299),"  ",FSGN(0),"  ",FSGN(-1),!!!!?MO+ZJT "FSIN( )  SINE OF AN ANGLE GIVEN IN RADIANS"!;D Z1;W 13.52?MPBZ4TYPE FSIN(1),FSIN(0),FSIN(37-2.22),!!!!?MP"\JT "FSQT( 
  SQUARE ROOT OF A POSITIVE NUMBER"!;D Z1;W 14.4?MP:\(TYPE FSQT(4),FSQT(391),FSQT(.0038953),!!!!?M^JL R FUNCT2.RE 9.1?MQ*JJT "FATN( )  ARCTANGENT    ARGUMENT RANGE:  0<A<10^6"!;D Z1;W 5.25?MRRJPT "PRECISION DOES NOT EXCEED 6 DIGITS AND DROPS FOR NEAR-ZERO
ARGUMENTS"!?MG^JYTYPE FATN(1),!!!!;COM:  OUTPUTS RADIAN ANGLE WHOSE TANGENT = 1.00?MH\J7TYPE FSIN(1)/FCOS(1),!!!!;COMMENT:  OUTPUTS TANGENT OF 1 RADIAN?MS>L[TYPE FCOS(1),FCOS(3/2),!!!!; COM: OUTPUTS COSINES OF 1 & 1.5 RADIANS?MH/NJT "FDIS( )  DISPLAY FUNC
ION FOR DEC TYPE 34D DISPLAY"!?MT/N(T "(	DU	 IS DUMMY VARIABLE)"!!?MUVN2T "DISPLAY AND JOYSTICK FUNCTIONS FOR PS/8 FOCAL ARE AVAILABLE FOR THE"!?MIMN<T "TEKTRONIX T-4002 GRAPHIC COMPUTER TERMINAL"!!!!?MVWRPT "THE PROBLEM MAY BE HANDLED BY ADDING EMPIRACAL
CONSTANTS TO THE"!?MJFRQT "ARGUMENT."!?MU2ROT "SERIOUS ROUNDING ERRORS OCCUR FOR NUMBERS OF MORE THAN 5 DIGITS."!?MW%RJT "FITR( )  INTEGER"!;D 9.15;D 9.16;D 9.17;D Z1;W 9.18?MV!RLG 9.18?MT]N^T "(PLOTS A POINT AT POSITION (X,Y) ON DISPLAY)"!?MN^L S FUNCT1.
E;L C DTA2:FUNCT2.RE?M?MON DISPLAY)"!?(X,Y) ON DISPLAY"!?MCK"!?MQOF2T :5,"FUNCTIONS OF THE TEKTRONIX T-4002 GRAPHICS TERMINAL"!!?MQ6F4T "11) 3 SPECIAL VARIABLES ARE PROTECTED FROM THE 	ERASE	 COMMAND ---"!?MR$F6T :5,"	!	, 	";S 

Note: Lines longer than 256 characters were wrapped



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