mirror of
https://github.com/forth-ev/VolksForth.git
synced 2025-01-21 15:32:26 +00:00
Atari ST: another optimization to STtype
This commit is contained in:
parent
ab51e3cd01
commit
c30e4f24e8
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
@ -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 ;
|
||||
|
Loading…
x
Reference in New Issue
Block a user