neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor optimization

This commit is contained in:
Devine Lu Linvega 2024-03-18 21:00:15 -07:00
parent 650ba6fad9
commit bcd43c8e2e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/left.tal
View File

@ -1242,10 +1242,10 @@
@<draw-glyph-ascii> ( char -- )
[ LITr -Screen/x ] DEI2r
( glyph* ) #00 OVR #20 SUB #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
( width* ) #0000 ROT ;font ADD2 LDA STHk
( width* ) [ LIT2r 0000 STH LIT2r =font ] ADD2r LDAr DUPr
( draw2 ) [ LIT2 &color 01 -Screen/sprite ]
( draw1 ) [ LITr 08 LTHr JMPr DEOk ] DEO
STH2r ADD2 .Screen/x DEO2
ADD2r [ LITr -Screen/x ] DEO2r
JMP2r
@<draw-glyph-icon> ( length* addr* -- )