Home

1 - Forth

Contents

1. by Craig A Lindley This model spreadsheet first appeared in Forth Dimensions Volume 7 Issue 1 and 2 These issues contain the documentation for this disk 703 AUTOMATIC STRUCTURE CHARTS V 3 40 43 45 by Kim R Harris These tools for the analysis of large Forth programs were first presented at the 1985 FORML conference Program documentation is contained in the 1985 FORML Proceedings Please specify disk size when ordering Se FORTH Dimensions FORTH INTEREST GROUP P O BOX 8231 SAN JOSE CALIFORNIA 95155 408 277 0668 Name Member Number Company Address City State Prov ZIP Country Phone UNIT SEE BELOW an MEMBERSHIP SUBTOTAL 10 MEMBER DISCOUNT O Check enclosed payable to FORTH INTEREST GROUP MERE CR CA RESIDENTS SALES TAX Expiration Date _ S o HANDLING FEE Signature MEMBERSHIP FEE 15 00 minimum on charge orders O NEW DRENEWAL 30 37 43 TOTAL PAYMENT MUST ACCOMPANY ALL ORDERS MAIL ORDERS Send to Forth Interest Group P 0 Box 8231 San Jose CA 95155 FORTH Dimensions PHONE ORDERS Call 408 277 0668 to place credit card orders or for customer service Hours Monday Friday 9am 5pm PST PRICES All orders must be prepaid Prices are subject to change without notice Credit card orders will be sent and billed at current prices
2. Technical Assistance Hotline e Periodic newsletters and low cost updates Bulletin Board System Cail or write for detailed product information and prices Consulting and Educational Services available by special arrangement i Laboratory Microsystems Incorporated Post Office Box 10430 Marina del Rey CA 90295 Phone credit card orders to 213 306 7412 Overseas Distributors Germany Forth Systeme Angelika Flesch Titisee Neustadt 7651 1665 UK System Science Ltd London 01 248 0962 France Micro Sigma S A R L Paris 1 42 65 95 16 Japan Southern Pacific Ltd Yokohama 045 314 9514 Australia Wave onic Associates Wilson W A 09 451 2946 FORTH Inc FORTH Dimensions 20 Volume VIII No 1 Case Conversion in KEY David W Harralson Yorba Linda California The fig FORTH definition of KEY returns the raw value of a keystroke Most key boards return the lower case value of the pressed key unless shift lock is pressed and on older terminals you cannot then enter numbers without taking off the shift lock Since Forth words are usually in upper case it would be desirable to have Forth perform the lower to upper translation automatically with provisions to disable case translation instead of having transla tion words you call after parsing a character string 02 VARIABLE c Usually you want lower to upper trans lation However when inputting prompts or comments you may want lowe
3. Kiyoshi Yoneda I see But uniformity leads to less confusion on user s part Thank you Chuck Confusion exists once upon learning Cost exists forever Ward Do you expect to see a Novix development board more within the price range of the hobbyist and will there be support for that sector 900 is a bit steep for the average hacker that would buy quite a few 65F12 s for example Chuck Sweet words I wish my col leagues could hear them The Gamma board was priced at 400 as a kit That is not profitable It may be available in some form from someone The problem is sup port No one can afford Heathkit type documentation at that price But a board mm FORTH Dimensions Voiume Vill No 1 chip and PROMs could be available if demand warrants Ward That would be welcomed by many I think On another topic what is your opinion of highly machine dependent Forths like MacForth which add many useful extensions at the expense of portability Chuck I don t value portability I ve seen very few examples of applications being ported when they couldn t have been edited Give me the central idea of the ap plication and PI embed it in my own code Kiyoshi Y Contact address or telex for Delta Don Colburn Software Composers Delta Card phone number 415 327 6891 Michael B Speaking of code are you still writing one to two line words Chuck More than ever The factoring of an
4. lt Interrupts may be left on during actual write to the file but as this program is now written tranamission should stop before file I 0 because input buffer is cleared after the write KILL FILE IOFF TSAVE PTR lt gt IF Not empty already gt PTR BPTR LPTR BLPTR TSAVE PTR TSAVE LPTR THEN ION TAUTOSAVE Ces If buffer nearly full save automatically gt IOFF PTR ION TSAVE END 1000 U gt IF CR FULL CR 19 MWRITE XOFF gt 10000 O DO LOOP lt Delay gt WRITE FILE KILL FILE 17 MWRITE XON gt THEN gt WDONDUAWNRO 12 A FTERM BLK Terrinel program eacape functions UNKILL FILE GC IOFF BPTR PTR t BLPTR LPTR ION ESCAPE FN Tsexit DUP IF KILL FILE Done THEN DUP lt IF GET NAME THEN DUP IF WRITE FILE KILL FILE Done THEN DUP IF UNKILL FILE Done THEN DUP Le IF WRITE FILE IOFF O BDOS THEN DUP Forth IF DROP 1 ELSE DROP O THEN MVP FORTH PADS a Professional Application Development System Specify 13 A FTERM BLK Terminal program 4 10 86 gt TERM Css Dumb terminal program CR Use ESC for heip CR FIRST TIME IF 1200 MINITIALIZE TSAVE PTR 1 TSAVE LPTR ISETUP ION THEN FALSE Loop control set to TRUE to exit BEGIN AUTOSAVE MREAD Read one character gt DUP 1 IF DROP ELSE EMIT THEN KEY IF lt If key typed send it unless Eac KEY DUP 27 IF DROP ESC MSG Escape key
5. 15 minimum on charge orders Checks must be in USS drawn on a US Bank A 10 charge will be added for returned checks POSTAGE amp HANDLING Prices include shipping A 2 00 handling tee is required with all orders SHIPPING TIME Books in stock are shipped within five days of receipt of the order Please allow 4 6 weeks for out of stock books delivery in most cases will be much sooner SALES TAX Deliveries to Alameda Contra Costa San Mateo Los Angeles Santa Cruz Counties add 6 Santa Clara County add 7 other California Counties add 6 Volume Vill No 1 Continued from page 14 factor k in order to prevent overflow Here we choose y kx and rewrite 2 as in 3 For the reasons explained later on we shall actually use two scaling factors 4 such that 2 becomes 5 Defining a variable 6 as the repeatedly used square term we can rewrite 5 as in 7 As can be seen there are five divisions by k equations 6 and 7 which are rather time consuming In Forth there is a way that allows for extremely fast division by 216 Using assembly language this corre sponds to sixteen right shifts whereas in Forth the simple prop does the job There fore a scaled multiplication with 216 as the scaling factor may be coded as ZZUx SWAP DROP which is the same as zzk with k 216 but much faster More time is saved when the division by the series factors 6 20 42 72
6. Amiga DOS support Intuition Support ROM kernel support Graphics and sound support Complete documentation Assembler source code included Monthly newsletter 85 Shipping included in continental U S Ga residents add sales tax UB ZE 404 948 4654 call anytime or send check or money order to UBZ Soguare 395 St Albans Court Mableton Ga 30059 Amiga is a trademark for Commodore Computer UBZ FORTH is a trademark for UBZ Software Jim M Concerning popularity why not invite academia a la Pascal Chuck Would love to But historically universities haven t had the right hardware Now we can provide give computers and the situation might change More academ ics are discovering Forth Jim M Good We need to convince them of Forth s special capabilities Kiyoshi Y What is the reason for not making Forth syntax completely postfix Chuck Clarify Forth is postfix except for which is necessary Kiyoshi Y What about WORD FORGET gale Chuck think strings must have prefix to avoid confusion But I welcome suggestions Kiyoshi Y STOIC employs a single quote before strings Chuck This leads to lots of useless quotes Kiyoshi Y But the analyzer becomes simpler it seems Chuck No The simple convention that strings are prefix saves lots of effort Ac tually Pm not a purist Use what works I do equate simplicity with minimum charac ter count
7. May June 1986 4 00 Dimensions Serial 1 0 Se nd Machi1 Multi tasking FORTH 83 Development Systems for 68000 and 68020 based microcomputers and industrial target boards Mach1 is a FAST 32 bit subroutine threaded implementation of FORTH All Mach1 systems include Unlimited multi tasking any number of background terminal tasks are allowed Local variables for readable recursive re entrant programming Standard text files Any text only editor word processor may be used A STANDARD Motorola 68000 assembler infix which supports forward label references Mach1 on the Mac features EASY creation of stand alone applications Complete toolbox support including 15 Mac Plus routines 10 Macintalk speech driver support Redirection of IVO to serial ports devices 5 ez Graphics printing support 80 bit SANE floating point TML Mac 68020 compatible j Pascal Mach fop Neon Comes with Switcher Edit and 400 page manual Sieve Times seconds Mach1 on the ST features EASY creation of stand alone applications Full GEM and DOS support integrated GEM editor 68020 compatible Comes with 300 page manual Mega Mach1 Hippo C Available July 15 MaG da Times eeconda E 59 95 Available September 1986 o ia Mach1 in EPROM Available immediately on Gespac G 64 68000 board tri 16K FORTH Kernel 500 Industrial Bs 16K 68000 Assembler 500 Tar
8. Note mA ION lt Carry flag set meaning error Prepare to receive serial input interrupts Interrupt vector for COM1 Enable date available interrupt Needed finished product should save and restore int A FTERM BLK MUST set PTR before turning interrupt on Ports 20 and 21 are control registers for the 82594A Turn COM1 interrupt on 21 PC EF AND 21 PC IOFF 21 PC DECIMAL 5 Read a character VARIABLE LPTR FILTER el e2 127 AND DUP 10 lt gt IF 32 MAX THEN MREAD ae ee LPTR ELSE 1 THEN 6 Initialize port HEX 3FE CONSTANT MSTATUS 3F8 CONSTANT TBUFFER CODE CALL SERIAL DX POP AX POP CALL PORT1 C x1 MINITIALIZE napeed 12C 300 CALL PORT1 5 MWRITE Ce OB MCONTROL PC DROP A FTERM BLK by taking it from buffer Last value of pointer gt control characters gt IOFF PTR ION LPTR C FILTER DUP LPTR Ct xin C nspeed 300 or 1200 in hex Turn interrupts off 10 OR 21 PC Set the mask Remove parity OVER 13 lt gt AND OVER 08 lt gt AND Not LF CR or BS returned if none available U lt IF 17 1 LPTR A FTERM BLK serial output Modem status register c Transmit buffer x2 gt 14 INT AX PUSH x2 Initialize port no parity 1 atop bit IF 43 ELSE 83 THEN Easily extended to 2400 gt Write one character
9. FORTH Dimensions 22 Volume VIH No t Tl 99 4A ISR Installation Gene Thomas Little Rock Arkansas Interrupt service routines are brief fast executing routines which are performed in 1 60 second or less While operating in Forth user defined ISRs are called after each keyboard scan without regard to whether a key was pressed and after each call to the NEXT instruction All CODE words such as MON DDOT and SMASH terminate with NEXT Because the ISR executes in sixteen milliseconds or less and is called so often it appears to the operator that this background task is both simul taneous with the current foreground task and instantaneous in reaction time The ISR Base display screen 41 displays the current BASE in decimal while in com mand mode When BASE is changed the effect is instantaneous yet no keyboard scans or other computing tasks that your machine may be performing will be missed Before installing the ISR there are several changes that I recommend you make These changes will set up your system to execute the ISR only when not in TEXT GRAPHICS2 GRAPHICS MULTI MODE SPLIT2 Or SPLIT when not being used for editing In other words the ISR will only be executed while you are editing The following screen num bers refer to your copy of the TI FORTH master disk Screen 22 line 1 EDT OISR VDPMDE Screen 22 line 11 CLS SCRNO 1ISR DROP Screen 33 line 15 DECIMAL XX CLOA
10. ever truly is The Standard Language I m going sailing Don Colburn Save me a berth Volume VIII No 1 25 FORTH Dimensions NGS FORTH A FAST FORTH OPTIMIZED FOR THE IBM PERSONAL COMPUTER AND MS DOS COMPATIBLES STANDARD FEATURES INCLUDE 79 STANDARD eDIRECT 1 0 ACCESS eFULL ACCESS TO MS DOS FILES AND FUNCTIONS ENVIRONMENT SAVE amp LOAD eMULTI SEGMENTED FOR LARGE APPLICATIONS EXTENDED ADDRESSING MEMORY ALLOCATION CONFIGURABLE ON LINE AUTO LOAD SCREEN BOOT LINE amp SCREEN EDITORS DECOMPILER AND DEBUGGING AIDS 08088 ASSEMBLER GRAPHICS amp SOUND NGS ENHANCEMENTS e DETAILED MANUAL INEXPENSIVE UPGRADES NGS USER NEWSLETTER A COMPLETE FORTH DEVELOPMENT SYSTEM PRICES START AT 70 NEW HP 150 amp HP 110 VERSIONS AVAILABLE aa D NEXT GENERATION SYSTEMS P O BOX 2987 SANTA CLARA CA 95055 408 241 5909 Kiyoshi Y I m facing a problem of implementing a three stack threaded lan guage of my own on fast hardware either Novix or Metaforth NF16LP The language is for discrete event simulation and floating point number crunching I have difficulty choosing between Novix and Metaforth both are fast enough What would you consider to be a decisive factor Chuck Novix exists A third stack is easy to emulate with Novix Floating point should involve a coprocessor in both cases Kiyoshi Y Metaforth has floating Maybe not HW Chuck The
11. which is the only menu in this example Beginner and expert modes are the same Beginners get the prompts they need for all their options Experts can type the same keystrokes at full typing speed then per haps glance at the screen to see that every thing worked as planned Every selection is a single keystroke unless a name etc is WH Q R 2 A FTERM BLK c Interrupt service routine HEX VARIABLE PTR 3FD CONSTANT LSTATUS 3F8 CONSTANT RBUFFER ASSEMBLER CREATE IIN AX PUSH BX PUSH LSTATUS DX MOV DX AL IN O lt gt IF RBUFFER DX MOV CS PTR BX MOV cS AL O BX MOV CS BX PTR MOV DX POP BX POP Restore 20 AL MOV 20 AL OUT AX POP Restore IRET DX PUSH Le 1 2 3 4 5 6 7 8 3 THEN Volume VIII No 1 c Interrupt service routine required in which case the Enter key ter minates it Although this menu system is also the Help system additional explanation if needed can fit under options labeled H elp or 2 Developers can implement tree structures of these menus easily either by hard coding or by a table driven system Either function keys or alphabetic com mands can be used Function keys have the advantage for users who are not touch typists for typists alphabetic commands are easier to find on the keyboard and they are more mnemonic than function keys This menu system usually uses short one line menus so there are plenty of keys either way Compare with con
12. ALLOT DOES gt OVER MAXRECS ARRAY SELECTED VARTABLE TALLY 0 TALLY SELECT KEEP TOP 0 lt fieldname gt lt string gt address of the given field specifying table into KIND for future use by FIND KIND addr is a variable that contains the address of the field specifying table for the type of field that was last searched for by FIND MAXRECS n is the maximum number of records to be allowed in the system RECORD addr ensures that the current record is in a disk buffer and returns the address of the first byte of that record Te resets the record pointer to the top of the file WHAT addr returns the address of a buffer that contains the string that is being searched for or was last searched for Note for the full glossary and the source for the simple file system see Leo Brodie s Starting Forth pp 328 340 you may already have this BEGIN FIND this is simple files FIND NOT WHILE RECORD CG BL gt IF KECORD OVER SELECTED i THEN REPEAT TALLY FIELD lt RECORD RECORD TEXT 0 lt KIND FIELD WHAT URDERED lt fieldname gt KIND PERFURM Re R gt RE SIN GR OR LOUP THEN R DROF locatorislocatorZ f KIND FIELD WHAT SWAP CMOVE 0 SELECTED TALLY SURTED FIELD lt lt words to be executed gt TALLY DUF IF ZINC OR 0 DO CR I SELECTED RECORD INTERPRET
13. C H Ting Use an IBM PC to build an organ Instructions and source code to build and play an organ with up to 12 voice channels Great for Bach s polyphonic organ music 15 00 PARALLEL INTERFACE CARD FOR PC Four 8253 s and four 8255 s with 12 counter timers and 96 digital 1 0 lines Great for above organ and robotic applications 159 00 OFFETE ORGAN SERIES C H Ting Source and COM files on IBM PC disks Disk I J S Bach s music Inventions preludes fugues and Toccata in G Major Disk II 24 pieces in Anna Magdalena s Notebook Disk III Selected chorales for organ 15 00 per disk cantata ETE ae ae HE TE DE DE a DEN DE DE DE DE DE ADF DE DE AE AE DE DE DE AE E OTHER TITILES INSIDE F83 C H Ting Full documentation of F83 gysten 25 00 FORTH NOTEBOOK C H Ting Games and applications 25 00 SYSTEMS GUIDE TO fig FORTH Ting Full documentation of fig FORTH 25 00 F83 DISK LIBRARY John Peters Collection of source code 20 00 F83 SOURCE H Laxen amp M Perry For 8080 8086 and 68K versions 25 00 FigAI NOTES C H Ting AL working group report 15 00 F83 DISKS H Laxen amp M Perry For PC CP M CP M86 CPM 68K Please specify your OS and disk format 25 00 per disk F83X DISK Wil Baden For Apple II computer 25 00 IEP R SSE SES OP ESE TP ED Send check or money order to Offete Enterprises Inc 1306 S B St San Mateo Ca 94402 Mailing amp Handling 10 of order Californ
14. Forth 205 BEGINNING FORTH 17 18 21 Paul Chirlian Introductory text for 79 Standard 215 COMPLETE FORTH 16 17 20 Alan Winfield A comprehensive introduction including problems with answers Forth 79 220 FORTH ENCYCLOPEDIA 25 26 35 ___ Mitch Derick amp Linda Baker A detailed look at each fig Forth instruction 225 FORTH FUNDAMENTALS V 1 16 17 20 Kevin McCabe A textbook approach to 79 Standard Forth 230 FORTH FUNDAMENTALS V 2 13 14 16 Kevin McCabe A glossary 232 FORTH NOTEBOOK 25 26 35 Dr C H Ting Good examples and applications Great learning aid PolyFORTH is the dialect used Some conversion advice is included Code is well documented 233 FORTH TOOLS 20 21 24_ Gary Feierbach amp Paul Thomas The standard tools required to create and debug Forth based applications 235 INSIDE F 83 25 26 35 ______ Dr C H Ting Invaluable for those using F 83 237 LEARNING FORTH 17 18 21 Margaret A Armstrong Interactive text introduction to the basic concepts of Forth Includes section on how to teach children Forth 240 MASTERING FORTH 18 19 22 ____ Anita Anderson amp Martin Tracy A step by step tutorial including each of the commands of the Forth 83 I
15. Forth i Code and examples con form to Forth 83 stand ard Code and examples con form to Forth 79 stand ard Code and examples con form to fig FORTH Deals with new propos als and modifications to standard Forth sys tems Volume VIII No 1 Dimensions FEATURES 8 C D 1 C 5 SDS TD Interrupt Driven Serial Input by John S James The difficulty of implementing interrupt driven serial I O has caused a bottleneck in programming for PC compatibles This article provides a working example of serial input and a good deal of advice to get you over the hurdles Fast Fixed Point Trig by Johann Borenstein The author s sine routine uses optimal scaling of series parameters to eliminate all divisions It runs nine times faster than Bumgarner s version at a mild sacrifice in precision a useful routine for many applications Case Conversion in KEY by David W Harralson Most keyboards return the lower case value of a pressed key unless shift lock is pressed and on older terminals you cannot then enter numbers without taking off the shift lock fig Forth can perform case conversion automatically with the code this author presents Select Ordered Perform by Wil Baden One application of the Quicksort technique is based on the Simple Files example in Starting Forth It allows easy selection and display of sorted records Three end user words are provided to accompl
16. Herman B Gibson 305 855 4790 Southeast Florida Chapter Monthly Thurs p m Coconut Grove area Call John Forsberg 305 252 0108 Tampa Bay Chapter Monthly Ist Wed p m Call Terry McNay 813 725 1245 e GEORGIA Atlanta Chapter 3rd Tuesday each month 6 30 p m Computone Cottilion Road Call Ron Skelton 404 393 8764 e ILLINOIS Cache Forth Chapter Call Clyde W Phillips Jr Oak Park 312 386 3147 Central Illinois Chapter Urbana Call Sidney Bowhill 217 333 4150 Fox Valley Chapter Call Samuel J Cook 312 879 3242 Rockwell Chicago Chapter Call Gerard Kusiolek 312 885 8092 e INDIANA Central Indiana Chapter Monthly 3rd Sat 10 a m Call John Oglesby 317 353 3929 Fort Wayne Chapter Monthly 2nd Tues 7 p m IPFW Campus Rm 138 Neff Hall Call Blair MacDermid 219 749 2042 IOWA lowa City Chapter Monthly 4th Tues Engineering Bldg Rm 2128 University of lowa Call Robert Benedict 319 337 7853 Central Iowa FIG Chapter Call Rodrick A Eldridge 515 294 5659 Fairfield FIG Chapter Monthly 4th day 8 15 p m Call Gurdy Leete 515 472 7077 KANSAS Wichita Chapter FIGPAC Monthly 3rd Wed 7 p m Wilbur E Walker Co 532 Market Wichita KS Call Arne Flones 316 267 8852 e LOUISIANA New Orleans Chapter Call Darryl C Olivier 504 899 8922 e MASSACHUSETTS Boston Chapter Monthly Ist Wed Mitre Corp Cafeteria Bedford MA Call Bob Demrow 617 688 5661 afte
17. KEY DUP 90 gt IF 32 THEN Make it upper case ESCAPE FN IF DROP 1 THEN ELSE MWRITE THEN THEN DUP UNTIL DROP computer 500 MVP FORTH EXPERT 2 SYSTEM for learning and developing knowledge based programs 100 Word Kalc a word processor and calculator system for IBM 150 Largest selection of FORTH books manuals source listings software development systems and expert systems Credit Card Order Number 800 321 4103 In California 800 468 4103 Send for your FREE FORTH CATALOG 14 A FTERM BLK Finishup 4 10 86 Optional F83 only sets automatic execution HELLO2 ONLY FORTH ALSO DEFINITIONS TERM HELLO2 IS BOOT sun A SAVE SYSTEM TERM COM MOUNTAIN VIEW PRESS PO BOX 4656 Mountain View CA 94040 oo Iaa Iau aaaaaaaaaaaiaauaaaaaeaaiaeaeaiaaMMalMia Volume VIN No 1 13 FORTH Dimensions Fast Fixed Point Trig Johann Borenstein Haifa Israel Based on J Baumgarner s article Fixed Point Trig by Derivation Forth Dimen sions IV 1 I have written a modified ver sion for the sine function While this ver sion of SIN is approximately as long in terms of compiled code and almost as accurate as the original definition it is about nine times faster 5 3 msec on my Z80A system running at 3 75 MHz This considerable increase in speed has been achieved by optimal scaling of the series parameters to the extent that n
18. application leads to the development of a language The language is more impor tant than the application and rarely re ceives the appreciation it deserves A concept that cannot be expressed tersely is a badly understood concept Michael B Words to the wise who will listen thank you Dave S As an academic I m interested in Forth becoming more popular at univer sities But I wonder why do you think free hardware would help We get more free stuff than we know what to do with from tax write offs Chuck Free is not sufficient but neces sary Universities in my experience have no money to spend for hardware or soft ware But they have graduate students To expect a graduate student to construct a Forth system is asking a lot To ask him to assemble a kit one or two days may be reasonable if he gets something he couldn t buy I wish he would be motivated to try Forth without encouragement but he hasn t been 27 NEW PRODUCTS FOOTSTEPS IN AN EMPTY VALLEY NC4000 Single Chip Forth Engine 2nd Edition Apr 1986 C H Ting First comprehensive book on the Novix NC4000 chip Architecture instruction set circuit diagram of a single board computer des cription of cmFORTH operating system programming tips source code of cmFORTH glossary and index 25 00 NC4000 Microprocessor Super fast Forth engine from Novix Inc 250 00 ppd Quantity discount available BUILD YOUR OWN ELECTRONIC ORGAN
19. changes The complete source code is found on the 2 If by some wild chance they do improve sereen grab the improvement and LEAVE cleanly The key to simplifying Mr Hore s Len Zettel LOOKUP is to realize that we can put the Trenton Michigan SCREEN 64 a LOOKUF 15 LOOKUP H1 ADDRI H2 ALDR2 ADURZ ADDRESS OF VALUE Hi 2 IH THE TABLE OF N2 ENTRIES STARTING AT ADDRI 3 ROT ROT OVER SWAP 42 DO GVER I 53 IF DROP I LEAVE THEH 6 LOOP TA SWAF IROP FEATURES FORTH 79 Standard Sub Set Access to 8031 features Supports FORTH and machine code interrupt handlers System timekeeping maintains time and date with leap year correction Supports ROM based self HOLD for Prettier Numbers sion of the number to an ASCII string By starting applications the time the conversion is complete and the In the article Making Numbers Pretty string is ready for TYPE all the spaces have VII 5 a last minute enhancement was already been displayed That was not the untested and proved wrong In the word idea The spaces were to be interspersed 16BITS the output is properly spaced by among the numeric characters and that is using 32 HOLD 32 being the ASCII value for achieved through WOLD a blank In the word as presented SPACE Michael Ham and SPACES are executed during the conver COST 130 page manual 30 00 8K EPROM with manual 100 00 Postage paid in North America Inquire f
20. difficulties with conversion to fig FORTH arose out of the way in which the 83 FIND differs from FIND and the method of determining whether or not a word is immediate I still don t fully understand how those two operate in Forth 83 but I do know how they function in fig FORTH Perhaps there are other fig FORTH users who had the same problem The attached listing contains the conversion to fig FORTH Sincerely Gene Thomas Little Rock Arkansas MacForum World Wide and Still Growing Dear FIG I would like to make two announcements that may be of interest to your members First for those using the Macintosh there is now a National MacForth Users FORTH Dimensions Group We are a recently formed indepen dent not for profit organization with over 200 enthusiastic members world wide and still growing We have accumulated a library of over 5000 screens of public domain MacForth source code on sixteen disks which we distribute to our members at a nominal charge per disk We have just published our first newsletter twenty pages of dense text and code and plan to con tinue this on about a bi monthly basis Many of our members have expressed inter est in providing coverage of other Mac intosh Forths in addition to MacForth so if we get submissions in these areas we will be glad to consider them for inclusion in our library or newsletter Membership or news letter subscription information can be
21. few days away from our normal routine But I ve found great interest and value in each of the formal Forth meetings of the past few years and J think you will too The annual Forth Conference held in Rochester New York is sponsored by the Institute for Applied Forth Research Inc in cooperation with IEEE and the Univer sity of Rochester June 11 14 will mark the sixth such event with topical emphasis on real time artificial intelligence Last year saw 175 attendees presenting more than sixty papers participating in working groups and enjoying themselves at after hours receptions and discussion groups At this late date the best way to get detailed information is to call the institute at 716 235 0168 Casting our editorial net a bit further we find that China is once again on the itiner ary of Forth experts FIG members will remember our published account of the very valuable lecture tour there two years ago The notices we have received indicate an October 31 November 2 International Workshop on Forth and Its Applications to be held at the National Taiwan Institute of Technology in Taipei with optional extended travel Papers are being solicited and must be received by September 30 abstracts are due earlier For specific deadlines and a complete travel agenda contact Dr C H Ting at 415 424 3001 or evenings at 415 571 7639 For the eighth consecutive year the Forth Interest Group is hosting an Ann
22. membership year which form runs from May 1 to April 30 When you join you will receive issues that have already been circulated for the current volume of Forth Dimensions and subsequent issues will be mailed to you as they are published The Forth interest Group is a worldwide non profit member supported organization with over 4 000 members and 90 chapters FIG membership includes a subscription to the bi monthly publication FORTH Dimensions FIG also offers its members publication discounts group health and life You will also receive a membership card and number which entitles you to a insurance an on line data base a large selection of Forth literature and 10 discount on publications from FIG Your member number will be many other services Cost is 30 00 per year for USA Canada amp Mexico all required to receive the discount so keep it handy HOW TO USE THIS FORM 1 Each item you wish to order lists three different Price categories Column 1 USA Canada Mexico Column 2 Foreign Surface Mail Column 3 Foreign Air Mail 2 Select the item and note your price in the space provided 3 After completing your selections enter your order on the fourth page of this form 4 Detach the form and return it with your payment to the Forth Interest Group EE NS ST A a mm SU va TE FORTH DIMENSIONS BACK VOLUMES ice sn re The six issues of the volume year May April rt ie 101 Volume 1 FORTH Dimensions 1979 80 15 16
23. time previously Once a SELECT has been made different ORDEREDS may be done to it PERFORM lt words for interpretation gt issues a CR and interprets the rest of the input stream for each selected record FIELO lt locator1 locator2 f reads the indicated records as needed and compares the lt fieldname gt given in the command ORDERED lt fieldname gt SELECTED n addr is the array of selected locators TALLY addr is a variable that contains the number of selected records RECORD addr is a variable that points to the current word FIND f beginning with RECORD and proceeding down compares the contents of the field indicated by KIND against the contents of WHAT TEXT addri len addr2 n compares strings at addri and addr2 for length of len and returns negative zero or positive value for the string at addrl for less than equal to or greater than the string at addr2 FIELD addri addr2 len given the address of a field specifying table ensures that the associated field in the current record is in a disk buffer and returns the address of the field in the buffer along with its length GET lt fieldname gt prints the contents of the given type of field from the current record KEEP addr lt string gt moves a character string delimited either by a comma or by a carriage return from the input stream into WHAT and saves the ARRAY CREATE 2x
24. to modem DTR RTS gt BEGIN MSTATUS PC 10 AND UNTIL BEGIN LSTATUS PC 20 AND UNTIL DECIMAL 10 TBUFFER PC Negative return if err AX NEG THEN Buffer ia not empty gt not using interrupt 4 10 86 gt NEXT END CODE Call to Port 1 O CALL SERIAL 8 data bits gt 4 10 86 vector 4 10 86 gt 4 10 86 Volume VIII No 1 Scr 7 A FTERM BLK O lt File I 0 4 10 86 HEX FCREATE c nattrib asciiz nhandle gt O ROT 3CO00 DOS2 FOPEN naccess asciiz nhandle SOAR Siok Don ue FIG Forth for the Compaq FCLOSE lt nhandle nreed IBM PC and compatibles 35 ROT 3E00 DOS2 Operates under DOS 2 0 or later FREAD adata ndata nhandle f 3F00 DOS2 uses standard DOS files FWRITE adata ndata nhandle nwritten gt 4000 DOS2 Full screen editor uses 16 x 64 Note should teat carry flag make error arg negative ee Editor Help sereen can be FMOVE dbytes nmethod nhandle f Move file pointer p g g y i SHAR 4200 DOS2 Source included for the editor and DECIMA other utilities Save capability allows storing Forth with all currently defined words onto disk as a COM file 8 A FTERM BLK Files write bytea to new file or concat to old 4 10 86 Definitions are provided to allow CONSTANT READ WRITE lt Access code O read i write 2 both beginners to use Starting Forth CONSTANT FROM EOF Method co
25. vectored execution system development file systems and languages applications 313 FORML PROCEEDINGS 1983 30 33 40 ___ Forth in hardware Forth implementations future strategy programming techniques arithmetic amp floating point file systems coding conventions functional programming applications 314 FORML PROCEEDINGS 1984 30 33 40 Expert systems in Forth using Forth philosophy implementing Forth systems new directions for Forth interfacing Forth to operating systems Forth systems techniques adding local variables to Forth 315 FORML PROCEEDINGS 1985 35 38 45 ____ Also includes papers from the 1985 euroFORML Conference Applications expert systems data collection networks Languages Lisp LOGO Prolog BNF Style coding conventions phrasing Software Tools decompilers structure charts Forth Internals Forth computers floating point interrupts muititasking error handling ROCHESTER PROCEEDINGS The Institute for Applied Forth Research inc is anon profit organization which supports and promotes the application of Forth It sponsors the annual Rochester Forth Conference 321 ROCHESTER 1981 Standards Conference 25 28 35 79 Standard implementing Forth data structures vocabularies applications and working group reports 322 ROCHESTER 1982 Data bases amp Process Control 25 28 35 _ _ Machine independence project management data s
26. 10 We define enough of the new DOS calls for our purposes For more informa tion about these calls see the Disk Operat ing System Technical Reference manual or see any of a number of books on assembly language programming of the PC FSTART uses these DOS calls to open a file if it exists or to create it otherwise FDO opens or creates a file writes the buffer which has saved a record of the terminal session then closes the file The file remains closed almost all the time so that it will be protected in case of power loss or other abnormal termination of the session Screen 9 provides a default file name and lets the user change it Screen 10 defines some miscellaneous words which are most ly self explanatory The definition of AT prevents accidental crashes during testing if the AT command intended for a Hayes compatible modem is mistakenly typed into F83 instead Screen 11 The buffer is cleared by KILL FILE when ever it is Saved to disk so the user can doa SAVE as often as necessary concatenating the new data to whatever may have been on the disk before This system is always saving the complete terminal session in the buffer A common use of the Kill command is to delete the record of the logon which may include a password Users should stop the remote system during a Save or characters can be lost with the implementation given here The automatic save seldom necessary in attended operation a
27. 18 __ 516 6809 JUNE 80 15 16 18 __ 102 Volume 2 FORTH Dimensions 1980 81 15 16 18 517 8080 SEPT 79 15 16 18 ______ 103 Volume 3 FORTH Dimensions 1981 82 15 16 18 518 8086 88 MARCH 81 15 16 18 ______ 104 Volume 4 FORTH Dimensions 1982 83 15 16 18 519 9900 MARCH 81 15 16 18 ______ 105 Volume 5 FORTH Dimensions 1983 84 15 16 18 JA TEA PROS Eee ee TESES 106 Volume 6 FORTH Dimensions 1984 85 15 16 18 RL A ened peti eer 107 Volume 7 FORTH Dimensions 1985 86 S20 21 24 522 ECLIPSE OCT 82 15 16 18 ______ 523 IBM PC MARCH 84 15 16 18 RE 524 NOVA MAY Bt 15 16 18 ASSEMBLY LANGUAGE SOURCE CODE LISTINGS 525 PACE MAY 79 15 16 18 Assembly Language Source Listings of fig Forth for specific CPUs and 926 PDP 11 JAN 80 15 16 18 machines with compiler security and variable length names 527 VAX OCT 82 15 16 18 _ 513 1802 MARCH 81 15 16 18 ______ 528 Z80 SEPT 82 15 16 18 ee Volume VIH No 1 FORTH Dimensions RE 3XKMtktTtCtTTT BOOKS ABOUT FORTH 200 ALL ABOUT FORTH 25 26 35 _ ___ Glen B Haydon An annotated glossary for MVP Forth a 79 Standard
28. 4 INTLNE SYSTEM is in machine language 2 SYSTEM will expect on the stack the location destination addresses and byte count of the write Further for our needs the numbers to be written must be converted to ASCII before being pushed into the radix buffer BAS That conversion is accomplished on line 5 For example 16 10 MOD 160k Since a division remainder can never be larger than the divisor the effect of 10 MoD is to leave on the stack the dividend split into its component digits Adding 48 to each of them produces the ASCII codes needed They are then pushed into the two bytes of the buffer BuF where 2 SYSTEM will get them Lines 7 10 write the desired information directly into the VDP screen table All of this of course will occur in less than sixteen milliseconds Address hex 83C4 is the user defined ISR pointer where zero is off ISR is a user Gene Thomas Jui85 BASE R definition buf for vdp write string buf for vdp write string into buf 48 SWAF 48 BAS 1 C BAS C buf tstring Base radix3 CHR gt H amp 82C4 3p followed by WORD to be installed BL WORD CFA ISR R gt FORTH Dimensions variable which contains the CFA of the ISR to be executed The TI 99 4A executes on CFAs and not on PFAs as do some systems INTLNK is another user variable Placing the contents of INTLNK into 83C4 turns the ISR on When the CFA of the routine to be exe
29. 443 Toronto FIG Chapter Contact John Clark Smith P O Box 230 Station H Toronto ON M4C5jJ2 COLOMBIA Colombia Chapter Contact Luis Javier Parra B Aptdo Aereo 100394 Bogota 214 0345 ENGLAND Forth Interest Group U K Monthly Ist Thurs 7p m Rm 408 Polytechnic of South Bank Borough Rd London D J Neale 58 Woodland Way Morden Surry SM4 4DS FRANCE French Language Chapter Contact Jean Daniel Dodin 77 Rue du Cagire 31100 Toulouse 16 61 44 03 06 GERMANY Hamburg FIG Chapter Monthly 4th Sat 1500h Contact Horst Gunter Lynsche Common Interface Alpha Schanzenstrasse 27 2000 Hamburg 6 HOLLAND Holland Chapter Contact Adriaan van Roosmalen FIG des Alpes Chapter Contact Georges Seibel 19 Rue des Hirondelles 74000Annely 50 57 0280 e IRELAND Irish Chapter Contact Hugh Doggs Newton School Waterford 051 75757 or 051 74124 ITALY FIG Italia Contact Marco Tausel Via Gerolamo Forni 48 20161 Milano 02 645 8688 e JAPAN Japan Chapter Contact Toshi Inoue Dept of Mineral Dev Eng University of Tokyo 7 3 1 Hongo Bunkyo 113 812 2111 ext 7073 NORWAY Bergen Chapter Kjell Birger Faeraas Haliskaret 28 Ulset 47 5 187784 REPUBLIC OF CHINA R O C Contact Ching Tang Tzeng P O Box 28 Lung Tan Taiwan 325 e SWEDEN Swedish Chapter Hans Lindstrom Gothenburg 46 31 166794 SWITZERLAND Swiss Chapter Contact Max Hugelshofer ERN
30. Chapter Call Dennis L Wilson 602 956 7678 Tucson Chapter Twice Monthly 2nd amp 4th Sun 2 p m Flexible Hybrid Systems 2030 E Broadway 206 Call John C Mead 602 323 9763 e ARKANSAS Central Arkansas Chapter Twice Monthly 2nd Sat 2p m amp 4th Wed 7 p m Call Gary Smith 501 227 7817 CALIFORNIA Los Angeles Chapter Monthly 4th Sat 10 a m Hawthorne Public Library 12700 S Grevillea Ave Call Phillip Wasson 213 649 1428 Monterey Salinas Chapter Call Bud Devins 408 633 3253 Orange County Chapter Monthly 4th Wed 7 p m Fullerton Savings Talbert amp Brookhurst Fountain Valley Monthly 1st Wed 7 p m Mercury Savings Beach Blvd amp Eddington Huntington Beach Call Noshir Jesung 714 842 3032 San Diego Chapter Weekly Thurs 12 noon Call Guy Kelly 619 268 3100 ext 4784 Sacramento Chapter Monthly 4th Wed 7 p m 1798 59th St Room A Call Tom Ghormley 916 444 7775 FORTH Dimensions Bay Area Chapter Silicon Valley Chapter Monthly 4th Sat FORML 10 a m Fig p m H P Auditorium Wolfe Rd amp Pruneridge Cupertino Call John Hall 415 532 1115 or call the FIG Hotline 408 277 0668 Stockton Chapter Call Doug Dillon 209 931 2448 COLORADO Denver Chapter Monthly Ist Mon 7 p m Cliff King 303 693 3413 e CONNECTICUT Central Connecticut Chapter Call Charles Krajewski 203 344 9996 FLORIDA Orlando Chapter Every two weeks Wed 8 p m Call
31. D 0ISR R gt BASE Where xx is the screen on which you put the ISR Base display Screen 38 line VED OISR BOX SWAP Screen 38 line 2 OF OF 1ISR BCK Screen 51 line 4 TEXT OISR Screen 52 line 4 GRAPHICS OISR Volume VIII No 1 Screen 53 line 4 MULTI OISR Screen 54 line 3 GRAPHICS2 OISR 0A0 1 VWTR Screen 3 before the final R gt BASE INSTALL ISR BAS Here is how the ISR is accomplished refer to screen 41 Lines O 4 are self explanatory The colon word BAS is the task that the ISR will cause to be executed The conversions needed to accomplish screen writes through U EMIT etc are all much too slow for ISR execution so we must depend on the directness of VMBW video multiple byte write which calls on machine code We go one step further and eliminate two dictionary searches by using SYSTEM VMBW is defined as VMBW 2 SYSTEM 41 ISR Base display installation DECIMAL 39 CLOAD SCOFY 2 VARIABLE BAS radix 3 0 VARIABLE STR 4 ALLOT STR BAS Base Cass push BASE I 10 MOD convert base to ASCII and store in vdp radix STR SCRN_START amp 25 S 2 SYSTEM write 5 BAS SCRN_START amp ZO 2 2 SYSTEM bytes write 2 bytes OISK 3p ISR off FISK 3p ISR on INSTALL ISR OISR CCOMFILE 23 necessary for the read from write to addr s read from write to addr s 0 82C
32. ELSE IF TEN OVER MOD IMMEDIATE I i Y Volume VII No 1 gt SWAP O5B TRANSLATION CEECK IF LOWE IS CASE 07B lt c 2 AND CHECK TF UPPER OR LOWER YES INVERT C c 1 LOWER CAS YES AS SE see TAS YES 2 y ES ES NO YES wor CHECK YES LOADING Ww eva 21 KEVSTROKE WA TTIN AR GED VE iS 23 IN BLOCK PARSED SO AMOUNT rege ee NVEFS s ION CONVERT TO UPPER FAR FORTH Dimensions Select Ordered Perform Wil Baden Costa Mesa California Another application of Quicksort is based on the Simple Files example in Leo Brodie s Starting Forth This allows selection and display of sorted records Three end user words are provided SELECT ORDERED and PERFORM Here are examples of usage SELECT JOB NEWSCASTER will select all records where the J08 field is NEWSCASTER ORDERED SURNAME will sort them by surname after a SELECT PERFORM GET GIVEN GET SURNAME GET PHONE will print an alphabetic phone list after a SELECT and ORDERED A glossary for these and the relevant Simple File words follows SELECT lt fieldname gt lt string gt selects from the file all records where there is a match between the given field and the given string and builds an array of locators to them ORDERED lt fieldname gt puts the array of locators in alphabetic sequence by fieldname A SELECT must have been done some
33. FERENCES 2nd edition Sept 1984 15 16 18 An excellent source of references to articles about Forth throughout microcomputer literature Over 1300 references RE MISCELLANEOUS 601 T SHIRT SIZE Small Medium Large and Extra Large White design on a dark blue shirt 10 11 12 _ 602 POSTER BYTE Cover 15 16 18 616 HANDY REFERENCE CARD FREE 683 FORTH 83 HANDY REFERENCE CARD FREE _____ FORTH MODEL LIBRARY The model applications disks described below are new additions to the Forth Interest Group s library These disks are the first releases of new professionally developed Forth applications disks Prepared on 54 disks they are IBM MSDOS 2 0 and up compatible The disks are compatible with Forth 83 systems currently available from several Forth vendors Macintosh 3 2 disks are available for Master FORTH systems only Forth 83 Compatibility IBM MSDOS Laxen Perry F83 LMI PC FORTH 3 0 MasterFORTH 1 0 TaskFORTH 1 0 PolyFORTH 1I Forth 83 Compatibility Macintosh MasterFORTH ORDERING INFORMATION 701 A FORTH LIST HANDLER V 1 40 43 45 by Martin J Tracy Forth is extended with list primitives to provide a flexible high speed environment for artificial intelligence ELISA and Winston amp Horn s micro LISP are included as examples Documentation is included on the disk 702 A FORTH SPREADSHEET V 2 40 43 45
34. I amp Co Elektro Industrie Stationsstrasse 8306 Bruttisellen 01 833 3333 SPECIAL GROUPS Apple Corps Forth Users Chapter Twice Monthly Ist amp 3rd Tues 7 30 p m 1515 Sloat Boulevard 2 San Francisco CA Call Robert Dudley Ackerman 415 626 6295 Baton Rouge Atari Chapter Call Chris Zielewski 504 292 1910 Vergennes VT B 6290 Nalinnes Heusden Houtsestraat 134 FIGGRAPH Call Don VanSyckel Belgium 4817 We Breda Call Howard Pearlmutter 802 388 6698 071 213858 31 76 713104 408 425 8700 Volume VIII No 1 31 FORTH Dimensions Proceedings of the 1985 FORML Conferences containing papers from the Seventh Asilomar FORML Conference and the euroFORML Conference Forty five Forth articles in one volume with 480 pages Partial List of Topics Applications Expert Systems data collection networks Languages Lisp LOGO Prolog BNF Style Coding conventions phrasing Software Tools decompilers structure charts Forth Internals Forth computers floating point interrupts multitasking error handling Recommended for professional engineers and programmers using Forth Order now from the Forth Interest Group 35 Use order form enclosed BULK RATE FORTH INTEREST GROUP US PosTAGE P O Box 8231 Permit No 3107 San Jose CA 95155 San Jose CA Address Correction Requested
35. and tested it sells for about 900 It talks to a host computer over a serial line and runs Forth fast Dave S Sounds like it s meant as a controller board Is that a reasonable as sumption Chuck The key feature is that it can recompile itself Thus it is a complete development system for Novix applications Scott S I can upload a text file with the specs they hand out I think they had it running directly off a terminal Dave S I think we d like to have that Scott Actually that was not the original question I had in mind obviously But maybe we should give others a chance Chuck A little more on the Delta board Parts count is minimal eight memory chips 4 MHz oscillator and a 74138 I apologize for the 138 it won t be needed soon Novix chip accesses sixty four bits of memory every cycle at best Selected chips can run at 10 MHz Four busses are taken off board for expansion 20 MHz video output takes four chips and input requires two more George M What is your opinion of fast Forths with for instance sixteen threads that have the feel of packaged languages as opposed to simpler fig FORTH types Chuck The chip is so fast that compile is instantaneous It recompiles itself over a 9600 baud line in thirty seconds thirty blocks This with two threads But to answer the question compile time is impor tant the style of Forth code depends upon reaction time Slow co
36. andler spreadsheet Automatic structure charts each 40 Target compilers 6809 6801 6303 680x0 8088 280 6502 iTalbot Microsystems 1927 Curtis Ave Redondo Beach CA 90278 213 376 9941 68020 SBC 5 1 4 floppy size board with 2MB RAM 4 x 64K EpROM sockets 4 RS232 ports Centronics parallel port timer battery backed date time interface to 2 5 1 4 floppies and a SASI interface to 2 winchester disks 68881 fit pt option 0S9 multitask amp user OS 350 F A ST int benchmarks speeds are 2 x a VAX780 10 x an IBM PC Volume VIH No 1 Chuck Oy I think Forth is the only possibility Even stronger Forth is the only SDI possibility The chance of convincing them of that is zero So pray for disarmament Michael B How many Delta boards did you say you had build a prototype Chuck Delta boards are similar to Gam ma boards Gamma boards nest That is they plug into each other Sure could construct anything but who would notice Michael B A working prototype could be sold or traded for lawyers to the Japanese Chuck Good point and an interesting closing thought Oops go ahead JM you are the last Jim M I suggest that the best way to convince the newcomer of Forth s power is to hold some kind of contest Lock several programmers in a closet with a problem and see who solves it first think the Forth programmer would win by a landslide Comments D
37. anged guest appearance Mr Charles Moore fielded questions from others who were simul taneously logged on to the electronic infor mation network The inventor of the Forth language had a good deal to say about the Novix Forth chip he designed a topic of interest to many of our readers and also touched on several other topics See our Letters section for more about Forth on CompuServe and watch upcoming issues for a roundup of all electronic sources of Forth related information The following transcript has been edited for readability but we have left the cryptic citizen s band style mostly intact as it is represent ative of what attendees at such live elec tronic meetings can expect to find Don Colburn Good evening and wel come to the CSI Forth Net I m Don Col burn and Il be your moderator We come to you tonight live from the hills above Silicon Valley south of San Francisco California Tonight I am very pleased to welcome Charles Moore the inventor of Forth as our guest Topics for this evening include general questions drawing on Chuck s unique perspective on the relationship be tween men and computers as well as specific questions about the new native Forth microprocessor that he has designed for Novix Before we get started I d like to review how this conference will be conducted As Moderator Pll begin by asking for ques tions from the audience If you have a questio
38. c Chapter Monthly 2nd Tues 7 p m Lee Center Lee Highway at Lexington St Arlington VA Call Joel Shprentz 703 860 9260 Richmond Forth Group Monthly 2nd Wed 7 p m 154 Business School Univ of Richmond Call Donald A Full 804 739 3623 WISCONSIN Lake Superior FIG Chapter Monthly 2nd Fri 7 30 p m University of Wisconsin Superior Call Allen Anway 715 394 8360 Milwaukee Area Chapter Call Donald H Kimes 414 377 0708 MAD Apple Chapter Contact Bill Horzon 129 S Yellowstone Madison WI 53705 FOREIGN AUSTRALIA Melbourne Chapter Monthly Ist Fri 8 p m Contact Lance Collins 65 Martin Road Glen Iris Victoria 3146 03 29 2600 Sydney Chapter Monthly 2nd Fri 7 p m John Goodsell Bldg Rm LG19 Univ of New South Wales Sydney Contact Peter Tregeagle 10 Binda Rd Yowie Bay 02 524 7490 BELGIUM Belgium Chapter Monthly 4th Wed 20 00h Contact Luk Van Loock Lariksdreff 20 2120 Schoten 03 658 6343 Southern Belgium FIG Chapter Contact Jean Marc Bertinchamps Rue N Monnom 2 CANADA Alberta Chapter Call Tony Van Muyden 403 962 2203 Nova Scotia Chapter Contact Howard Harawitz 227 Ridge Valley Rd Halifax Nova Scotia B3P2E5 902 477 3665 Southern Ontario Chapter Quarterly Ist Sat 2 p m General Sciences Bldg Rm 312 McMaster University Contact Dr N Solntseff Unit for Computer Science McMaster University Hamilton Ontario L8S4K1 416 525 9140 ext 3
39. convenience and with an 8086 8088 this isn t really convenient any more They can be split up in a way that is almost invisible and is fairly elegant I look forward to further discussion preferably from people who have thought it out more than I have but not so much more that I feel left out Sincerely J E Thomas Birmingham Alabama Editor s note Reader Thomas and the author of the following letter will be glad to hear that we have scheduled Professor Yngve s Compiler Macros as a follow up to his Synonyms and Macros series A Synonym for fig FORTH Dear Marlin As a fig FORTH user I frequently find it necessary to convert Forth 79 and Forth 83 routines to fig FORTH Usually the conversions are not too difficult but oc casionally they are The difficulties nearly always arise from a lack of understanding of Letters continued on page 6 ES Volume VII No 1 FORTH Dimensions Calls for Papers We have received several announcements of coming events conferences and con ventions so valuable in terms of technical knowledge imparted personal and profes sional associations formed and perspective gained about Forth s place in the world that anyone who is serious about his under standing of Forth should attend at least one per year As a long time manager and attendee of both large and small meetings I know the emotional gearing up and logistics required to spend a
40. cuted as an ISR is pushed into the variable ISR INTLNK is automatical ly updated It is important that CFA ISR be accomplished before the ISR is set to on by pushing the contents of INTLNK into 83C4 Thus INSTALL ISR begins by turning the ISR off o1sr Here is the sequence of commands that will get the ISR going INSTALL ISR BAS 1ISR There are two ways to turn it off oisr will do it however if you have made the recommended changes to the copy of the master disk it will be turned on again each time you leave edit with the FCTN BACK keys A better way to turn it off is to install a no op word There is just such a resident word NOP NOP is defined as NOP Ergo INSTALL ISR NOP 1ISR is the best way You may want to re define INSTALL ISR as INSTALLISR OISR COMPILE BL WORD CFA ISR 1ISR The commands would then be INSTALL ISR BAS and INSTALL ISR NOP By the way the COMPILE is necessary because is an immediate word and would otherwise ex ecute during compilation rather than being compiled as desired Here are a few things to keep in mind as you wsite and install your own ISRs 1 It must execute in sixteen milliseconds or less Otherwise there will be too little time left in each second for meaningful computing 2 Do not call an ISR within an ISR 3 ISRs must neither expect nor leave anything on the stack They may use the stack internally however 4 All ISR activity stops during calls to DSR
41. d ABORT Forth 83 11 28 84 vhy gt Apr 86 found pfa cnt tf ff make new immediate was old immediate yes set new to execute no set to check state compile if compiling or execute if executing old not found First why not set aside 64K more or less for a nice editor and mass storage blocks VOCABULARY can shift between 64K base addresses without the user having to pay any attention If you had the memory wouldn t you like a nice big editor and a little RAM disk that just waited for you without using any of your 64K Are you at all cramped in 64K We can bend the standard just a little bit and put all the machine code behind a different base address Again EXECUTE picks the correct base address without your knowledge Of course if you want to modify your machine code from Forth you will need a couple of special words and won t do it any more Do you want big arrays Why not let VARIABLE set up space in a new area You can have up to 64K of variables with sixteen bit addressing If you set up VARIABLE1 which is just like VARIABLE except that it starts at a different base address then you can have a 64K array With a slightly more complicated definition for VARIABLE you should be able to set up arrays with up to 64K per dimension although you run into physical limitations pretty fast The only reason Forth mixes machine code and Forth parameter values and vari able contents together is for
42. de to move file ptr as an introductory text O offset from beginning of file 1 from current location 2 end of file offset Source code is available as an FSTART asciiz ahandle Open or create a file option READ WRITE OVER FOPEN DUP 2 IF Not found DROP O SWAP FCREATE ELSE SWAP DROP DUP O O ROT FROM EOF SWAP FMOVE DROP A Metacompiler on a co d nd ii Writ tenated gt hers PC wl arcuate a n asc as xr new or concatenate or a target 6 j 03 FSTART DUP gt R FWRITE DROP R gt FCLOSE DROP Includes source for 6303 FIG Forth Application code can be Metacompiled with Forth to produce a target application PROM 280 9 A FTERM BLK FIG Forth in a 2764 PROM Files Default name and word to change the name 4 10 86 for the 6303 as produced by CREATE FILE NAME 66 C 58 C 84 C 69 C 82 C 77 C OC the above Metacompiler 74 ALLOT Default name is B TERM ASCIZ format includes a 6 screen RAM Disk GET STRING a ASCIIZ input gt 3 BUR 40 ERpERT for stand alone operation 45 SPAN O gt IF SPAN SWAP Cf ELSE DROP THEN GET NAME C 39 Il r r CR Name now is FILE NAME 80 OVER SWAP DO Anal CMOS RO ES I C O IF LEAVE ELSE I C EMIT THEN LOOP Size 3 93 8 35 inch CR New name FILE NAME GET STRING CR seed 25 volts Bt fore plus current required for options 240 360 Up to 24kb memory 2kb to 16kb RAM 8k PROM contains Forth Battery backup of RAM with of
43. e Site License Extensions eBulk Distribution eSome recommended Forth books STARTING FORTH programming THINKING FORTH technique BEGINNING FORTH re MMSFORTH Shipping handling amp tax extra No returns on software o Ask your dealer to show yo the woridof MMSFORTH or request our free brochure _ MILLER MICROCOMPUTER SERVICES 61 Lake Shore Road Natick MA 01760 617 653 6136 from 500 50 units Dave S I think graduate students do try Forth and everything else too But that won t make it popular The language taught to undergrads where the big num bers are is Pascal because of its save the programmer from himself philosophy which makes teaching easier Comments Chuck Wow Pascal in the world I encounter is a joke Fortran is the language of choice Not choice necessity This shocks me to the bone I thought Fortran was passe The programmer needs protec tion or rather the system needs protection on a multi programmed computer but that situation no longer obtains The joy of crashing the system must be experienced to be appreciated Forth should be taught to junior high school students before they learn algebra Dave S Yes engineering students still get Fortran instead of Pascal But here all CompSci students get Pascal Used to be PL C until recently Scott S A group is putting Pascal on the Novix I ve heard that there is also a group putting C on the N
44. ecause I don t appreciate the need for support but because I can t provide it Is an unsupport ed product better than nothing Even if I direct it at a knowledgeable audience Even if no choice You may be right but what are the alternatives David Butler That s the issue Forth seeks a knowledgeable audience but some need initial hand holding before they see the light Kiyoshi Y Japan is potentially a big Forth market because our grammar is exactly postfix Chuck Funny how great minds think alike Your comment concisely summarized our local discussion here I see Japan as a great competitor I don t wish to aid her But she would be well advised to pay attention to Forth Prolog will fail If the fifth generation depends on Prolog it will fail Is that good Kiyoshi Y I agree Prolog will fail The Fifth is falling apart As for the aid I think you ve already helped us a lot Don Colburn Perhaps we would trade lawyers for Forth but you would have to take both Michael B Do you think the fifth generation could be done using Forth Volume VIII No 1 Master FORTH FORTH 83 ST ANDARD ee 6809 Systems available for FLEX disk sustem s 0593 6809 680x0 Systems available for MACINTOSH CP M 68K tFORTH 20 for 68020 Single Board Computer Disk based development system under 0S9 68K 290 EpROM set for complete stand alone SBC Forth Model Library List h
45. ed by z 216 to obtain the scaled result DEG scales whole degree angles to the input range required by all the trigonometric functions f z KTIMES operates on the result of all trigonometric calculations and scales it to 1000 x f z DEG and KTIMES are used for debugging only They should not be used in a working application Example Screen 2 holds definitions of additional trigonometric functions all based on SIN1 SIN1 COS1 and TAN1 are about twice as fast as SIN COS and TAN but accept input only in the range of 0 lt z lt 5944 angles between 0 and 90 whereas SIN COS and TAN accept any input between 215 and 215 1 30 DEG SIN1 KTIMES 500 90 DEG SIN1 KTIMES 1000 Due to space limitations Mr Bornstein s code will appear in the next issue Ed Index to Advertisers Bryte 7 Computer Cowboys 9 Dash Find amp Associates 10 FORML 12 Forth Inc 20 Forth Interest Group 15 18 32 Harvard Softworks 19 Laboratory Microsystems 20 MCA 11 Miller Microcomputer Services 28 Mountain View Press 13 Next Generation Systems 26 Offette Enterprises 27 Palo Alto Shipping Company 2 Software Composers 4 SOTA 29 Talbot Microsystems 29 Tools Group 24 UBZ Software 26 19 COMBINE THE RAW POWER OF FORTH WITH THE CONVENIENCE OF CONVENTIONAL LANGUAGES HS FORTH Why HS FORTH Not for speed alone although it is twice as fast as other full memory Forths wit
46. ert 11 chips Program host as terminal disk 1 screen of Forth LEARN Modern technology Interface design EXPLORE High speed Forth On board interfaces 16 bit parallel video e floppy e printer Plug in interfaces 4 pin socket busses Battery power 6V 400 Inquire for details Chuck Moore COMPUTER COWBOYS 410 Star Hill Road Woodside CA 94602 415 851 4362 FORTH Dimensions DASH FIND amp ASSOCIATES Our company DASH FIND amp ASSOCIATES is in the business of placing FORTH Program mers in positions suited to their capabilities We deal only with FORTH Programmers and companies using FORTH If you would like to have your resum included in our data base or if you are looking for a FORTH Programmer contact us or send your resum to DASH FIND amp ASSOCIATES 808 Dalworth Suite B Grand Prairie TX 75050 214 642 5495 Committed to Excellence FORTH Dimensions AINnEWNRrOH ba o Here UPRONK y i 4 WONHBUA WHY O Scr WOnNAURWNYK 3 lt Interrupt setup HEX AS FTERM BLK 3F9 CONSTANT IENABLE 3FC CONSTANT MCONTROL CODE DOS2 dx cx bx ax lt Interrupt enable register Modem control register ax2 AX POP BX POP CX POP DX POP 21 INT U lt IF 1PUSH END CODE ISETUP IIN O O 250C DOS2 DROP 1 IENABLE PC 8 MCONTROL PC Note DECIMAL 44 lt Interrupt on off HEX
47. f board battery Serlal port and up to 40 pins of 10 A FTERM BLK parallel 1 0 Terminal program miscellaneous words 4 10 86 VARIABLE FIRST TEST TRUE FIRST TEST Processor buss available at 4 FIRST TIME lt F fFIRST TEST FALSE FIRST TEST 1 optional header to allow expanded ESC NSG ea Capability via user provided CR Slave Name Kill U nkill Z exit CR interface board AT WOOPS Avoid crash from easy niatake VARIABLE BPTR Backup value of pointer for UNKILL VARIABLE BLPTR Backup last value of pointer gt TSAVE PAD Beginning of terminal buffer Micro Computer TSAVE END FIRST End of terminal buffer Applications Ltd 8 Newfield Lane Newtown CT 06470 203 426 6164 YQOnNAUWhWNKO Foreign orders add 5 shipping and handling Connecticut residents bad Sales tax ns Volume VII No 1 14 FORTH Dimensions CALL FOR PAPERS for the eighth annual FORML CONFERENCE The original technical conference for professional Forth programmers managers vendors and users Following Thanksgiving November 28 30 1986 Asilomar Conference Center Monterey Peninsula overlooking the Pacific Ocean Pacific Grove California USA Theme Extending Forth towards the 87 Standard The Forth Standards Team is expected to hold sessions in 1987 to consider proposals for updating the Forth standard FORML isn t the place to standardize Forth but it is the forum to pre
48. f static RAM and 4K words of EPROM 8 selectable 256 word data stacks and return stacks for multi tasking 21 independently programmable single bit I O ports 4 1 2 x 6 1 2 board with 72 pin edge connector bus with all major Novix signals Delta Regulator Base with attached connector and single 5 volt wall mount power supply Reset switch and serial port on board with RS232 connector and cable 90 day warranty e Fully assembled tested and ready to use Additional Novix chips available for 195 1 9 quantity Software Composers is an authorized Novix Distributor For a copy of the Delta User s Manual send check for 35 deductible from Delta Board purchases I m delighted to see Software Composers board on the market It provides incredible capability and versatility with minimal parts size and price An excellent introduction to the new generation of hardware and software Chuck Moore November 1985 COMING SOON SCForth An F83 development environment THE DELTA DEVELOPMENT SYSTEM A hardware software power supply enclosure package For product data and ordering information write i E u E Software Composers okoia 210 California Avenue F SOFTWARE COMPOSERS Palo Alto CA 94306 415 322 8763 ters to the Editor Invisible and Fairly Elegant 32 Bit Forth Dear Marlin Thanks for Volume VII I particularly liked Synonyms and Macros and hot patching I
49. g et 16K Dissassembler Debugger 500 Syste ms Call for source licensing arrangements Executes sieve on 16MHz 68020 in 1 3 seconds Palo Alto Shipping Company P O Box 7430 Menlo Park California 94026 800 44FORTH Sales 415 854 7994 Support VISA MC Accepted Include S H on all orders 5 US Canada 10 overseas CA res add 6 5 tax RER em FORTH Dimensions 2 Volume VIII No 1 Forth Dimensions Published by the Forth Interest Group Volume VIII Number 1 May June 1986 Editor Marlin Ouverson Production Cynthia Lawson Berglund Typesetting LARC Computing Forth Dimensions solicits editorial material comments and letters No responsibility is assumed for accuracy of material submitted Unless noted otherwise material published by the Forth Interest Group is in the public domain Such material may be reproduced with credit given to the author and to the Forth Interest Group Subscription to Forth Dimensions is free with membership in the Forth Interest Group at 30 per year 43 foreign air For membership change of address and to submit material for publication the address is Forth Interest Group P O Box 8231 San Jose California 95155 Symbol Table Simple introductory tu torials and simple appli cations of Forth Intermediate articles and code for more com plex applications and tutorials on generally dif ficult topics Advanced requiring stu dy and a thorough under standing of
50. h based laboratory systems and data structures SSS REPRINTS 420 BYTE REPRINTS 5 6 7 ___ Eleven Forth articles and letters to the editor that have appeared in Byte magazine 421 POPULAR COMPUTING 9 83 5 6 7 ______ Special issue on various computer languages with an in depth article on Forth s history and evolution DR DOBB S JOURNAL This magazine produces an annual special Forth issue which includes source code listings for various Forth applications 422 DR DOBB S 9 82 a 423 DR DOBB S 9 83 5 6 7 cae 424 DR DOBB S 9 84 5 6 7 425 DR DOBB S 10 85 5 6 7 HISTORICAL DOCUMENTS 501 KITT PEAK PRIMER 25 27 35 _____ One of the first institutional books on Forth Of his torical interest 502 FIG FORTH INSTALLATION MANUAL 15 16 18 _____ Glossary model editor We recommend you purchase this manual when purchasing the source code listings 503 USING FORTH 20 21 23 ______ FORTH Inc GE es ser 1 REFERENCE 305 FORTH 83 STANDARD 515 16 18 ______ The authoritative description of 83 Standard Forth For reference not instruction 300 FORTH 79 STANDARD 15 16 18 _____ The authoritative description of 79 Standard Forth Of historical interest 316 BIBLIOGRAPHY OF FORTH RE
51. h near assembly language performance when optimized Not even because it gives MANY more functions per byte than any other Forth Not be cause you can run all DOS com mands plus COM and EXE programs from within HS FORTH Not be cause you can single step trace de compile amp dissassemble Not for the complete syntax checking 8086 8087 80186 assembler amp optimizer Nor for the fast 9 digit software float ing point or lightning 18 digit 8087 math pack Not for the half mega byte LINEAR address space for quick access arrays Not for com plete music sound effects amp graph ics support Nor the efficient string functions Not for unrivaled disk flex ibility including traditional Forth screens sectored or in files or free format files all with full screen edi tors Not even because 1 0 is as easy but far more powerful than even Basic Just redirect the charac ter input and or output stream any where display keyboard printer or com port file or even a memory buffer You could even transfer con trol of your entire computer to a terminal thousands of miles away with a simple gt COM lt COM pair Even though a few of these reasons might be sufficient the real reason is that we don t avoid the objections to Forth WE ELIMINATE THEM Public domain products may be cheap but your time isn t Don t shortchange yourself Use the best Use it now HS FORTH complete system 395 with FORTH A Tex
52. had wanted these and hadn t gotten around to writing them They made Forth 83 look impressive I could copy the 83 Standard ones word for word and they worked before I understood them The pseudo interrupt technique is a nice idea I never considered The whole thing is well done After reading Michael Hore s excellent letter VII 3 about standards for Forth on improved micros 1 have some alternate suggestions I have not yet seen Forth implemented on a full thirty two bit machine I am using Forth 83 on 64K of a 68000 I would like to see the thirty two bit standard look just like the sixteen bit standard DUP would be a thirty two bit DUP 2DUP would be a sixty four bit DuP and would allocate thirty two bits in the dictionary which would have a maximum size of roughly four gigabytes or less depending on the trouble and expense of excessive memory Everything would seem quite familiar Mr Hore s first point was that existing software should continue to run Many simple Forth 83 programs would run without modification except to a few basic words such as ARRAY The problems that I imagine coming up are that first some things depend on going around the 32768 32767 boundary and second sometimes people use ad hoc methods for things like arrays for example getting the address of an array element and then adding two to get the address of the next element Limiting a thirty two bit Forth to keep these functional
53. he following extra features at no additional charge full featured string handling assembler e screen editor floating point double word extension set relocating loader beginner s tutorial e comprehensive programmer s guide e exhaustive reference manual unparalleled technical support source listings unbeatable price e ORDER FORM GENTLEMEN Rush me my order O Enciosedis my Ocheck O money order D Please dill my OVISA O MasterCard for 89 95 Please send me D 79 Standard FORTH O figFORTH mode for the OIBMPC OXT OAT and compatibles DTRS 80 Modet 1 O Model 111 OModel4 O Model 4P OCP M Version2x OCP M Plus Version 3x For CP M versions please note 5 1 4 formats only and Please specify computer type NAME STREET CITY TOWN STATE ZIP CARD TYPE EXPIRY CARD no SIGNATURE ORDER 213 1080 Broughton Street Vancouver British Columbia UNOPS Canada VG 286 TOTAL US funds Order by Mail or Phone nm Le 604 688 5009 State of the Art since 1981 SO TA Computing Systems Limited IBM TRS 80 and CP M are registered trademarks of International Business Machine Corporstion Radio Shack and Digital Research respectively FORTH Dimensions PAG Chapters U S ALABAMA Huntsville FIG Chapter Call Tom Konantz 205 881 6483 ALASKA Kodiak Area Chapter Call Horace Simmons 907 486 5049 ARIZONA Phoenix
54. ians please add 6 5 sales tax FOR TRS 80 MODELS 1 3 4 4P IBM PC XT AT amp T 6300 ETC Train Your Computer to be an EXPERT Expert systems facilitate the reduc tion of human expertise to simple English style rule sets then use them to diagnose problems Knowledge engineers are developing many applications now EXPERT 2 Jack Park s outstanding introduction to expert systems has been modified by MMS for MMS FORTH V2 0 and up We supply it with full and well documented source code to permit addition of advanced features a good manual and sample rule sets stock market analysis a digital fault analyzer and the Animal Game Plus the benefits of MMSFORTH s excellent full screen editor super fast compiling compact and high speed run time code many built in utilities and wide choice of other application programs Rule 1 demo in EXPERT 2 IF you want EXPERT 2 ANDNOT you own MMSFORTH THENHYP you need to buy MMSFORTH plus EXPERT 2 BECAUSE MMSFORTH is required XPERT 2 The total software environment for IBM PC XT TRS 80 Model 1 3 4 and close friends Personal License required MMSFORTH V2 4 System Disk 179 98 TRS 80 Model 1 requires lowerc ss DOEN 1 40 track drive e Personal License additional modules FORTHCOM communications module 48 95 EXPERT 2 expert system DATAHANDLER DATAHANDLER PLUS PC only 128K req FORTHWRITE word processor e Corporat
55. incinatti Chapter Call Douglas Bennett 513 831 0142 Dayton Chapter Twice monthly 2nd Tues amp 4th Wed 6 30 p m CFC 11 W Monument Ave Suite 612 Volume VIII No 1 Dayton OH Call Gary M Granger 513 849 1483 OKLAHOMA Central Oklahoma Chapter Monthly 3rd Wed 7 30 p m Health Tech Bidg OSU Tech Call Larry Somers 2410 N W 49th Oklahoma City OK 73112 OREGON Greater Oregon Chapter Monthly 2nd Sat 1 p m Tektronix Industrial Park Bldg 50 Beaverton Call Tom Almy 503 692 2811 PENNSYLVANIA Philadelphia Chapter Monthly 4th Sat 10 a m Drexel University Stratton Hall Call Melanie Hoag or Simon Edkins 215 895 2628 TENNESSEE East Tennessee Chapter Monthly 2nd Tue 7 30 p m Sci Appl Int Corp 8th FI 800 Oak Ridge Turnpike Oak Ridge Call Richard Secrist 615 483 7242 e TEXAS Austin Chapter Contact Matt Lawrence P O Box 180409 Austin TX 78718 Dallas Ft Worth Metroplex Chapter Monthly 4th Thurs 7 p m Call Chuck Durrett 214 245 1064 Houston Chapter Call Dr Joseph Baldwin 713 749 2120 Periman Basin Chapter Call Carl Bryson Odessa 915 337 8994 UTAH North Orem FIG Chapter Contact Ron Tanner 748 N 1340 W Orem UT 84057 VERMONT Vermont Chapter Monthly 3rd Mon 7 30 p m Vergennes Union High School Rm 210 Monkton Rd VIRGINIA First Forth of Hampton Roads Call William Edmonds 804 898 4099 Potoma
56. is a cleaner Volume Viii No 1 implementation of his word Lookup that default zero standing for not found on does not require any new control structures the stack before we enter the loop and The approach he illustrates initially I would therefore have to put it there only once If characterize as the American Australian we find a match we replace the default approach to programming value with the right address Then all we 1 Of course there will be a match Isn t that JANE 00 00 1S arrange it 60 that cach pass what we are looking in the table for both on the stack with addr possibly 2 Oops In the wild possibility there isn t subject to change if we haven t hit the end we had better patch up the code to handle of the loop yet Then no matter how we things leave the loop value and addr will be on the stack when we have left Then since we In contrast and in memory of my no longer need value we can DROP it Thus grandfather b Mild May Ontario and we have a simple example of the oop with the kind permission of the folks south jnyariant so beloved by computer scientists of Detroit I would like to offer what I addr always represents the true current would call the Canadian approach state of affairs which is not found until 1 Things are very unlikely to get any better We find something at which point addr than they are right now
57. is replaced by multiplications as may be done by appropriate choice of k Here k has been choosen as k 300 such that the series finally becomes as in 8 where 3784 k k 21 300 A little precision has been sacrificed for the sake of speed by using the integers 7 and 4 instead of the factors 7 14 and 4 2 in 8 The average precision for the series is now 0 06 and there is no point in trying to increase precision since it is in any case limited by the scaling factor according to 9 Description of the Source Screens Screen 1 holds the basic definition sin1 which evaluates the sine of values between zero and 5994 3784 x PI 2 5944 corresponding to zero and 90 The series may only be evaluated for arguments greater than 256 4 since the scaled square of anything smaller than 256 is less than one therefore zero for integers and corrupts the series Fortunately the sine of very small angles is almost equal to the angle itself so that argument itself may be used as the result For the worst case argu ment 256 this simplification yields an Volume VIII No 1 error of 0 08 which is only little more than the average error for the whole series The term ZXZ 216 is calculated and stored as XS Then the innermost bracket 216 4 x XS is calcu lated TERM1 is called for the remaining elements where TERM1 evaluates the fre quently used expression 10 The accumulated TERMS are multipli
58. ish the basic record manipulations TE 99 4A ISR Installation by Gene Thomas Interrupt service routines are fast routines which are performed in 1 60 second or less While operating in Forth user defined ISRs are called after each keyboard scan without regard to whether a key was pressed and after each call to NEXT This background task appears both simultaneous with the current foreground task and instantaneous in reaction time 25 Moore Chats on CompuServe by Ward McFarland One evening on CompuServe Mr Charles Moore fielded questions from others who were logged on to the information network at the time The inventor of the Forth language had a good deal to say about Forth chips Japanese technology and several other topics This edited transcript may inspire you to plug in that modem and join the next live event DEPARTMENTS 5 Letters 6 Editorial Calls for Papers 19 Advertisers Index 30 FIG Chapters 3 FORTH Dimensions THEY RE HERE SOFTWARE COMPOSERS DELTA BOARD 4 MHz NC4000 Forth Engine CPU Board MEMORY BOARD 128 KBytes all CMOS Extended addressing of data memory BACKPLANE 7 slots for system building and networking All I O and memory port lines accessible The Delta Evaluation System 895 4 MHz Delta Board with Novix NC4000 Forth Chip on board cmFORTH programming language interpreter and compiler in EPROM e User manual board schematic and user bulletin board support 4K 16 bit words o
59. mpiles lead to vastly different attitudes David B Back to software implementa tions of Forth Is it time for a new standard Current standards Forth 79 Forth 83 don t know thirty two bits have no files primitive I O etc What s the future for Forth Are we ready for the mainstream Chuck Standards are a red flag If I had the slightest concern for them Forth nor chip could not be Standards are for com munication among humans not computers Files I O are horribly hardware dependent Blocks are universal Chip I O is strongly application dependent For every problem are many solutions Why choose only one David B But we all seem to reinvent the wheel number input for example Maybe just a standard user interface of some kind Chuck The wheel has been reinvented many times It will be To keep it simple the overhead must be brutally pruned I do this constantly and I regret the inefficien cy But the most standard language must be Ada and its efficiency is zero David Butler Is it important for Forth to become more popular or will it always be an elitist best possible light language for power programmers Chuck I ve said I don t object to Forth being elitist The widest possible acceptance would be nice but not at a compromise of principle John B Chuck as a reasonably long time Forth user 1979 let me say Thanks for the language By the way if Ada
60. n type a question mark followed by a carriage return When you enter the question mark on your terminal Pll see it here on my screen along with your name Pll note your name from the question marks that were received here By jotting down your question before asking it you can help the conference run a lot more smoothly If this is your first conference on CompuServe relax and watch the traffic for a few minutes After you ve seen a couple of questions and answers go by you ll get the hang of it Let s get started Does anyone have a question for Chuck Scott S Any comments on the Delta board from Software Composers I under stand you won t be making a Gamma board and any comments on CMForth that is on the Delta board CMForth is Charles Moore s Forth Chuck Moore Delta board is a bargain Made in Taiwan for a price no one can beat Ten times the speed of any PC Scott S Heard that the CMForth was very interesting and that you had simplified the Novix compiler It was recommended reading to everyone whether they bought a Novix or not last Silicon Valley FIG Chap ter meeting Chuck CMForth is the absolute sim plest system I can conceive On the other hand I have a much simpler system in the wings It does well illustrate the Novix chip Dave S For those of us who are ig norant what s a Delta board Chuck A 4 x 6 board with the Novix chip and 10K words of memory Fully stuffed
61. ng aids With its unique modular structure polyFORTH even helps you test and debug custom hard ware interactively and it is available for most 8 16 and 32 bit computers FORTH Inc also provides its customers with such professional support services as custom application programming polyFORTH programming courses and the FORTH Inc Hotline For more information and a free brochure contact FORTH Inc today FORTH inc 111 N Sepulveda Blvd Manhattan Beach CA 90266 Phone 213 372 8493 For Development interactive Forth 83 Interpreter Compilers e 16 bit and 32 bit implementations e Full screen editor and assembler e Uses standard operating system files e 400 page manual written in plain English Options include software floating point arithmetic coprocessor support symbolic debugger native code compilers and graphics support For Applications Forth 83 Metacompiler e Unique table driven multi pass Forth compiler Compiles compact ROMable or disk based applications Excellent error handling e Produces headerless code compiles from intermediate states and performs conditional compilation e Cross compiles to 8080 Z 80 8086 68000 6502 8051 8096 1802 and 6303 e No license fee or royalty for compiled applications For Speed CForth Application Compiler e Translates high level Forth into in line optimized machine code e Can generate ROMable code Support Services for registered users
62. nternational Standard with utilities extensions and numerous examples 245 STARTING FORTH soft cover 20 21 24 ______ Leo Brodie A lively and highly readable introduction with exercises 246 STARTING FORTH hard cover 24 25 29 ______ Leo Brodie 255 THINKING FORTH soft cover 16 17 20 ______ Leo Brodie The sequel to Starting Forth An intermediate text on style and form 265 THREADED INTERPRETIVE LANGUAGES 23 25 28 ______ R G Loeliger Step by step development of a non standard Z 80 Forth 270 UNDERSTANDING FORTH 3 50 5 6 ____ Joseph Reymann A brief introduction to Forth and overview of its structure FORML CONFERENCE PROCEEDINGS FORML PROCEEDINGS FORML the Forth Modification Laboratory is an informal forum for sharing and discussing new or unproven proposals intended to benefit Forth Proceedings are a compilation of papers and abstracts presented at the annual conference FORML is part of the Forth Interest Group 310 FORML PROCEEDINGS 1980 30 33 40 Technica papers on the Forth language and extensions 311 FORML PROCEEDINGS 1981 2V 45 48 50 ___ Nucleus layer interactive layer extensible layer metacompilation system development file systems other languages other operating systems applications and abstracts without papers 312 FORML PROCEEDINGS 1982 30 33 40 Forth machine topics implementation topics
63. o divisions are performed to evaluate the series Also the improved SIN is strictly in Forth To see how the modified version works let s start with the basic Taylor Maclaurin series expansion for the sine function as in 1 By successively factoring out x and x the series can be written as in 2 When using a scaled integer x each multi plication must be divided by the scaling 3 5 7 9 1 sinx x x 3 s 7 9 2 2 2 2 B sinx x0 0 0 Se 6 20 42 72 2 2 2 2 6j sie 222 2G ea ee ee K 6K2 20K2 42K2 72K K 1 4 z X gt gt 1 K3 K3 2 K 2 K 2 K 2 5 sinx z0 gt QE 2 MHN i i K 20 K 42 K 6 xs Z X Z k K K XS K XS K XS K5XS 7 1 sinx 2 K Kj 3 Ki i K i K K K 20 K 42 K 72 8 3784 sinx 2 216 _50 XS _ 216 15 XS_ 216 7 14 XS_ 2 6 4 2 XS 216 216 216 216 9 She ns de scaling factor K K 3784 2 0 aban T E AE R 216 Continued on page 19 FORTH Dimensions 14 Volume VIII No 1 FORTH INTEREST GROUP MAIL ORDER FORM P O Box 8231 San Jose CA 95155 408 277 0668 MEMBERSHIP IN THE FORTH INTEREST GROUP 108 MEMBERSHIP in the FORTH INTEREST GROUP amp Volume 8 other countries may select surface 37 00 or air 43 00 delivery of FORTH DIMENSIONS No sales tax handling fee or discount on membership See the back page of this order The annual membership dues are based on the
64. ob tained from NMFUG 3081 Westville Station New Haven Connecticut 06515 Secondly the MacForth Forum on Com puServe has proved to be so successful in the past eighteen months that Creative Solutions Inc the Forum sponsor and publisher of MacForth and CompuServe have gone public with it Although CSI is still taking care of the bureaucratic deal ings with CompuServe our SIG is no long er restricted to MacForthers We are now called the Forth Forum and are open to all CompuServe users with no extra charge or special registration We have ten areas for questions messages announcements etc divided by topic ten Data Library areas for files articles tutorials etc and a private Conference area usable at any time by members for any live group discus sions We have recently had Charles Moore in a two hour open forum and we plan to get other Forth notables on line from time to time in addition to frequent infor mal chat sessions Our data libraries have inherited many MacForth files but we are anxious to get lots of contributions of a more standard Forth nature from users of other systems and Forth dialects Happy Forthing Ward McFarland New Haven Connecticut Grandfather s DO LOOP Dear Marlin Maybe it is uncouth of me to mention it since Michael Hore intended it as a teaching example Forth Dimensions V1 6 Enhan ced DO LOOP but there
65. on Colburn An even more provoca tive thought Sounds like a good thread in the special topics section of the Net Let s hear suggestions of an appropriate problem and an appropriate reward OK time to go Thanks Chuck and thanks to everyone for attending this eve ning If you would like to do this again sometime or have an idea for another con ference please leave a message to any of the sysops We would love to hear from you Good night 29 TO 21 JP EU DOM SOTA or expen Computing sive royalty Systems or hcensing Limited lets arrange you choose ments As between either long as your the versatile applications figFORTH model programs do or the gt not offer the 79 Standard STANDARD access to Each version is y the bas c FORTH available for a number of pop ular computer system you are free to make as many copies systems of the com including piled FORTH the IBM PC system as XT and AT you please or compa and tibles the distribute TRS 80 them as Model I III you wish and 4 4P FORTH or any from computer system SOTA 1s the running CP M S FORTH of version 2 x choice for both or CP M Plus Se a 5 the Novice and version 3 x experienced Whats more TT FQS 8BO0 programmer SOTA doesnt Make it your require you Q M choice now to enter into Order your any awkward copy today When you order from SOTA both the fig model and 79 standard come complete with t
66. or license or quantity pricing DO CR TRE Bryte Computers Inc P O Box 46 Augusta ME 04330 207 547 3218 trot estate 7076 Tete 707070701007 070 ot ete et DOC LRO LEE w Volume VIII No 1 7 FORTH Dimensions Interrupt Driven Serial Input John S James Santa Cruz California Difficulties of implementing interrupt driven serial 1 O have caused a bottleneck in programming for PC compatibles Input is especially important because otherwise characters can be lost during screen scroll at speeds above 300 bps or lost when other tasks are running simultaneously By noting just how the difficulty arises we can learn to avoid such problems in other contexts Here the problems stem from lack of documentation especially examples It s hard to find all of the necessary informa tion in one place Lack of examples causes special problems in cases like this where there is no environment for experimenta tion where everything must be right before anything happens This article provides a working example of serial input screens 2 4 The other screens include file I O the new DOS calls and a simple terminal program which illustrates use of the interrupt routines This example is not a finished product It could use a number of improvements such as saving and restoring the interrupt vec tors we didn t add that here because there wasn t time for thorough testing before this article went to
67. ovix Do you know about this Chuck I know of C Novix is involved Other languages Lisp COBOL BASIC are being addressed I question the value The latest insight into the chip s architec ture leads me to think that Forth is quintes sentially right The other languages can t come within an order of magnitude of its performance for intrinsic reasons Scott S Would be worth it just to see their expression ha Especially since some Forths on Unix machines are written in C Any thoughts on artificial intelligence Chuck AI is well suited to Forth Not popularly I d like to see AI solve a problem locomotives not counted I think I can recognize connected speech with the chip without AI John B Before I found Forth I was already using HP 25 etc so I was prepared for stack postfix Wonder how HP vs TI experience correlates with acceptance vs 28 rejection of Forth upon trial I still can t use a TI calculator effectively Chuck We have interest from both TI and HP My son can t use TI either David B One problem is people are getting unsupported Forths for free then being disappointed by the lack of support Or just bewildered without a manual by how strange Forth looks This initial bad encounter with Forth may have done much to hamper Forth s growth Chuck That s the problem with ground swell growth If I sell a Gamma board it will be without support Not b
68. press This program uses the character input buffer to save a copy of the session for writing to disk good enough for a test of interrupts but a better design would use a circular input buffer and probably a second task to manage the save buffer Here we aimed for simplicity and compatibility in illustrating use of the inter rupt words Screen 2 We placed the interrupt service routine first to emphasize that it doesn t depend on the other parts of the program One helpful trick in getting up a complex code word such as this one if there s any question of whether the assembly is work ing as intended use the disassembler in the DEBUG command provided with the operat ing system For example if you are running F83 use DEBUG F83 COM then use the G Go command to start running Forth Get the hex address where the code begins usually two bytes above the address return ed by tick in Forth 83 then use control C to get out of Forth and back to the debugger Then use the u Unassemble command with the address of the code Screen 3 The word Dos2 is a handy call for many of the new MS DOS 2 0 I O calls Here we also use it to set the system inter rupt vector to point to our service routine ISETUP also sets some necessary control bits PC not a standard word but available in most systems writes a byte to a port Screen 4 A mask turns the com1 interrupt on or off It s important to stop
69. r 7 p m e MICHIGAN Detroit Chapter Monthly 4th Wed Call Tom Chrapkiewicz 313 562 8506 e MINNESOTA MNFIG Chapter Even Month Ist Mon 7 30 p m Odd Month Ist Sat 9 30 a m Vincent Hall Univ of MN Minneapolis MN Call Fred Olson 612 588 9532 MISSOURI Kansas City Chapter Monthly 4th Tues 7 p m Midwest Research Institute MAG Conference Center Call Linus Orth 913 236 9189 St Louis Chapter Monthly Ist Tues 7 p m Thornhill Branch Library Contact Robert Washam 91 Weis Dr Ellisville MO 63011 e NEVADA Southern Nevada Chapter Call Gerald Hasty 702 452 3368 e NEW HAMPSHIRE New Hampshire Chapter Monthly Ist Mon 6 p m Armtec Industries Shepard Dr Grenier Field Manchester Call M Peschke 603 774 7762 e NEW MEXICO Albuquerque Chapter Monthly Ist Thurs 7 30 p m Physics amp Astronomy Bldg Univ of New Mexico Jon Bryan Call 505 298 3292 e NEW YORK FIG New York Monthly 2nd Wed 8 p m Queens College Call Ron Martinez 212 517 9429 Rochester Chapter Bi Monthly 4th Sat 2 p m Hutchinson Hall Univ of Rochester Call Thea Martin 716 235 0168 Rockland County Chapter Call Elizabeth Gormley Pearl River 914 735 8967 Syracuse Chapter Monthly 3rd Wed 7 p m Call Henry J Fay 315 446 4600 e OHIO Akron Chapter Call Thomas Franks 216 336 3167 Athens Chapter Call Isreal Urieli 614 594 3731 Cleveland Chapter Call Gary Bergstrom 216 247 2492 C
70. r case input without having to manually reset case conversion For instance if you are in an editor you don t want to exit the editor and reset case translation just to enter a lower case string In this case you would want the key case to be inverted lower case keys being translated to upper case and vice versa I have implemented this capability by adding a case translating word 0 no translation 1 translate to upper case 2 switch cases and words to set which case translation you want LC provides no translation uc translates to upper case and tc inverts the case of alphabetic letters input fig FORTH also defined the word 7TERMINAL to see if a key had been input This was used in words like VLIST INDEX TRIAD and others to see if the user wanted to stop the output on the screen However if the user just wanted to stop the output temporarily and then resume it there was no way to do this To get around this problem I have rede fined the word TERMINAL to only return a true value if a cntl C is pressed If any other key is pressed TERMINAL just waits for another keystroke This is very handy for looking at the output of a vutst or for suspending compilation of multiple screens after I redefined gt to use TERMINAL Keyboard case as case conversion to lower uppper no case conversion case conversion to invert case NEXT EEYSTRONE DUP 060 gt OVER de gt TE OVER DUP 040 ORIF XOR TH
71. reet Desert Hot Springs CA 92240 619 329 4625 Do you use Forth professionally Do you ever wish that you were working in an organization large enough to have a full time software tools group The Tools Group subscription support service is available to any Forth programmer Tools are available for the Z80 and MC680x0 environments running either CP M 2 2 TPM III or GEMDOS iAPX 8x 28x and NS32x32 versions will be ready soon Access to the Tools Group programmers and library is through a Hartronix multiuser bulletin board system Soon the service will be available world wide through an X 25 based public data network at very low cost The Tools Group library is extensive including tools like a 64 bit IEEE floating point package transportable code between different operating systems ASCII file support automatic librarymanager and much more If the tool you need is not in the library we will work with you to develop it Our motives are simple We enjoy building real tools for real programmers We want to help you For a small annual fee you may freely use our tools without royalties You don t need to tell anyone that you have a tools group you can just let them think you are Superprogrammer FORTH Dimensions 24 Volume VIII No 1 Moore Chats on CompuServe Editor s note FIG member Ward McFar land recently mailed us the transcript of a public meeting held one evening on CompuServe Making a prearr
72. s device service routines then re sumes as in disk read write 5 Always turn off user ISR activity with 0 83C4 before installing a different ISR To do otherwise is to invite a fatal error result ing in a system crash The same applies to pushing the CFA into ISR before turning it on with INTLNK 83C4 How do you know if the routines execu tion time is sixteen milliseconds or less That is a fair question The straightforward answer is you don t But there are some guidelines With the ISR installed there should be no problem with normal key board or program execution if there isn t it should be running fast enough Avoid deeply nested routines such as long IF THEN and CASE constructs and slow running Operations such as the floating point rou tines Any output conversion process D EMIT TYPE SPACES etc will certainly be too slow You should be successful if you learn to use the following words to their best advantage VMBW VSBW VSBR VMBR AND OR XOR MOD U SLA and SRA These words and some others call directly or nearly so on machine code Finally you should be using 64SUPPORT for editing if you have a monitor or a TV with good resolution If you are using the forty column screen editor then you ll want to change the 25 and 30 following SCRN START in BAS I suggest 31 and 38 respectively to put the display in the upper right corner THE TOOLS GROUP 66230 Forth St
73. s the user should Save before the large buffer has filled will lose characters on the screen but not the file unless the remote system fails to respond to XOFF XON A more sophisticated design could correct these problems Screens 12 and 13 ESCAPE FN tests any command from the terminal user and calls the proper func tion The main word TERM is largely self explanatory FORTH Dimensions Volume VIII No 1 Screen 14 This optional screen is not loaded by screen because it applies only to F83 and it is used only after development is com plete Loading this screen causes TERM to execute automatically when the COM file containing the object program is loaded For practical use of this program note that there are two ways to lose data ways you may want to remove The program has an undocumented escape exit into Forth which you can easily remove on Screen 12 Also a control C will abort to the operat ing system in many Forths You may want to use a system call which doesn t check for it instead of using Forth s KEY especially since some remote systems require a control C in some situations User Interface Note Designers should consider the simple user interface illustrated in this program using one keystroke usually one line menus When the program starts it identifies the one key needed for help here Escape This help key also gives the user control often through the top level menu
74. sent and discuss your ideas Papers are invited that address relevant issues such as Portability of applications decompilers amp debuggers Hardware Forth processors Large address spaces like 32 bit computers Control structures data structures amp strings Files graphics amp floating point operations Cohabitation with operating systems other languages amp networks Papers on other Forth topics are also welcome Mail your abstract s of 100 words or less by September 1 1986 to FORML Conference P O Box 8231 San Jose CA 95155 USA Completed papers are due October 1 1986 For registration information call the Forth Interest Group business office at 408 277 0668 or write to FORML Asilomar is a wonderful place for a conference It combines comfortable meeting and living accommodations with secluded forests on a Pacific Ocean beach Registration includes deluxe rooms all meals and nightly wine and cheese parties a ERES FORTH Dimensions 12 Volume VIII No 1 FORTH The computer language for increased EFFICIENCY reduced MEMORY higher SPEED MVP FORTH SOFTWARE Stable Transportable Public Domain Tools MVP FORTH PROGRAMMER S KIT for IBM Apple CP M MS DOS Amiga Macintosh and others Specify computer 175 D n 11 A FTERM BLK Terminal program write to file and autosave 4 10 86 gt WRITE FILE IOFF TSAVE PTR TSAVE FILE NAME ION FDO
75. t amp Reference by Kelly and Spies Prentice Hall and The HS FORTH Supplement by Kelly and Callahan La Visa HARVARD SOFTWORKS PO BOX 69 SPRINGBORO OH 45066 513 748 0390 Mastercard mecms FORTH Dimensions TOTAL CONTROL with LMI FORTH polyFORTH GETS YOUR PROGRAM FROM CONCEPT TO REALITY 4TO 10 TIMES For Programming Professionals an expanding family of compatible high performance Forth 83 Standard compilers for microcomputers THE ONLY INTEGRATED SOFTWARE DEVELOPMENT PACKAGE DESIGNED FOR REAL TIME APPLICATIONS ff you re a real time software developer polyFORTH can be your best ally in getting your program up and running on time In fact on the average you will develop a program 4 to 10 times faster than with traditional program ming languages polyFORTH shortens development time by making the best use of your time There are no jong waits while you load editors compilers assemblers and other tools no long waits while they run because everything you need is in a single easy to use 100 resident system Using polyFORTH you take a raw idea to fast compiled code in seconds and then test it interactively polyFORTH has everything you need to develop real time applications fast multi tasking multi user OS FORTH compiler interpreters and assemblers editor and utilities and over 400 primi tives and debuggi
76. the interrupts whenever accessing PTR the variable used by the interrupt routines A productized interrupt system would hide these internals and only allow access through a defined set of calls Screen 5 If there are any characters in the buffer MREAD returns the next one otherwise it returns a 1 to indicate that the buffer is empty ION IOFF probably aren t necessary here since MREAD is being used on a sixteen bit architecture On an eight bit machine an interrupt and increment of PTR could occur between the fetches of the two bytes unless interrupts were turned off Such bugs can hide for a long time then cause problems which are hard to track down An improved interrupt routine for a general purpose software library would hide these problems so that users of the routine would not need to be concerned about them Screen 6 The non interrupt output in MWRITE got a little complicated to prevent problems with certain equipment Some external modems do not handshake properly if the BIOS serial I O call is used It may be impossible to send anything even commands when the modem first comes up Some modems have a switch to override this problem other do not so it s better to use direct output to the port and not be so fussy about handshaking Without line 12 some modems will drop the line and report no carrier immediate ly just after the phone call has gone through Screens 7
77. tructures mathematics and working group reports 323 ROCHESTER 1983 Forth Applications 25 28 35 _ ____ Forth in robotics graphics high speed data acquisition real time problems file management Forth like languages new techniques for implementing Forth and working group reports 324 ROCHESTER 1984 Forth Applications 25 28 35 _____ Forth in image analysis operating systems Forth chips functional programming real time applications cross compilation multi tasking new techniques and working group reports 325 ROCHESTER 1985 Software Management and Engineering 20 21 24 Improving software productivity using Forth in a space shuttle experiment automation of an airport development of MAGIC L and a Forth based business applications language includes working group reports THE JOURNAL OF FORTH APPLICATION amp RESEARCH refereed technical journal published by the Institute for Applied Forth Research Inc 401 JOURNAL OF FORTH RESEARCH V 1 1 15 16 18 ______ Robotics 402 JOURNAL OF FORTH RESEARCH V 1 2 15 16 18 Data Structures 403 JOURNAL OF FORTH RESEARCH V 2 1 15 16 18 Forth Machines 404 JOURNAL OF FORTH RESEARCH V 2 2 15 16 18 Real Time Systems 405 JOURNAL OF FORTH RESEARCH V 2 3 15 16 18 Enhancing Forth 406 JOURNAL OF FORTH RESEARCH V 2 4 15 16 18 Extended Addressing 407 JOURNAL OF FORTH RESEARCH V 3 1 15 16 18 ______ Fort
78. ual Forth National Convention This hallmark event always features many illustrious speakers and the widest representation of Forth vendors anywhere Hundreds of FIG members and the interested public will convene this year in Santa Clara California on November 21 22 at the Doubletree Hotel Preliminary plans show that this year s meeting promises to be memorable watch these pages for details of interest FORML Conferences are like dynamic highly participatory graduate seminars on Forth implementation and programming techniques Most attendees present advan ced papers and space is limited but some places are always available for those who choose only to immerse themselves in the advanced subject material and lively dia logue The surroundings of California s Asilomar Conference Center provide a rewarding background located near Car mel on the scenic Monterey peninsula November 28 30 are the scheduled dates and more information will be published later in Forth Dimensions The personal and professional results gained from attending these events are many In addition they are a good source of feedback from members to the FIG leadership We look forward to meeting many of you this year Marlin Ouverson Editor Letters continued the way in which a word operates in Forth 83 Such was the case with SYNONYM which appeared in Forth Dimensions VII 3 SYNONYM is one of the better one word tools I have seen The
79. ventional function key systems which often load for ty commands onto ten keys requiring mul tiple keystrokes templates and arbitrary grouping of commands Note that most user errors will have no effect in this system Any non valid selec tion will terminate the menu operation and do nothing else An erroneous selection sequence cannot do damage unless it reaches a leaf of the menu tree meaning that each character typed happened to match an existing choice of the menu then in effect And of course the dangerous commands can ask for confirmation for additional protection This user interface also gives the system designer the flexibility to group the choices in a rational way Users who do not use an item need never see it 4 10 86 gt lt Where interrupt routine will put characters lt Line status register Receive buffer gt Port 1 Input Save registers O1 AL TEST Data ready DX AL IN Read character gt Move it to PTR BX INC Inc PTR these regiaters 8259A Interrupt controller FORTH DECIMAL FORTHkit Assemble a 4 Mips Computer PARTS 4MHz Novix NC4000 4x6 mother board Press fit sockets 2 4kx8 PROMS INSTRUCTIONS cmFORTH listing Application Notes Brodie on NC4000 ASSEMBLY Buy 6 RAMs Misc parts Press 360 sockets Soldeer 3 capacitors 2 resistors Attach 200mA 5V RS 232 cable Ins
80. would cripple it Better for the thirty two bit Forth to be able to set aside 64K to run 79 Standard or 83 Standard programs Mr Hore suggested setting up a constant named LSIZE which gives the stack word length while the compilation address length stays at sixteen bits and would transmit sixteen bits to allow DO 1 2 L00P to work So long as the manufac turers make LSIZE in byte multiples we can set LSIZE to 2 4 6 etc I personally have set up the synonym Ls and I now attempt to remember to write DO 1 LS LOOP I see no problem with this general plan for thirty two bit Forth If your program is written with LSIZE and you don t use the 32768 gt 32767 shunt which I ve used only for randon number generators it can be made to run in double precision with no run time penalty but using twice the variable storage If it might not be compatible then you load a truncated vocabulary Everything pretends to be sixteen bits starting at a base pointer and sign extend etc No problem What about segmented memory for sixteen bit machines I believe that this can be used very nicely within the standard FIG SYNONYM Listing 1 Screen 5 0 Synonyms FD vol 3 no 3 1 Converted to FI6 SYNONYM new ald lt BUILDS FIND IF DROP count IMMEDIATE DUP CFA DUP CFA SWAP NFA 64 AND IF DOES gt EXECUTE ELSE DOES gt STATE Fe ELSE EXECUTE THEN THEN ELSE CR THEN Not foun
81. y have board to date Chip implementation of floating point is not cost effective But being Forth they are interest ing alternative What is interest in Forth in Japan Kiyoshi Y Not very popular But I ve seen a Forth coprocessor to work with 68000 made in Kyoto Several books exist to teach how to program in Forth Chuck Interesting Scott S When will Novix make the next batch of the current chip when will the next generation chip be how are the interrupt problems coming Chuck I heard today that fifty nine are in test 441 will follow shortly How can we sell them Scott S I think the Delta board is a good first step Would like to see an I O type system with interrupts Chuck Interrupts are useable if you expect them i e as synchronizing signals Next chip is under consideration Many changes are possible but desirable Say six months Buy current chip Scott S OK I will Just one more quick question Heard that a company was con necting the Weitek math chips and can you tell us what some companies are planning to do with the chips themselves Chuck Attractive for telecommunica tions digital audio process control At taching math chips or any chips is very easy So easy that on chip capability is questionable But no names at present 26 UBZ FORTH for the Amiga FORTH 83 compatible 32 bit stack Multi tasking Separate headers Full screen editor Assembler

Download Pdf Manuals

Related Search

Related Contents

Manual do Utilizador EN FR DE  Microwave Oven  FPM-3171G User Manual  ク 一ルカ一 コ 取扱説明堂  SITRANS F M MAG 5100 W    TTPM2 Ticket Printer/Encoder  Belzona® 4301  Page 1 Page 2 全般 ー-ー 内容の変更について ー  Par Chloé - Petits livres  

Copyright © All rights reserved. Failed to retrieve file