Re: [Amforth] Where to store my word?

[Jan K. <kro...@ho...>]

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