Guest User

Untitled

a guest
Sep 13th, 2019
58
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