M etc/cream.uf2 => etc/cream.uf2 +0 -0
M src/assets.tal => src/assets.tal +8 -9
@@ 19,8 19,8 @@
0000 0000 0000 0000 000f 0800 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0402 0509 0606 0803 0505 0806 0306 0206
-0605 0606 0606 0606 0606 0303 0405 0406
-0908 0707 0706 0608 0702 0407 060a 0708
+0605 0606 0706 0606 0606 0303 0405 0406
+0908 0707 0706 0607 0703 0407 070a 0708
0709 0807 0608 080c 0808 0704 0604 0505
0307 0606 0707 0506 0704 0406 030c 0806
0707 0606 0508 070b 0607 0605 0305 0708
@@ 103,17 103,17 @@
0000 0000 0000 0000 0000 0000 0000 0000
0000 00f8 8080 80f0 8080 8080 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0038 4480 808e 8282 4438 0000 0000
+0000 0038 4480 808c 8484 443c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0084 8484 84fc 8484 8484 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0080 8080 8080 8080 8080 0000 0000
+0000 0040 4040 4040 4040 4040 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0020 2020 2020 2020 2020 4080 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0084 8890 a0c0 a090 8884 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0080 8080 8080 8080 84f8 0000 0000
+0000 0080 8080 8080 8080 82fc 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0080 c1c1 a2a2 9494 8888 0000 0000
0000 0080 8080 8080 8080 8080 0000 0000
@@ 139,7 139,7 @@
0000 0020 2040 4040 8080 0000 0000 0000
0000 0082 4444 2810 2844 4482 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0082 8244 2810 1010 1010 0000 0000
+0000 0082 4444 2810 1010 1010 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 00fc 0408 1020 4080 82fc 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
@@ 159,13 159,13 @@
0000 0000 0000 0000 0000 0000 0000 0000
0000 0080 80b0 c888 8888 90e0 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 0038 4080 8088 9060 0000 0000
+0000 0000 0030 4880 8088 9060 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0008 0838 4888 8898 aa4c 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0018 2448 5064 c830 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
-0000 0000 3040 40f0 4040 4040 4040 4040
+0000 0000 3040 40f0 4040 4040 4040 4000
0000 0000 0000 0000 0000 0000 0000 0000
0000 0000 0038 4888 8898 a848 0810 6000
0000 0000 0000 0000 0000 0000 0000 0000
@@ 216,7 216,6 @@
0000 0000 0000 6092 0c00 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 0000
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
-0000 0000 0000 0000 0000 0000 0000 0000
@font-fixed ( monaco12 )
0000 0707 0707 0707 070e 0707 0707 0707
M src/left.tal => src/left.tal +16 -14
@@ 823,30 823,30 @@ JMP2
@draw-token ( str* -- str* )
;get-color JSR2 STH
- ;is-bold JSR2 ;draw-ufx/bold STA
+ ;is-ul JSR2 ;draw-ufx/ul STA
&w
;is-selected JSR2 STH
- LDAk STH2kr #08 ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
+ LDAk STH2kr #09 ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
INC2 LDAk #20 GTH ,&w JCN
- #00 ;draw-ufx/bold STA
+ #00 ;draw-ufx/ul STA
&w2
;is-selected JSR2 STH
- LDAk STH2kr #08 ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
+ LDAk STH2kr #09 ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
INC2 LDAk #21 LTH ,&w2 JCN
POPr
JMP2r
-@is-bold ( addr* -- addr* bool )
+@is-ul ( addr* -- addr* bool )
- LDAk LIT ", EQU ,&bold JCN
- LDAk LIT ": EQU ,&bold JCN
- LDAk LIT "; EQU ,&bold JCN
- LDAk LIT ". EQU ,&bold JCN
+ LDAk LIT ", EQU ,&pass JCN
+ LDAk LIT ": EQU ,&pass JCN
+ LDAk LIT "; EQU ,&pass JCN
+ LDAk LIT ". EQU ,&pass JCN
#00
JMP2r
- &bold #01 JMP2r
+ &pass #01 JMP2r
@is-selected ( addr* -- addr* bool )
@@ 898,16 898,18 @@ JMP2r
&seg ( width addr* -- )
.Screen/addr DEO2
- STHk #00 SWP .Screen/x DEI2 DUP2 ,&anchor STR2 ADD2
+ STHk #00 SWP .Screen/x DEI2
+ DUP2 ,&anchor STR2
+ ADD2
[ LIT &color $1 ] .Screen/sprite DEOk
STHkr #09 LTH [ JMP DEOk POP2 ]
-
- [ LIT &bold $1 ] #00 EQU ,&no-bold JCN
+ ( underline )
+ [ LIT &ul $1 ] #00 EQU ,&no-ul JCN
[ LIT2 &anchor $2 ] .Screen/x DEO2
;underline-icn .Screen/addr DEO2
,&color LDR #03 AND #05 MUL .Screen/sprite DEOk
STHkr #09 LTH [ JMP DEOk POP2 ]
- &no-bold
+ &no-ul
POPr
.Screen/x DEO2