Use pop rather than inx;inx to retract the stack; consumes a register but

halves the number of calls. Reduces Star Trek from 39976 to 39771 bytes.

mach/i80/ncg/table

@@ -2053,46 +2053,29 @@ gen 1:
 /* Group 15: Miscellaneous		  */
 /******************************************/
 
-pat asp $1<=0-6
+pat asp ($1<=0-12) || ($1>=12)
    with STACK
       uses hlreg={const2,$1}
-gen dad sp
+      gen
+         dad sp
          sphl.
 
-pat asp $1==0-4
+pat asp ($1<0) && ($1>0-12)
    with STACK
-gen dcx sp
-    dcx sp
-    dcx sp
-    dcx sp
-
-pat asp $1==0-2
-with STACK
-gen dcx sp
-    dcx sp
+      gen
+         push hl
+      leaving
+         asp $1+2
 
 pat asp $1==0 /* do nothing */
 
-pat asp $1==2
-with exact src1or2
+pat asp ($1>0) && ($1<12)
    with STACK
-   gen inx sp
-       inx sp
-
-pat asp $1==4
-with exact src1or2				leaving asp 2
-with STACK
-   gen inx sp
-       inx sp
-       inx sp
-       inx sp
-
-pat asp $1>=6
-with exact src1or2				leaving asp $1-2
-with STACK
-  uses hlreg={const2,$1}
-  gen dad sp
-      sphl.
+      uses hlreg
+      gen
+         pop hl
+      leaving
+         asp $1-2
 
 pat ass $1==2
 with hlreg STACK