Hi
I have used the following definitions to aid allocating user defined exceptions.
In my forth implementation, EXCP# variable is always reset to -4096 at boot
time.
Greetings
Rafael
\ EXCEPTION Number handling
VARIABLE EXCP# \ initialized to -4096 EXCP# ! at boot time
: EXCP-RANGE: ( n1 "ccc" --- ) ( Runtime: -- n2 )
\ allots an exception code range n1 and defines its start number as a constant
negate EXCP# dup @-rot +! CONSTANT ;
: EXCEPTION: ( "ccc" --- ) ( Runtime: -- n)
\ alots one exception code and define it as a constant
1 EXCP-RANGE: ;
------------------------------------------------------------------------------
Meet PCI DSS 3.0 Compliance Requirements with EventLog Analyzer
Achieve PCI DSS 3.0 Compliant Status with Out-of-the-box PCI DSS Reports
Are you Audit-Ready for PCI DSS 3.0 Compliance? Download White paper
Comply to PCI DSS 3.0 Requirement 10 and 11.5 with EventLog Analyzer
http://pubads.g.doubleclick.net/gampad/clk?id=154622311&iu=/4140/ostg.clktrk
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel
