6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-06-14 16:29:26 +00:00
Code Issues Projects Releases Wiki Activity

Atari ST: STtype optimization

Browse Source
This commit is contained in:
Carsten Strotmann 2020-07-22 10:15:38 +02:00
parent dd58036729
commit e7480c864c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
AtariST/FORTH83.FB
View File

File diff suppressed because one or more lines are too long

4
sources/AtariST/FORTH83.fth
View File

@ -2146,8 +2146,8 @@ 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 .b A0 ) D1 move FP A7 -) lmove
.w $FF D1 andi .w D1 A7 -) move 5 # A7 -) move 3 # A7 -) move
D3 DO D6 reg) A0 lea .l D1 clr .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 ;