1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 12:58:09 +11:00

Don't generalize XYPOS just yet

It was ill-advised.
This commit is contained in:
Virgil Dupras 2020-05-15 14:07:22 -04:00
parent db9885b8cf
commit 1597f1e131
6 changed files with 6 additions and 5 deletions

View File

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

View File

@ -7,8 +7,8 @@ WORDBUF is the buffer used by WORD
BOOT C< PTR is used when Forth boots from in-memory BOOT C< PTR is used when Forth boots from in-memory
source. See "Initialization sequence" below. 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.

View File

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

View File

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

Binary file not shown.

View File

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