6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-28 06:30:16 +00:00
Code Issues Projects Releases Wiki Activity

Added BEL -> beep() functionality

Browse Source
This commit is contained in:
Wayne Parham 2021-06-10 16:07:39 -05:00
parent 7d6541274d
commit 24f5bac899
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libsrc/sym1/read.s
View File

@ -30,10 +30,13 @@ begin: dec ptr2
getch: jsr INTCHR ; Get character using Monitor ROM call getch: jsr INTCHR ; Get character using Monitor ROM call
jsr OUTCHR ; Echo it jsr OUTCHR ; Echo it
and #$7F ; Clear hi bit and check for '\r' and #$7F ; Clear hi bit
cmp #$0D cmp #$07 ; Check for '\a'
bne putch bne chkcr ; ...if BEL character
lda #$0A ; Replace with '\n' and set count to zero jsr BEEP ; Make beep sound
chkcr: cmp #$0D ; Check for '\r'
bne putch ; ...if CR character
lda #$0A ; Replace with '\n'
putch: ldy #$00 ; Put char into return buffer putch: ldy #$00 ; Put char into return buffer
sta (ptr1),y sta (ptr1),y