fix selection erasing
This commit is contained in:
parent
2f706d73c8
commit
c02eebd096
5
term.tal
5
term.tal
|
@ -282,10 +282,11 @@
|
||||||
( uses the existing .Screen/x and .Screen/y )
|
( uses the existing .Screen/x and .Screen/y )
|
||||||
( returns them to their starting values when finished )
|
( returns them to their starting values when finished )
|
||||||
@erase-fg-cell ( -> )
|
@erase-fg-cell ( -> )
|
||||||
#40 .Screen/sprite DEO ( ; s/s<-40 )
|
;cp437/nul .Screen/addr DEO2 ( ; use nul character to erase )
|
||||||
|
#43 .Screen/sprite DEO ( ; s/s<-40 )
|
||||||
.Screen/y DEI2k STH2k ( zp^ y* [y*] )
|
.Screen/y DEI2k STH2k ( zp^ y* [y*] )
|
||||||
#0004 ADD2 ROT DEO2 ( [y*] ; s/y<-y+4 )
|
#0004 ADD2 ROT DEO2 ( [y*] ; s/y<-y+4 )
|
||||||
#40 .Screen/sprite DEO STH2r ( y* ; s/s<-40 )
|
#43 .Screen/sprite DEO STH2r ( y* ; s/s<-40 )
|
||||||
.Screen/y DEO2 JMP2r ( ; s/y<-y )
|
.Screen/y DEO2 JMP2r ( ; s/y<-y )
|
||||||
|
|
||||||
@draw-border ( -> )
|
@draw-border ( -> )
|
||||||
|
|
Loading…
Reference in New Issue