hi Enoch,

> I'd like to see this forum also offering code snippets, so here's my
> first humble attempt of harnessing the atomic bit manipulation
> instructions.
> 
> : port:hi ( portadr bitno -- )            \ SBI
>     swap $20 - 3 lshift or $9A00 or code , end-code

Did you actually test this code? CODE is a parsing word
that starts a new dictionary entry. There is currently no
way to switch between forth and machine code (that would
be ;CODE btw)

Puzzled
Matthias


------------------------------------------------------------------------------
Free Next-Gen Firewall Hardware Offer
Buy your Sophos next-gen firewall before the end March 2013 
and get the hardware for free! Learn more.
http://p.sf.net/sfu/sophos-d2d-feb
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Reply via email to