mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-10 05:29:31 +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 -- )
|
Code STtype ( addr len -- )
|
||||||
SP )+ D3 move SP )+ D6 move D3 tst 0<>
|
SP )+ D3 move SP )+ D6 move D3 tst 0<>
|
||||||
IF D3 out R#) add 1 D3 subq
|
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
|
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
|
$0D trap 6 A7 addq 1 D6 addq A7 )+ FP lmove LOOP
|
||||||
THEN ;c: pause ;
|
THEN ;c: pause ;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user