rst 1 now takes an eight-bit parameter, not a 16 bit one. Reduces Star Trek

again from 43205 to 42339 bytes.

mach/i80/libem/rst.s

@@ -13,15 +13,18 @@
     shld 0x09
     ret
 
-    ! de = [bc+const2] (remember bc is the frame pointer)
+    ! de = [bc+const1] (remember bc is the frame pointer)
 rst1:
     pop h
-    mov e, m
-    inx h
-    mov d, m
+    mov a, m
     inx h
     push h
-    xchg        ! hl = offset
+
+	mov l, a
+	ral
+	sbb a
+	mov h, a
+
 	dad b
     mov e, m
     inx h

mach/i80/ncg/table

@@ -131,7 +131,7 @@ INSTRUCTIONS
 /* rpe					cost(1, 8).	*/
 /* rpo					cost(1, 8).	*/
    rrc			kills a:cc	cost(1, 4).
-   rst	const1:ro kills a:cc cost(1,11).	
+   rst	const1:ro cost(1,11).	
 /* rz					cost(1, 8).	*/
    sbb	reg1:ro 	kills a:cc	cost(1, 4).
 /* sbi	const1:ro 	kills a:cc	cost(2, 7).	*/
@@ -244,15 +244,16 @@ pat ldc					yields {const2,highw($1)}
 					       {const2,loww($1)}
 
 #ifdef USE_I80_RSTS
-   pat lol
+   pat lol sfit($1, 8)
       kills hlreg
       uses hlreg, dereg
       gen
          rst {const1, 1}
-         data2 {const2, $1}
+         data1 {const1, $1}
       yields de
-#else
-   pat lol
+#endif
+
+pat lol
   uses hlreg={const2, $1}, dereg
   gen
 	 dad lb
@@ -260,7 +261,6 @@ pat ldc					yields {const2,highw($1)}
 	 inx hl
 	 mov d,{m}
   yields de
-#endif
 
 pat loe
 uses hlreg