@@ 794,7 794,7 @@ JMP2
@draw-textarea ( -- )
- ( clear )
+ ( fast clear )
#71 .Screen/auto DEO
#0020 .Screen/y DEO2
.Screen/height DEI2 #06 SFT2 NIP INC #00
@@ 912,7 912,7 @@ JMP2r
&basic ( char -- )
( width ) #00 SWP STH2k ;font ADD2 LDA
- ( glyph* ) ;font/glyphs STH2r #0020 SUB2 #50 SFT2 ADD2
+ ( addr* ) ;font/glyphs STH2r #0020 SUB2 #50 SFT2 ADD2
&seg ( width addr* -- )
@@ 1019,7 1019,6 @@ JMP2
#f2 .Screen/auto DEO
.textarea/lines LDZ2 NIP DUP ADD #00
&lc #00 .Screen/sprite DEO INC GTHk ,&lc JCN POP2
-
( draw )
#15 .Screen/auto DEO
.selection/from LDZ2 ;get-current-marker JSR2 ,&sel STR
@@ 1029,7 1028,7 @@ JMP2
#00 OVR #40 SFT2 #0020 ADD2 .Screen/y DEO2
DUP ;get-marker JSR2 INC2 LDA LIT "| EQU #03 MUL STH
DUP [ LIT &sel $1 ] EQU #30 SFT STHr ADD INC ;draw-chr/color STA
- DUP ;get-marker JSR2 ;draw-marker JSR2 POP2
+ DUP ;get-marker JSR2 INC2 ;draw-marker JSR2 POP2
INC GTHk ,&loop JCN
POP2