a guest Sep 13th, 2019 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  EVQAT PDX     0,4
  2.        TXL     EVQNF,4,0          EXIT IF END OF ATOM
  3.        CLA     0,4                NEXT WORD
  4.        PAX     0,4                CAR OF ATOM
  5.        STL     EVQST              SET SWITCH FOR SUBR OF EXPR
  6.        TXL     *+2,4,$SUBR-1      LOOK FOR $SUBR
  7.        TXL     EVQFS,4,$SUBR      TREAT AS FSUBR (ALMOST)
  8.        TXL     *+2,4,$EXPR-1      LOOK FOR $EXPR
  9.        TXL     EVQFX,4,$EXPR      TREAT AS FEXPR (ALMOST)
  10.        STZ     EVQST              SET SWITCH FOR FSUBR OR FEXPR
  11.        TXL     *+2,4,$FSUBR-1     LOOK FOR FSUBR
  12.        TXL     EVQFS,4,$FSUBR
  13.        TXL     EVQAT,4,$FEXPR-1   LOOK FOR FEXPR
  14.        TXH     EVQAT,4,$FEXPR
  15.  EVQFX PDX     0,4                FOUND AN FEXPR
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand