8086a: add PUSHs, and POPs,

blk/760

@@ -5,6 +5,7 @@
 : MOVxm, 0x8b A, SWAP <<3 0x6 OR A, A,, ;
 : MOVmr, 0x88 A, <<3 0x6 OR A, A,, ;
 : MOVmx, 0x89 A, <<3 0x6 OR A, A,, ;
+: PUSHs, <<3 0x06 OR A, ; : POPs, <<3 0x07 OR A, ;
 : SUBxi, 0x83 A, SWAP 0xe8 OR A, A, ;
 : ADDxi, 0x83 A, SWAP 0xc0 OR A, A, ;
 : JMPr, 0xff A, 7 AND 0xe0 OR A, ;

recipes/pcat/xcomp.fs

@@ -14,10 +14,9 @@ CODE (key)
 ;CODE
 CODE 13H08H ( driveno -- cx dx )
     DI POPx, DX PUSHx, ( protect ) DX DI MOVxx, AX 0x800 MOVxI,
-    DI DI XORxx, ES DI MOVsx,
-    0x13 INT, DI DX MOVxx, DX POPx, ( unprotect )
+    ES PUSHs, DI DI XORxx, ES DI MOVsx,
+    0x13 INT, DI DX MOVxx, ES POPs, DX POPx, ( unprotect )
     CX PUSHx, DI PUSHx,
-    DI 0x800 MOVxI, ES DI MOVsx,
 ;CODE
 CODE 13H ( ax bx cx dx -- ax bx cx dx )
     SI POPx, ( DX ) CX POPx, BX POPx, AX POPx,