6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-02-16 21:30:59 +00:00
Code Issues Projects Releases Wiki Activity

Adapt trace.fth, 6502asm.fth and trns6502asm.fth to being loaded with INCLUDE

Browse Source
This commit is contained in:
Philip Zembrod 2020-08-11 00:27:03 +02:00
parent 50289572c8
commit dfce80a5d6
3 changed files with 15 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
6502/C64/src/6502asm.fth
View File

@ -6,25 +6,6 @@
Onlyforth Assembler also definitions Onlyforth Assembler also definitions
1 7 +thru
-3 +load \ Makros: rom ram sys
Onlyforth
\ *** Block No. 6, Hexblock 6 \ *** Block No. 6, Hexblock 6
@ -49,11 +30,6 @@ $8080 , $1C0C , $801C , $2C80 ,
6 Mode: )Y $F Mode: ) 6 Mode: )Y $F Mode: )
\ *** Block No. 7, Hexblock 7 \ *** Block No. 7, Hexblock 7
\ upmode cpu 20oct87re \ upmode cpu 20oct87re
@ -109,7 +85,6 @@ $0480 $14 m/cpu jsr $8480 $40 m/cpu jmp
$0484 $20 m/cpu bit $0484 $20 m/cpu bit
\ *** Block No. 9, Hexblock 9 \ *** Block No. 9, Hexblock 9
\ Assembler conditionals 20oct87re \ Assembler conditionals 20oct87re
@ -136,8 +111,6 @@ $0484 $20 m/cpu bit
: ]]? ( REPEAT) jmp ]? ; : ]]? ( REPEAT) jmp ]? ;
\ *** Block No. 10, Hexblock a \ *** Block No. 10, Hexblock a
\ Assembler conditionals 20oct87re \ Assembler conditionals 20oct87re
@ -155,17 +128,6 @@ $50 Constant VS $70 Constant VC
: bcs CC ?] ; : bvs VC ?] ; : bcs CC ?] ; : bvs VC ?] ;
\ *** Block No. 11, Hexblock b \ *** Block No. 11, Hexblock b
\ 2inc/2dec winc/wdec 20oct87re \ 2inc/2dec winc/wdec 20oct87re
@ -188,12 +150,6 @@ $50 Constant VS $70 Constant VC
recover jsr end-code ] 0 last ! 0 ; recover jsr end-code ] 0 last ! 0 ;
\ *** Block No. 12, Hexblock c \ *** Block No. 12, Hexblock c
\ ;code Code code> bp/re03feb85 \ ;code Code code> bp/re03feb85
@ -220,3 +176,8 @@ immediate
: Label : Label
[ Assembler ] here >label Assembler ; [ Assembler ] here >label Assembler ;
\ TODO(pzembrod): enable once rom-ram-sys.fth works with include
\ include rom-ram-sys.fth \ Makros: rom ram sys
Onlyforth

48
6502/C64/src/tracer.fth
View File

@ -4,26 +4,17 @@
Onlyforth Onlyforth
\needs Code -$2B +load \ Trans Assembler \needs Code include trns6502asm.fth
\needs Tools Vocabulary Tools \needs Tools Vocabulary Tools
Tools also definitions Tools also definitions
1 6 +thru \ Tracer \ This nice Forth Tracer has been
7 8 +thru \ Tools for decompiling \ developed by B. Pennemann and co
\ for Atari ST. CL Vogt has ported it
Onlyforth \ back to the volksForth 6502 C-16 and
\ C-64
\\
This nice Forth Tracer has been
developed by B. Pennemann and co
for Atari ST. CL Vogt has ported it
back to the volksForth 6502 C-16 and
C-64
\ *** Block No. 48, Hexblock 30 \ *** Block No. 48, Hexblock 30
@ -45,15 +36,6 @@ Only Forth also Tools also definitions
| Variable last' | Variable #spaces | Variable last' | Variable #spaces
\ *** Block No. 49, Hexblock 31 \ *** Block No. 49, Hexblock 31
\ tracer:cpush oneline cas16aug06 \ tracer:cpush oneline cas16aug06
@ -78,10 +60,6 @@ Only Forth also Tools also definitions
3+ ip> ! ; 3+ ip> ! ;
\ *** Block No. 50, Hexblock 32 \ *** Block No. 50, Hexblock 32
\ tracer:step tnext clv04aug87 \ tracer:step tnext clv04aug87
@ -106,10 +84,6 @@ Label tnext IP 2inc
W lda (W sta W 1+ lda (W 1+ sta W lda (W sta W 1+ lda (W 1+ sta
\ *** Block No. 51, Hexblock 33 \ *** Block No. 51, Hexblock 33
\ tracer:..tnext clv12oct87 \ tracer:..tnext clv12oct87
@ -132,12 +106,6 @@ Label tnext IP 2inc
['] oneline Is 'quit quit ; ['] oneline Is 'quit quit ;
\ *** Block No. 52, Hexblock 34 \ *** Block No. 52, Hexblock 34
\ tracer:do-trace traceable cas16aug06 \ tracer:do-trace traceable cas16aug06
@ -165,7 +133,6 @@ end-code
quit ; quit ;
\ *** Block No. 53, Hexblock 35 \ *** Block No. 53, Hexblock 35
\ tracer:User-Words cas16aug06 \ tracer:User-Words cas16aug06
@ -242,3 +209,6 @@ Onlyforth Tools also definitions
( used for : ) ( used for : )
( Name String Literal Dump Clit Branch ) ( Name String Literal Dump Clit Branch )
( - - - - - - ) ( - - - - - - )
Onlyforth

2
6502/C64/src/trns6502asm.fth
View File

@ -8,7 +8,7 @@
here $800 hallot heap dp ! here $800 hallot heap dp !
1 +load include 6502asm.fth
dp ! dp !