diff --git a/projects/examples/devices/screen.blending.tal b/projects/examples/devices/screen.blending.tal index 4100f5f..0b32871 100644 --- a/projects/examples/devices/screen.blending.tal +++ b/projects/examples/devices/screen.blending.tal @@ -33,23 +33,19 @@ ;circle-chr .Screen/addr DEO2 DUP .Screen/sprite DEO DUP #10 ORA .Screen/sprite DEO - .Screen/x DEI2k #0010 SUB2 ROT DEO2 .Screen/y DEI2k #0008 ADD2 ROT DEO2 DUP #20 ORA .Screen/sprite DEO DUP #30 ORA .Screen/sprite DEO @ ( color -- ) - .Screen/x DEI2k #000c SUB2 ROT DEO2 .Screen/y DEI2k #000c ADD2 ROT DEO2 #00 SWP #30 SFT ;font-icn ADD2 .Screen/addr DEO2 - #05 .Screen/sprite DEO + #09 .Screen/sprite DEO JMP2r -@check-icn - [ 0306 0c18 3060 c081 ] +@check-icn [ 0306 0c18 3060 c081 ] -@circle-chr - [ +@circle-chr [ 071f 3c70 60e3 c7c7 0000 030f 1f1f 3f3f ] @font-icn ( 0-f )