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

Atari ST: Version 3.81.2 bugfix in STType

Browse Source
This commit is contained in:
Carsten Strotmann 2020-07-22 00:51:54 +02:00
parent 41f73f881b
commit dd58036729
3 changed files with 5 additions and 5 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

BIN
AtariST/volks4th.prg
View File

Binary file not shown.

8
sources/AtariST/FORTH83.fth
View File

@ -33,7 +33,7 @@ Target definitions here!
cr .unresolved ' .blk is .status cr .unresolved ' .blk is .status
\ *** Block No. 2 Hexblock 2 \ *** Block No. 2 Hexblock 2
\ FORTH Preamble and ID cas201301 \ FORTH Preamble and ID cas202007
Assembler Assembler
0 FP D) jmp here 2- >label >cold 0 FP D) jmp here 2- >label >cold
@ -41,10 +41,10 @@ Assembler
here dup origin! here dup origin!
\ Initial cold-start values for user variables \ Initial cold-start values for user variables
0 # D6 move D6 reg) jmp \ F<EFBFBD>r multitasker 0 # D6 move D6 reg) jmp \ for multitasker
$100 allot $100 allot
| Create logo ," volksFORTH-83 rev. 3.85.1" | Create logo ," volksFORTH-83 rev. 3.85.2"
@ -2147,7 +2147,7 @@ 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 .b A0 ) D1 move FP A7 -) lmove D3 DO D6 reg) A0 lea .b A0 ) D1 move FP A7 -) lmove
.w D1 A7 -) move 5 # A7 -) move 3 # A7 -) move .w $FF D1 andi .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 ;