   #! 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 , 
    8-bit-registers ,
  ] seq* [ first3 append swap curry ] action ;  

: ADC-R,(RR)-instruction ( -- parser )
  [

    16-bit-registers sp ,
    "," token hide ,
    "nn" token indirect hide ,
  ] seq* [ one-param ] action ;

: LD-R,(NN)-instruction ( -- parser )
  [
