1 /EXTENDED FUNCTION PACKAGE FOR FOCAL 5/69 2 /E.A.TAFT, 6/10/69 3 / 4 /FSIN: SIN(X) X IN RADIANS 5 /FCOS: COS(X) X IN RADIANS 6 /FATN: ARC TAN(X) RESULT IN RADIANS 7 /FEXP: EXP(X) 8 /FLOG: LN(X) 9 ///// 10 /DEFINITIONS 11 FIXMRI FAD=1000 12 FIXMRI FSB=2000 13 FIXMRI FMY=3000 14 FIXMRI FDV=4000 15 FIXMRI FGT=5000 16 FIXMRI FPT=6000 17 FNR=7000 18 FENT=4407 19 FEXT=0 20 FIXTAB 21 ///// 22 NEGATE= 4450 23 GETSGN= 1045 24 RETURN= 5500 25 SN= 10 26 FIX= 4452 27 PUSHA= 4503 28 POPA= 1413 29 FLAC= 44 30 FLTEMP= 7545 31 FLTONE= 1573 32 PDLXR= 13 33 ERROR= 4526 34 FLOAT= 4430 35 FNTABF= 571 36 BOTTOM= 27 37 COMGO= 1164 38 SORTJ= 4510 39 M5= 67 40 CNTR= 132 41 AXIN= 10 42 TSTERM= 4565 43 PROC= 616 44 ERROR5= 2735 45 DBCONV= 5600 46 *BOTTOM 47 00027 5112 FCOS-1 /TOP OF TEXT 48 *FNTABF+7 49 00600 5335 FATN /POINTERS TO EXTENDED FUNCTIONS 50 00601 5202 FEXP 51 00602 5454 FLOG 52 00603 5117 FSIN 53 00604 5113 FCOS 54 ///// 55 /ENABLE A "LIBRARY DELETE" COMMAND 56 /WHICH WILL DELETE THE EXTENDED FUNCTIONS AND 57 /FREE MORE FOR USER AREA. 58 *COMGO+10 59 01174 6556 LIBRARY 60 *6555 61 06555 0304 LIBLST, "D 62 ///// 63 06556 4510 LIBRARY,SORTJ /"LIBRARY" - EXPANDABLE COMMAND 64 06557 6554 LIBLST-1 65 06560 0022 LIBGO-LIBLST 66 06561 4526 ERROR /ILLEGAL LIBRARY COMMAND 67 ///// 68 06562 1067 LIBD, TAD M5 /DELETE THE EXTENDED FUNCTIONS 69 06563 3132 DCA CNTR 70 06564 1375 TAD EXTAB 71 06565 3010 DCA AXIN 72 06566 1175 TAD PERROR 73 06567 3410 DCA I AXIN /SET ERROR5 POINTERS 74 06570 2132 ISZ CNTR 75 06571 5366 JMP .-3 76 06572 1376 TAD DTOP 77 06573 3027 DCA BOTTOM /MOVE TOP POINTER UP 78 06574 5261 JMP 6461 /OPTRET (TO REACH END OF COMMAND) 79 ///// 80 06575 0577 EXTAB, FNTABF+6 81 06576 5577 DTOP, DBCONV-1 82 06577 6562 LIBGO, LIBD 83 *175 84 00175 2735 PERROR, ERROR5 85 /FOCAL EXTENDED FUNCTIONS 86 *5113 87 / COSINE 88 05113 4450 FCOS, NEGATE /COS(X)=SIN(PI/2-X) 89 05114 4407 FENT 90 05115 1772 FAD I PI2 91 05116 0000 FEXT 92 ///// 93 / SINE 94 05117 1045 FSIN, GETSGN 95 05120 7450 SNA 96 05121 5500 RETURN /SIN(0)=0 97 05122 7710 SPA CLA 98 05123 4771 JMS I NEG2 /SIN(-X)=-SIN(X) 99 05124 3010 DCA SN 100 05125 4407 FENT 101 05126 4374 FDV TWOPI /REDUCE MODULO 2 PI 102 05127 6773 FPT I X2 103 05130 0000 FEXT 104 05131 4452 FIX 105 05132 4450 NEGATE 106 05133 4407 FENT 107 05134 7000 FNR 108 05135 1773 FAD I X2 109 05136 3374 FMY TWOPI 110 05137 6773 FPT I X2 111 05140 2377 FSB PI 112 05141 0000 FEXT 113 05142 1045 GETSGN /X