nilix/taro
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix mbox refresh

Browse source
This commit is contained in:
Iris Lightshard 2023-03-18 10:28:53 -06:00
parent ebcb266638
commit 883686d4a2
Signed by: Iris Lightshard
GPG key ID: 3B7FBC22144E6398
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
taro-ls.tal
View file

@ -449,14 +449,14 @@ JMP2r
#00 ,&chr STR #00 ,&chr STR
STHk STHk
( clear the previous selection with null bytes )
#ff #00 &clear_mbox EQUk ,&ready JCN #ff #00 &clear_mbox EQUk ,&ready JCN
#00 #00 ROTk ;selected_mbox ADD2 #0000 SWP2 STA DUP #00 SWP ;selected_mbox ADD2 #00 ROT ROT STA
INC ,&clear_mbox JMP &ready POP2 INC ,&clear_mbox JMP &ready POP2
( get position of the current selection )
( bytes ) LDZ2 #0000 &while EQU2k ,&end JCN ( bytes ) LDZ2 #0000 &while EQU2k ,&end JCN
STHkr LB_SELECT_IDX LDZ2 ,&idx LDR2 EQU2 ,&write_str JCN STHkr LB_SELECT_IDX LDZ2 ,&idx LDR2 EQU2 ,&write_str JCN
;debug_mbox_search debug
DUP2 print
DUP2 STHkr LB_DATA LDZ2 ADD2 LDA #0a EQU ,&inc JCN DUP2 STHkr LB_DATA LDZ2 ADD2 LDA #0a EQU ,&inc JCN
INC2 ,&while JMP INC2 ,&while JMP
&inc ,&idx LDR2 INC2 ,&idx STR2 INC2 ,&while JMP &inc ,&idx LDR2 INC2 ,&idx STR2 INC2 ,&while JMP
@ -464,13 +464,13 @@ JMP2r
&idx $2 &idx $2
&chr $1 &chr $1
( copy the current selection to the buffer )
&write_str STHkr LB_DATA LDZ2 ADD2 &write_str STHkr LB_DATA LDZ2 ADD2
&loop LDAk #0a EQU ,&end JCN &loop LDAk #0a EQU ,&end JCN
LDAk [ ;selected_mbox #00 ,&chr LDR ADD2 ] STA LDAk [ ;selected_mbox #00 ,&chr LDR ADD2 ] STA
,&chr LDR INC ,&chr STR INC2 ,&loop JMP ,&chr LDR INC ,&chr STR INC2 ,&loop JMP
&end &end
;selected_mbox debug
POP2 POP2 POP2 POP2
POPr POPr
#01 .Console/write DEO #01 .Console/write DEO