case off mcopy /usr/local/ainclude/M16.SmartStacks root start end * extern pascal Word MatchDFA(void *, const char *, Word *) MatchDFA start DefineStack state word len word offset word value word low word c word endlocals FixStack begparms rv longword str longword dfa longword endparms BeginStack stz high) exit iny iny dec a cmp (