empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove bra

Browse source
This commit is contained in:
Fabrizio Caruso 2019-10-16 23:22:41 +02:00 • committed by greg-king5
parent e4b60e1068
commit 1074d35a15
1 changed files with 15 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
libsrc/lynx/cgetc.s
View file

@ -21,49 +21,47 @@
_cgetc: _cgetc:
jsr _kbhit ; Check for char available jsr _kbhit ; Check for char available
bne @L1 beq _cgetc
bra _cgetc
@L1:
lda KBSTL lda KBSTL
ora KBEDG ora KBEDG
ldx #0 ldx #0
and #1 and #1
beq @L6 beq @L5
lda KBEDG ; Pause button is pressed lda KBEDG ; Pause button is pressed
and #$0c and #$0c
beq @L3 beq @L2
ora KBSTL ora KBSTL
@L2: @L1:
bit #$04 bit #$04
beq @L4 ; Pause + Opt 1 = Reset beq @L3 ; Pause + Opt 1 = Reset
bit #$08 bit #$08
beq @L5 ; Pause + Opt 2 = Flip beq @L4 ; Pause + Opt 2 = Flip
lda #'?' ; All buttons pressed lda #'?' ; All buttons pressed
rts rts
@L3: @L2:
lda KBSTL ; Pause alone was the last placed button lda KBSTL ; Pause alone was the last placed button
and #$0c and #$0c
bne @L2 bne @L1
lda #'P' ; Pause pressed lda #'P' ; Pause pressed
rts rts
@L4: @L3:
lda #'R' ; Reset pressed lda #'R' ; Reset pressed
rts rts
@L5: @L4:
lda #'F' ; Flip pressed lda #'F' ; Flip pressed
rts rts
@L6: @L5:
lda KBEDG ; No Pause pressed lda KBEDG ; No Pause pressed
ora KBSTL ora KBSTL
bit #$08 bit #$08
beq @L8
bit #$04
beq @L7 beq @L7
bit #$04
beq @L6
lda #'3' ; opt 1 + opt 2 pressed lda #'3' ; opt 1 + opt 2 pressed
rts rts
@L7: @L6:
lda #'1' ; opt 1 pressed lda #'1' ; opt 1 pressed
rts rts
@L8: @L7:
lda #'2' ; opt 2 pressed lda #'2' ; opt 2 pressed
rts rts