6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-05-31 15:41:34 +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 $0001 | constant RomBank
create xed-banks 1 c, $ff c, \ first and last RAM bank xed uses.
| Code (xed? ( -- n ) | Code (xed? ( -- f )
$c000 lda pha $c003 lda Push jmp end-code $4c # lda $c000 cmp 0= ?[ $c003 cmp 0= ?[ $c006 cmp 0= ?[
Push0A jmp ]? ]? ]? txa Push0A jmp end-code
| Code (xed ( -- ) | Code (xed ( -- )
2 # ldx $ff # ldy xed-banks ldx xed-banks 1+ ldy $c003 jsr
$4 lda 0= ?[ $c000 jsr ][ $c003 jsr ]?
xyNext jmp end-code xyNext jmp end-code
: xed ( -- ) : xed ( -- )
bl word count $4 c! $2 ! bl word count $4 ! $2 ! RomBank c@ $d RomBank c!
RomBank c@ $d RomBank c! (xed? IF (xed RomBank c! ELSE RomBank c! ." no x16edit" THEN ;
(xed? $4c4c = IF (xed RomBank c!
ELSE RomBank c! ." no x16edit" THEN ;