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:
parent
db9885b8cf
commit
1597f1e131
4
blk/081
4
blk/081
@ -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
|
||||||
|
4
blk/083
4
blk/083
@ -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.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
1
blk/393
1
blk/393
@ -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 ;
|
||||||
|
1
blk/623
1
blk/623
@ -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,
|
||||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user