Apple-2gs-SW/marlene
1
0
Fork 0
mirror of https://github.com/ksherlock/marlene.git synced 2025-01-02 23:30:11 +00:00
Code Issues Projects Releases Wiki Activity

fix a bug.

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

4
vt100.c
View File

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