   #! in a pattern hashtable to return the instruction quotation pattern.
   token swap [ nip '[ , generate-instruction ] ] curry action ;
 
+: no-params ( ast -- ast )
+  first { } swap curry ;
+
+: one-param ( ast -- ast )
+  first2 swap curry ;
+
+: two-params ( ast -- ast )
+  first3 append swap curry ;
+
 : NOP-instruction ( -- parser )
   "NOP" simple-instruction ;
 

    8-bit-registers sp ,
    "," token hide ,
    16-bit-registers indirect ,
  ] seq* [ first3 append swap curry ] action ;  
  
: LD-RR,NN-instruction ( -- parser )
  #! LD BC,nn

    16-bit-registers indirect sp , 
    "," token hide ,
    16-bit-registers ,
  ] seq* [ two-params ] action ;  

: EX-RR,RR-instruction ( -- parser )
  [
