Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-31 23:30:45 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #183 from jgharston/main

Browse Source 
Tweek to SOUND and OSWORD
This commit is contained in:
Bobbi Webber-Manners 2022-10-20 11:59:54 -04:00 committed by GitHub
commit bcecb6d7fe
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
auxmem.audio.s
View File

@ -7,7 +7,12 @@
* OSWORD &07 - Make a sound
* On entry: (OSCTRL),Y points to eight byte parameter block (2 bytes each for
* channel, amplitude, pitch, duration)
WORD07 LDA (OSCTRL),Y ; Get channel number/flush byte
WORD07 INY
LDA (OSCTRL),Y ; Get channel system bits
DEY
CMP #$20 ; Sound system is %000xxxxx:xxxxxxxx
BCS :RTS ; *TO DO* Should pass to service call
LDA (OSCTRL),Y ; Get channel number/flush byte
ORA #$04 ; Convert to buffer number 4-7
AND #$0F ; Mask off flush nybble
PHA ; Stash
@ -25,6 +30,7 @@ WORD07 LDA (OSCTRL),Y ; Get channel number/flush byte
EOR #$80
JSR KBDCHKESC ; Was Escape pressed?
BIT ESCFLAG
* ; *TO DO* Replace above with JSR ESCPOLL
BMI :ESCAPE ; If so, bail!
:NOKEY PLX ; Buffer num -> X
PHX
@ -64,7 +70,7 @@ WORD08 LDA (OSCTRL),Y ; Get envelope number
TAX
LDA #$00
:L0 CPX #$00 ; Calculate EnvNum * 13
BEQ :S1
BEQ :S1 ; Faster to do n*12+n to get n*13
CLC
ADC #13
DEX

10
auxmem.bytwrd.s
View File

@ -96,11 +96,11 @@ OSWBASE DW WORD00 ; OSWORD 0 - Read input line
DW WORD06 ; OSWORD 6 - Write I/O memory
DW WORD07 ; OSWORD 7 - SOUND
DW WORD08 ; OSWORD 8 - ENVELOPE
* DW WORD09 ; OSWORD 9 - POINT
* DW WORD0A ; OSWORD 10 - Read character bitmap
* DW WORD0B ; OSWORD 11 - Read palette
* DW WORD0C ; OSWORD 12 - Write palette
* DW WORD0D ; OSWORD 13 - Read coordinates
DW WORD09 ; OSWORD 9 - POINT
DW WORD0A ; OSWORD 10 - Read character bitmap
DW WORD0B ; OSWORD 11 - Read palette
DW WORD0C ; OSWORD 12 - Write palette
DW WORD0D ; OSWORD 13 - Read coordinates
OSWEND
DW WORDE0 ; OSWORD &E0+ - User OSWORD