Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!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: PYGMY Forth
Message-ID: <2279.UUL1.3#5129@willett.pgh.pa.us>
Date: 27 Jan 91 22:36:02 GMT
Organization: (n.) to be organized.  But that's not important right now.
Lines: 31

Category 1,  Topic 45
Message 67        Sat Jan 26, 1991
F.SERGEANT [Frank]           at 09:29 CST
 

 Here are the corrected definitions of SKIP & SCAN.  Other than the  names,
the only changes are the 1 #, AL OR, and the AX AX SUB,  whose  purposes are
to set the zero flag prior to the rep scas instructions.

 CODE -LEADING<>  ( a # char - a #)
    ( eat leading non-delimiters) 
    1 #, AL OR, ( force zero flg false)
    DS AX MOV, AX ES MOV,  BX AX MOV, CX POP, DI POP,
    REPNZ, AL SCAS,  0=, IF, DI DEC, CX INC, THEN,
    DI PUSH, CX BX MOV,  NXT,    END-CODE

 CODE -LEADING= ( a # char - a #)
    ( eat leading delimiters)
    AX AX SUB, ( force zero flg true)
    DS AX MOV, AX ES MOV,  BX AX MOV, CX POP, DI POP,
    REPZ, AL SCAS,  0=, NOT, IF, DI DEC, CX INC, THEN,              
    DI PUSH, CX BX MOV, NXT,     END-CODE

 : -LEADING  ( a # - a #) ( eat leading spaces) 32 -LEADING= ;

  -- Frank
-----
This message came from GEnie via willett.  You cannot Reply to the author
using email.  Please post a follow-up article, or use any instructions
the author may have included (USMail addresses, telephone #, whatever).
Report problems to: dwp@willett.pgh.pa.us or uunet!willett!dwp