6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-13 08:25:28 +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
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" .include "sym1.inc"
.import popax, popptr1 .import popax, popptr1
.importzp ptr1, ptr2, ptr3, tmp1 .importzp ptr1, ptr2, ptr3
.export _write .export _write
@@ -28,12 +28,15 @@ begin: dec ptr2
dec ptr2+1 dec ptr2+1
beq done beq done
outch : ldy #0 outch: ldy #0
lda (ptr1),y lda (ptr1),y
jsr OUTCHR ; Send character using Monitor call jsr OUTCHR ; Send character using Monitor call
cmp #$0A cmp #$07 ; Check for '\a'
bne next bne chklf ; ...if BEL character
lda #$0D ; If it is LF, add CR jsr BEEP ; Make beep sound
chklf: cmp #$0A ; Check for 'n'
bne next ; ...if LF character
lda #$0D ; Add a carriage return
jsr OUTCHR jsr OUTCHR
next: inc ptr1 next: inc ptr1