1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 19:48:06 +11:00

sms: use CELL! directly in Pad driver

This commit is contained in:
Virgil Dupras 2020-11-16 09:19:55 -05:00
parent b1e162b8a3
commit 74d2a5d722

View File

@ -105,7 +105,7 @@ CREATE _ '0' C, ':' C, 'A' C, '[' C, 'a' C, 0xff C,
0x08 ( RIGHT ) OVER AND NOT IF 5 _sel +! THEN 0x08 ( RIGHT ) OVER AND NOT IF 5 _sel +! THEN
0x10 ( BUTB ) OVER AND NOT IF _nxtcls THEN 0x10 ( BUTB ) OVER AND NOT IF _nxtcls THEN
( update sel in VDP ) ( update sel in VDP )
_chk _sel C@ (emit) -1 XYPOS +! _chk _sel C@ XYPOS @ CELL!
( return whether any of the high 3 bits is low ) ( return whether any of the high 3 bits is low )
0xe0 AND 0xe0 < 0xe0 AND 0xe0 <
; ;