mirror of https://git.sr.ht/~rabbits/left
Function to draw special characters
This commit is contained in:
parent
93320946b4
commit
434ba5077f
|
@ -30,6 +30,8 @@
|
|||
@linebreak-icn [
|
||||
0000 0000 0000 1028 1000 0000 0000 0000
|
||||
0000 0000 0000 0000 0000 0000 0000 0000 ]
|
||||
@dotdot-icn [
|
||||
0000 0000 0000 0000 0000 0048 0000 0000 ]
|
||||
@checkered-icn [
|
||||
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]
|
||||
@blinker-icn [
|
||||
|
|
12
src/left.tal
12
src/left.tal
|
@ -1224,6 +1224,13 @@
|
|||
POP2 STH2r ADD2 .Screen/x DEO2
|
||||
JMP2r
|
||||
|
||||
@<draw-short-glyph> ( length* addr* -- )
|
||||
.Screen/addr DEO2
|
||||
.Screen/x DEI2
|
||||
( ) ;<draw-utf8-glyph>/color LDA .Screen/sprite DEO
|
||||
ADD2 .Screen/x DEO2
|
||||
JMP2r
|
||||
|
||||
@<draw-navbar> ( -- )
|
||||
( | clear )
|
||||
#0090 .Screen/x DEO2
|
||||
|
@ -1299,10 +1306,7 @@
|
|||
( | rewind )
|
||||
find-prev-spacer LDA2k [ LIT2 "@| ] NEQ2 ?{ INC2 INC2 }
|
||||
&>w ( -- )
|
||||
.Screen/x DEI2 #007c LTH2 ?{
|
||||
;<draw-utf8-glyph>/color LDA ;<draw-chr>/color STA
|
||||
[ LIT2 ".. ] <draw-chr>
|
||||
<draw-chr>
|
||||
.Screen/x DEI2 #007c LTH2 ?{ #0006 ;dotdot-icn <draw-short-glyph>
|
||||
!&end }
|
||||
<draw-utf8-glyph>
|
||||
next-glyph LDAk #20 GTH ?&>w
|
||||
|
|
Loading…
Reference in New Issue