diff options
author | B. Watson <yalhcru@gmail.com> | 2016-02-17 23:47:59 -0500 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2016-02-17 23:47:59 -0500 |
commit | 3abf7993ce2d2deb1c0596f3404b2bfa27324564 (patch) | |
tree | 67b4cb01fb3b303a14edf41f6ffa56243d33af3a /conio/revers.s | |
parent | b2f7604ac51db075201ea0aa40d002d3d5e7e071 (diff) | |
download | taipan-3abf7993ce2d2deb1c0596f3404b2bfa27324564.tar.gz |
make the cursor behave *much* better, via custom conio function
Diffstat (limited to 'conio/revers.s')
-rw-r--r-- | conio/revers.s | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/conio/revers.s b/conio/revers.s new file mode 100644 index 0000000..7195039 --- /dev/null +++ b/conio/revers.s @@ -0,0 +1,28 @@ +; +; Ullrich von Bassewitz, 07.08.1998 +; +; 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 |