Don't generalize XYPOS just yet

It was ill-advised.

blk/081

@@ -1,6 +1,6 @@
 RAMSTART  FUTURE USES          +3c       BLK(*
-+02       CURRENT              +3e       XYPOS
-+04       HERE                 +40       FUTURE USES
++02       CURRENT              +3e       FUTURE USES
++04       HERE                 
 +06       C<?                  +51       CURRENTPTR
 +08       C<* override         +53       (emit) override
 +0a       NLPTR                +55       (key) override

blk/083

@@ -7,8 +7,8 @@ WORDBUF is the buffer used by WORD
 BOOT C< PTR is used when Forth boots from in-memory
 source. See "Initialization sequence" below.
 
-XYPOS Current position of the cursor on screen. The meaning of
-the pos in terms of row and cols is driver-dependent.
+
+
 
 
 

blk/393

@@ -3,7 +3,6 @@
 : HERE 0x04 RAM+ ;
 : CURRENT* 0x51 RAM+ ;
 : CURRENT CURRENT* @ ;
-: XYPOS 0x40 RAM+ ;
 
 ( w -- a f )
 : FIND CURRENT @ SWAP _find ;

blk/623

@@ -1,3 +1,4 @@
+: XYPOS [ VDP_MEM LITN ] ;
 CODE _ctl ( a -- sends LSB then MSB )
     HL POPqq, chkPS,
     A L LDrr, VDP_CTLPORT OUTnA,

recipes/sms/xcomp.fs

@@ -3,6 +3,7 @@
 0xdd00 CONSTANT RS_ADDR
 ( Memory register at the end of RAM. Must not overwrite )
 0xddca CONSTANT PS_ADDR
+RAMSTART 0x70 + CONSTANT VDP_MEM
 0xbf   CONSTANT VDP_CTLPORT
 0xbe   CONSTANT VDP_DATAPORT
 32     CONSTANT VDP_COLS