6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-26 02:49:17 +00:00
Code Issues Projects Releases Wiki Activity

Adapt xed to newest version of x16edit

Browse Source
This commit is contained in:
Philip Zembrod 2023-12-02 21:15:20 +01:00
parent 508fbfd939
commit 9eb5c5958a
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
6502/C64/src/vf-x16edit.fth
View File

@ -1,16 +1,15 @@
$0001 | constant RomBank
create xed-banks 1 c, $ff c, \ first and last RAM bank xed uses.
| Code (xed? ( -- n )
$c000 lda pha $c003 lda Push jmp end-code
| Code (xed? ( -- f )
$4c # lda $c000 cmp 0= ?[ $c003 cmp 0= ?[ $c006 cmp 0= ?[
Push0A jmp ]? ]? ]? txa Push0A jmp end-code
| Code (xed ( -- )
2 # ldx $ff # ldy
$4 lda 0= ?[ $c000 jsr ][ $c003 jsr ]?
xed-banks ldx xed-banks 1+ ldy $c003 jsr
xyNext jmp end-code
: xed ( -- )
bl word count $4 c! $2 !
RomBank c@ $d RomBank c!
(xed? $4c4c = IF (xed RomBank c!
ELSE RomBank c! ." no x16edit" THEN ;
bl word count $4 ! $2 ! RomBank c@ $d RomBank c!
(xed? IF (xed RomBank c! ELSE RomBank c! ." no x16edit" THEN ;