Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!lll-winken!uwm.edu!spool.mu.edu!sdd.hp.com!zaphod.mps.ohio-state.edu!unix.cis.pitt.edu!pitt!willett!ForthNet
From: ForthNet@willett.pgh.pa.us (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: Linking, Modules, and Overlays
Message-ID: <2420.UUL1.3#5129@willett.pgh.pa.us>
Date: 27 Feb 91 03:08:47 GMT
Organization: (n.) to be organized.  But that's not important right now.
Lines: 45


 Date: 02-23-91 (00:36)              Number: 1301 of 1301
   To: ALL                           Refer#: NONE
 From: STANLEY SUTTON                  Read: (N/A)
 Subj: DEFINING WORDS, F83           Status: PUBLIC MESSAGE
 Conf: FORTH (58)                 Read Type: GENERAL (+)

 I'm primarily a C coder, just starting to learn forth.  I'm hoping
 that I'm understanding defining words correctly.  I'm attempting to
 build a Desqview Interface to F83.  Some of the direct call to the
 Desqview API use the same registers.   Are the following two screens
 a proper use of defining words?

 \  Direct call interface, no return values          91-02-23 sms

 Hex

 Code AINT  ( code -- )
    AX pop   15 int  next  end-code

 : dq1   create , does> @ aint ;
   101B  dq1 beginc
   101C  dq1 endc
   1000  dq1 pause
 decimal
 \  Direct call interface, no return values
 Hex

 Code BAINT   ( n code -- )
    ax pop   bx pop  15 int   next  end-code

 : dq2  create , does> @ BAINT ;
   110B dq2 apilevel             1112 dq2 cstyle
   110A dq2 dbgpoke              1014 dq2 freebit
   1111 dq2 justify              102B dq2 posttask
   1110 dq2 pushkey              1015 dq2 setbit
 decimal

 NET/Mail : RCFB Golden, CO (303) 278-0364 VESTA & Denver FIG for Forth!
 <<<>>>
-----
This message came from GEnie via willett.  You *cannot* reply to the author
using e-mail.  Please post a follow-up article, or use any instructions
the author may have included (USMail addresses, telephone #, etc.).
Report problems to: dwp@willett.pgh.pa.us _or_ uunet!willett!dwp