Apple-2gs-SW
/
marlene
mirror of https://github.com/ksherlock/marlene.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix a bug.

This commit is contained in:
Kelvin Sherlock 2018-04-21 21:42:02 -04:00
parent d120e66847
commit 49d1e9f67f
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ansi.asm
View File

@ -84,15 +84,12 @@ _d equ 1
sbc >rows,x sbc >rows,x
pha pha
; ;
; mvn: ; mvn:
; while (--a != -1) ; do { src[y++] = dest[x++]; } while (--c != 0xffff)
; dest[y++] = dest[x++];
; ;
; mvp: ; mvp:
; while(--a != -1) ; do { src[y--] = dest[x--]; } while (--c != 0xffff)
; dest[y--] = dest[x--];
@ -364,7 +361,7 @@ _d equ 1
pha ; save length pha ; save length
ldx <line2 ldx <line1
lda >rows,x lda >rows,x
tax tax
tay tay

4
vt100.c
View File

@ -35,6 +35,9 @@ int __x;
int __y; int __y;
#define __brk() asm { brk 0xea }
static unsigned saved_cursor[2]; // saved cursor position static unsigned saved_cursor[2]; // saved cursor position
static unsigned window[2]; static unsigned window[2];
static unsigned and_mask; static unsigned and_mask;
@ -373,6 +376,7 @@ static void erase_line(void) {
static void erase_screen(void) { static void erase_screen(void) {
unsigned i; unsigned i;
for (i = 0; i < parm_count; ++i) { for (i = 0; i < parm_count; ++i) {
switch(parms[i]) { switch(parms[i]) {
case 0: case 0: