Atari ST: another optimization to STtype

2020-07-22 11:17:15 +02:00 · 2020-07-22 11:17:15 +02:00 · c30e4f24e8
parent ab51e3cd01
commit c30e4f24e8
4 changed files with 2 additions and 2 deletions
--- a/AtariST/4THCORE.PRG
+++ b/AtariST/4THCORE.PRG
--- a/AtariST/FORTH83.FB
+++ b/AtariST/FORTH83.FB
--- a/AtariST/volks4th.prg
+++ b/AtariST/volks4th.prg
--- a/sources/AtariST/FORTH83.fth
+++ b/sources/AtariST/FORTH83.fth
@ -2146,7 +2146,7 @@ Input:  keyboard    [ here input ! ]
 Code STtype   ( addr len -- )                                   
   SP )+ D3 move   SP )+ D6 move   D3 tst  0<>                  
   IF   D3 out R#) add   1 D3 subq                              
-     D3 DO   D6 reg) A0 lea  .l D1 clr  .b A0 ) D1 move         
+     D3 DO   D6 reg) A0 lea  0 D1 moveq  .b A0 ) D1 move        
 FP A7 -) lmove .w  D1 A7 -) move  5 # A7 -) move  3 # A7 -) move
        $0D trap   6 A7 addq    1 D6 addq   A7 )+ FP lmove  LOOP
   THEN   ;c:  pause ;