aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--conio/Makefile4
-rw-r--r--conio/revers.s33
-rw-r--r--console.s6
3 files changed, 6 insertions, 37 deletions
diff --git a/conio/Makefile b/conio/Makefile
index b3cd9a3..7e42b7c 100644
--- a/conio/Makefile
+++ b/conio/Makefile
@@ -1,9 +1,9 @@
all: conio.lib
-OBJS=cgetc.o chline.o cputc.o cputs.o cvline.o revers.o
+OBJS=cgetc.o chline.o cputc.o cputs.o cvline.o
# unused, disabled:
-# clrscr.o gotox.o gotoxy.o gotoy.o wherex.o wherey.o
+# clrscr.o gotox.o gotoxy.o gotoy.o wherex.o wherey.o revers.o
conio.lib: $(OBJS)
ar65 a conio.lib *.o
diff --git a/conio/revers.s b/conio/revers.s
deleted file mode 100644
index a04a969..0000000
--- a/conio/revers.s
+++ /dev/null
@@ -1,33 +0,0 @@
-;
-; Ullrich von Bassewitz, 07.08.1998
-
-; modified version for taipan, which doesn't actually
-; call revers() any more. only _revflag is needed, see
-; rvs_on() and rvs_off() in console.s.
-
-;
-; unsigned char revers (unsigned char onoff);
-;
- .include "atari.inc"
-
-; .export _revers
- .export _revflag
-
-;_revers:
-; ldx #$00 ; Assume revers off
-; tay ; Test onoff
-; beq L1 ; Jump if off
-; ldx #$80 ; Load on value
-;L1: ldy #$00 ; Assume old value is zero
-; lda _revflag ; Load old value
-; stx _revflag ; Set new value
-; beq L2 ; Jump if old value zero
-; iny ; Make old value = 1
-;L2: ldx #$00 ; Load high byte of result
-; tya ; Load low byte, set CC
-; rts
-
- .bss
-
-_revflag:
- .res 1
diff --git a/console.s b/console.s
index 50fe3ed..a1fa4d1 100644
--- a/console.s
+++ b/console.s
@@ -13,9 +13,9 @@
.export _rvs_on, _rvs_off
.export _prepare_report, _clear_msg_window
.export _print_status_desc, _print_month
+ .export _revflag
- .importzp tmp3 ; ditto
- .import _revflag ; conio/revers.s
+ .importzp tmp3
.import bump_destptr ; these two are
.importzp destptr ; from draw_lorcha.s
.importzp sreg
@@ -417,3 +417,5 @@ months:
.byte $ce, $ef, $f6, $00
.byte $c4, $e5, $e3, $00
+ .bss
+_revflag: .res 1