From 1074d35a1579ae1a6cc334455c0391fec6da416a Mon Sep 17 00:00:00 2001
From: Fabrizio Caruso <fabrizio_caruso@hotmail.com>
Date: Wed, 16 Oct 2019 23:22:41 +0200
Subject: [PATCH 078/170] remove bra
---
libsrc/lynx/cgetc.s | 32 +++++++++++++++-----------------
1 file changed, 15 insertions(+), 17 deletions(-)
diff --git a/libsrc/lynx/cgetc.s b/libsrc/lynx/cgetc.s
index c81afa82..ee489337 100644
--- a/libsrc/lynx/cgetc.s
+++ b/libsrc/lynx/cgetc.s
@@ -21,49 +21,47 @@
_cgetc:
jsr _kbhit ; Check for char available
- bne @L1
- bra _cgetc
-@L1:
+ beq _cgetc
lda KBSTL
ora KBEDG
ldx #0
and #1
- beq @L6
+ beq @L5
lda KBEDG ; Pause button is pressed
and #$0c
- beq @L3
+ beq @L2
ora KBSTL
-@L2:
+@L1:
bit #$04
- beq @L4 ; Pause + Opt 1 = Reset
+ beq @L3 ; Pause + Opt 1 = Reset
bit #$08
- beq @L5 ; Pause + Opt 2 = Flip
+ beq @L4 ; Pause + Opt 2 = Flip
lda #'?' ; All buttons pressed
rts
-@L3:
+@L2:
lda KBSTL ; Pause alone was the last placed button
and #$0c
- bne @L2
+ bne @L1
lda #'P' ; Pause pressed
rts
-@L4:
+@L3:
lda #'R' ; Reset pressed
rts
-@L5:
+@L4:
lda #'F' ; Flip pressed
rts
-@L6:
+@L5:
lda KBEDG ; No Pause pressed
ora KBSTL
bit #$08
- beq @L8
- bit #$04
beq @L7
+ bit #$04
+ beq @L6
lda #'3' ; opt 1 + opt 2 pressed
rts
-@L7:
+@L6:
lda #'1' ; opt 1 pressed
rts
-@L8:
+@L7:
lda #'2' ; opt 2 pressed
rts
--
2.26.0