Re: [Amforth] Where to store my word?

[pito <pi...@vo...>]

Jan,
the bitnames.frt words are better to be rewritten into assembler.
You need a fast pin manipulation on an MCU I would say. Your attempt
to translate it into "asm tokens" is wasting the time (unless you
are doing it for educational purposes mainly)..
p.

----- PŮVODNÍ ZPRÁVA -----
Od: "Jan Kromhout" <kro...@ho...>
Komu: amf...@li...
Předmět: Re: [Amforth] Where to store my word?
Datum: 18.6.2012 - 16:02:38

> 
> Dear Michael,
> 
> I try to convert the lib bitnames.frt.
> See the results here.
> There is going sommething wrong, but get not the
> finger behand it.
> I have used the latest version.
> Please can you take a look?
> 
> Cheers,
> 
> Jan
> 
> FLOAD
> '\\psf\Home\Documents\amforth-4.8\amforth-4.8\lib\bitnames.frt'
> 
> ; V 1.3 02.11.2007
> ; Code: Matthias Trute
> ; Text: M.Kalus
> ; A named port pin puts a bitmask on stack, wherin
> the set bit indicates which
> ; bit of the port register corresponds to the pin.
> 
> ; And then puts the address of its port on stack
> too. 
> ; Use it this way:
> ; PORTD 7 portpin: PD.7  ( define portD pin #7)
> ; PD.7 high              ( turn portD pin #7 on,
> i.e. set it high-level)
> ; PD.7 low               ( turn portD pin #7 off,
> i.e. set it low-level)
> ; PD.7 <ms> pulse        ( turn portD pin #7 for
> <ms> high and low)
> ; the following words are for "real" IO pins only
> ; PD.7 pin_output        ( set DDRD so that portD
> pin #7 is output)
> ; PD.7 pin_input         ( set DDRD so that portD
> pin #7 is input)
> ; PD.7 pin_high?         ( true if pinD pin #7 is
> high)
> ; PD.7 pin_low?          ( true if pinD pin #7 is
> low)
> ; 
> ; multi bit operation
> ; PORTD F portpin PD.F   ( define the lower nibble
> of port d )
> ; PD.F pin@              ( get the lower nibble
> bits )
> ; 5 PD.F pin!            ( put the lower nibble
> bits, do not change the others )
> .dw XT_HEX 
> ; At compiletime:
> ; Store combination of portaddress and bit number
> in a cell and give it a name.
> ; At runtime:
> ; Get pinmask and portaddress on stack.
> VE_PORTPIN::
> .dw $FF08 
> .db "PORTPIN:"
> .dw VE_HEAD
> .set VE_HEAD = VE_PORTPIN:
> XT_PORTPIN::
> .dw DO_COLON 
> PFA_PORTPIN::
> : portpin: create ( C: "ccc" portadr n -- ) ( R:
> -- pinmask portadr )
> ^
> Warning(-4100): ( is redefined in file
> \\PSF\HOME\DOCUMENTS\AMFORTH-4.8\AMFORTH-4.8\LIB\BITNAMES.
> RT at line 32 
> ; create: 
> VE_(:
> .dw $FF01 
> .db "(",0
> .dw VE_HEAD
> .set VE_HEAD = VE_(
> XT_(:
> .dw PFA_DOCONSTANT 
> PFA_(:
> : portpin: create ( C: "ccc" portadr n -- ) ( R:
> -- pinmask portadr )
> ^^^^^
> Error(-13): "CCC" is undefined in file
> \\PSF\HOME\DOCUMENTS\AMFORTH-4.8\AMFORTH-4.8\LIB\BITNAMES.
> RT at line 32 
> 
> 
> 
> 
> 
> 
> 
> > Date: Sun, 17 Jun 2012 23:21:59 +0200
> > From: mik...@go...
> > To: amf...@li...
> > Subject: Re: [Amforth] Where to store my word?
> > 
> > Hi Jan.
> > ..
> > > I also not find the win32 forth version any
> > > more!
> > > > > Please can you take a look!
> > 
> > Its still there and updated:
> > http://www.forth-ev.de/repos/g4/g4w32f.fs
> > 
> > m
> > 
> > ------------------------------------------------------------------------------
> > > > > Live Security Virtual Conference
> > Exclusive live event will cover all the ways
> > today's security and 
> > > threat landscape has changed and how IT managers
> > can respond. Discussions 
> > > will include endpoint security, mobile security
> > and the latest in malware 
> > > threats.
> > http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> > > _______________________________________________
> > Amforth-devel mailing list for
> > http://amforth.sf.net/
> > > Amf...@li...
> > https://lists.sourceforge.net/lists/listinfo/amforth-devel
> > 
> ------------------------------------------------------------------------------
> > Live Security Virtual Conference
> Exclusive live event will cover all the ways
> today's security and 
> threat landscape has changed and how IT managers
> can respond. Discussions 
> will include endpoint security, mobile security
> and the latest in malware 
> threats.
> http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
> _______________________________________________
> Amforth-devel mailing list for
> http://amforth.sf.net/
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
> 

-- 
- - Reklama - - - - - - - - - - - - - -
Maturity, přijímací zkoušky, státnice, diplomky... Vše o závěru
studia na středních a vysokých školách čtěte na portálu VOLNÝ.cz na
http://bit.ly/LfImCR