6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-01 13:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Add BEL->beep functionality

Browse Source
This commit is contained in:
Wayne Parham 2021-06-12 06:17:03 -05:00
parent 9e6c1d1303
commit c9bb1483ac
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
libsrc/sym1/write.s
View File

@ -7,7 +7,7 @@
.include "sym1.inc"
.import popax, popptr1
.importzp ptr1, ptr2, ptr3, tmp1
.importzp ptr1, ptr2, ptr3
.export _write
@ -28,12 +28,15 @@ begin: dec ptr2
dec ptr2+1
beq done
outch : ldy #0
outch: ldy #0
lda (ptr1),y
jsr OUTCHR ; Send character using Monitor call
cmp #$0A
bne next
lda #$0D ; If it is LF, add CR
cmp #$07 ; Check for '\a'
bne chklf ; ...if BEL character
jsr BEEP ; Make beep sound
chklf: cmp #$0A ; Check for 'n'
bne next ; ...if LF character
lda #$0D ; Add a carriage return
jsr OUTCHR
next: inc ptr1