more work towards Mega65 banking support
This commit is contained in:
1 parent
734ec07afb
commit
49693f1543
26 files changed
+118
-65
No files matched your search
@@ -76,11 +76,11 @@ rsl_l1:
|
||||
|
||||
#if CONFIG_DOS_WEDGE
|
||||
cmp #$40 // '@'
|
||||
beq_far wedge_dos
|
||||
beq_16 wedge_dos
|
||||
#endif
|
||||
#if CONFIG_TAPE_WEDGE
|
||||
cmp #$1F // left arrow
|
||||
beq_far wedge_tape
|
||||
beq_16 wedge_tape
|
||||
#endif
|
||||
|
||||
#endif
|
||||
|
||||
@@ -12,11 +12,11 @@ wedge_tape:
|
||||
sta CURLIN+1 // in case of error do not print line number
|
||||
|
||||
cpx #$02
|
||||
bne_far do_SYNTAX_error
|
||||
bne_16 do_SYNTAX_error
|
||||
|
||||
lda BUF+1
|
||||
cmp #$4C // 'L'
|
||||
bne_far do_SYNTAX_error
|
||||
bne_16 do_SYNTAX_error
|
||||
|
||||
// Execute 'arrow + L'
|
||||
|
||||
|
||||
Reference in new issue
Block a user