Mercurial > hg > Members > kono > nitros9-code
changeset 2652:32908c617568
Now pressing a key quits demo
sound temporarily rts's until we figure out PIC code
| author | Boisy Pitre <boisy.pitre@nuance.com> |
|---|---|
| date | Mon, 02 Apr 2012 21:54:25 -0500 |
| parents | 3f4ab32b4106 |
| children | 40d55004f686 |
| files | level1/atari/cmds/fuji.asm |
| diffstat | 1 files changed, 23 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/level1/atari/cmds/fuji.asm Mon Apr 02 21:16:21 2012 -0500 +++ b/level1/atari/cmds/fuji.asm Mon Apr 02 21:54:25 2012 -0500 @@ -35,6 +35,8 @@ VOICES equ 2 ;number of sound channels to use org 0 +CharRead rmb 1 +OrgNMI rmb 2 Clr0Next rmb 1 SndAddrs rmb VOICES*2 SndDurs rmb VOICES @@ -81,7 +83,7 @@ sta SKCTL ;set POKEY 2-tone mode lda #$00 sta AUDCTL ;set POKEY clock base to 15 KHz - bsr InitSnd + lbsr InitSnd * Initialize GTIA color registers InitClr lda #CLR0 @@ -124,13 +126,28 @@ * Set up and enable non-maskable interrupt InitNMI leax NMIVect,pcr - stx $fffc ;point 6809 to custom interrupt vector + ldy $FFFC + sty OrgNMI,u + stx $FFFC ;point 6809 to custom interrupt vector lda #$C0 sta NMIEN ;enable both display list and vertical blank interrupts -* End of main program -End bra End +* Read one character + clra + ldy #$0001 + leax CharRead,u + os9 I$Read + +* Now awake, time to quit + lda #$00 + sta NMIEN + ldy OrgNMI,u + sty D.NMI + ldd #$00F8 + std DLISTL + clrb + os9 F$Exit * Initialize sound pointers InitSnd @@ -176,7 +193,8 @@ SndVect ldd #$0000 tfr d,x ;start with voice #0 - + rts + PlayVoice lda SndDurs,x bne UpdateDur ;skip work if same note keeps playing