draw to bg not fg

This commit is contained in:
~d6 2023-01-31 22:30:13 -05:00
parent 2a4b56750d
commit 1e30400f29
1 changed files with 8 additions and 9 deletions

View File

@ -181,7 +181,7 @@
;cells STH2 ( [addr*] )
#0000 &yloop ( y* [addr*] y* )
#0000 &xloop ( y* x* [addr*] )
#4220 STH2kr STA2 ( y* x* [addr*] )
#0220 STH2kr STA2 ( y* x* [addr*] )
INC2r INC2r ( y* x* [addr+2*] )
INC2 DUP2 .cols LDZ2 ( y* x+1* x+1* cols* [addr+2*] )
LTH2 ?&xloop ( y* x+1* [addr+2*] )
@ -520,7 +520,7 @@
@erase ( start* end* -> )
EQU2k ?&skip ( start* end* )
OVR2 SWP2 ( start* start* end* )
SUB2 STH2 #4220 SWP2 ( 4220 start* [count*] )
SUB2 STH2 #0220 SWP2 ( 4220 start* [count*] )
&loop ( 4220 addr* [i*] )
STA2k INC2 INC2 INC2r INC2r ( 4220 addr+2* [i+1*] )
ORAkr STHr ?&loop ( 4220 addr+2* [i+2*] )
@ -696,7 +696,7 @@
&loop ( bound* pos* [i*] )
LDA2k OVR2 STH2kr ADD2 ( bound* pos* x* pos+i* [i*] )
STA2 ( bound* pos* [i*] ; pos+i<-x )
#4220 OVR2 STA2 ( bound* pos* [i*] ; pos<-4220 )
#0220 OVR2 STA2 ( bound* pos* [i*] ; pos<-4220 )
#0002 SUB2 ( bound* pos-2* [i*] )
GTH2k #00 EQU ?&loop ( bound* pos-2* [i*] )
POP2 POP2 POP2r ( )
@ -716,7 +716,7 @@
POP2 POP2 POP2r ( [n*] )
&replace ( [n*] )
LIT2r 0000 SWP2r SUB2r ( [-n*] )
#4220 cur-addr ( 4220 cur* [-n*] )
#0220 cur-addr ( 4220 cur* [-n*] )
&loop2 ( 4220 pos* [-i*] )
STA2k INC2 INC2 INC2r ( 4220 pos+2* [-i+1*] )
ORAkr STHr ?&loop2 ( 4220 pos+2* [-i+1*] )
@ -730,7 +730,7 @@
cur-addr ( limit* start* [i*] )
&loop ( limit* pos* [n*] )
DUP2 STH2kr ADD2 LDA2k ( limit* pos* pos+i* x* [i*] )
#4220 ROT2 STA2 ( limit* pos* x* [i*] ; pos+i<-4220 )
#0220 ROT2 STA2 ( limit* pos* x* [i*] ; pos+i<-4220 )
OVR2 STA2 INC2 INC2 ( limit* pos+2* [i*] ; pos<-x )
GTH2k ?&loop ( limit* pos+2* [i*] )
POP2 POP2 POP2r ( )
@ -747,7 +747,7 @@
limit-addr STH2
;cells .col-bytes LDZ2 ADD2 STH2
&loop
STH2kr LDA2 #4220 STH2kr STA2
STH2kr LDA2 #0220 STH2kr STA2
STH2kr .col-bytes LDZ2 SUB2 STA2
INC2r INC2r GTH2kr STHr ?&loop
POP2r POP2r
@ -768,14 +768,13 @@
.attr LDZ
DUP #80 LTH ?&ok
#80 EOR DUP #02 SFT SWP #20 SFT #0c AND ORA
&ok #40 ORA
.tint STZ JMP2r
&ok .tint STZ JMP2r
@reverse-tint ( tint^ -> tint^ )
#0f AND ( x=tint&0f )
DUP #02 SFT SWP ( x>>2 x )
#03 AND #20 SFT ( x>>2 (x&3)<<2 )
ORA #40 ORA ( res=40|x>>2|(x&3)<<2 )
ORA ( res=40|x>>2|(x&3)<<2 )
JMP2r ( res^ )
( cell* = tint^ c^ )