From 9924af3593c304ed04430b4b9650fc2744a7978a Mon Sep 17 00:00:00 2001 From: neauoire Date: Sun, 5 Nov 2023 11:07:56 -0800 Subject: [PATCH] (screen.blending.tal) Added 1bpp demo --- projects/examples/devices/screen.blending.tal | 24 +++++++++++++------ 1 file changed, 17 insertions(+), 7 deletions(-) diff --git a/projects/examples/devices/screen.blending.tal b/projects/examples/devices/screen.blending.tal index 0b32871..81fffca 100644 --- a/projects/examples/devices/screen.blending.tal +++ b/projects/examples/devices/screen.blending.tal @@ -12,20 +12,30 @@ #f0b2 .System/b DEO2 ( | size ) #0080 .Screen/width DEO2 - #008c .Screen/height DEO2 + #010c .Screen/height DEO2 ( | background ) #f2 .Screen/auto DEO ;check-icn .Screen/addr DEO2 - #ee × #02 .Screen/sprite DEO - INC DUP ?× - POP - ( | circles ) + #2200 + × ( -- ) + #02 .Screen/sprite DEO + INC GTHk ?× + POP2 + ( | 1bpp ) #1000 - &l ( -- ) + &l1 ( -- ) #00 OVR #03 AND #50 SFT2 #0008 ADD2 .Screen/x DEO2 #00 OVR #02 SFT #50 SFT2 #0008 ADD2 .Screen/y DEO2 + DUP #80 ORA #0f AND + INC GTHk ?&l1 + POP2 + ( | 2bpp ) + #1000 + &l2 ( -- ) + #00 OVR #03 AND #50 SFT2 #0008 ADD2 .Screen/x DEO2 + #00 OVR #02 SFT #50 SFT2 #0088 ADD2 .Screen/y DEO2 DUP #80 ORA - INC GTHk ?&l + INC GTHk ?&l2 POP2 BRK @ ( color -- )