Advertisement
Guest User

Untitled

a guest
May 19th, 2019
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.54 KB | None | 0 0
  1. *
  2. * CASE FOR ATOMIC FIRST LIST OF DOUBLET
  3. *
  4. EVQAT PDX 0,4
  5. TXL EVQNF,4,0 EXIT IF END OF ATOM
  6. CLA 0,4 NEXT WORD
  7. PAX 0,4 CAR OF ATOM
  8. STL EVQST SET SWITCH FOR SUBR OF EXPR
  9. TXL *+2,4,$SUBR-1 LOOK FOR $SUBR
  10. TXL EVQFS,4,$SUBR TREAT AS FSUBR (ALMOST)
  11. TXL *+2,4,$EXPR-1 LOOK FOR $EXPR
  12. TXL EVQFX,4,$EXPR TREAT AS FEXPR (ALMOST)
  13. STZ EVQST SET SWITCH FOR FSUBR OR FEXPR
  14. TXL *+2,4,$FSUBR-1 LOOK FOR FSUBR
  15. TXL EVQFS,4,$FSUBR
  16. TXL EVQAT,4,$FEXPR-1 LOOK FOR FEXPR
  17. TXH EVQAT,4,$FEXPR
  18. EVQFX PDX 0,4 FOUND AN FEXPR
  19. CLA 0,4
  20. PAX 0,4 THE EXPRESSION FOR THE FEXPR
  21. PXD 0,4 EXPRESSION TO AC
  22. ZET EVQST SKIP IF FEXPR
  23. TRA EVQZ GO TO APPLY CALL FOR EXPR
  24. STO EVQAN SAVE THE EXPRESSION
  25. STQ EVQMQ SAVE MQ
  26. PXD 0,0 CLEAR
  27. XCA MQ AND
  28. PXD 0,0 AC
  29. TSX $CONS,4 NULL A LIST
  30. XCA INTO MQ
  31. CLA EVQMQ PUT SECOND LIST IN AC
  32. TSX $CONS,4 CONS(L,A)
  33. XCA ANSWER TO ARG 2
  34. CLA EVQAN FEXPR
  35. TRA EVQZ GO TO APPLY FOR FEXPR
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement