Ready for HW testing

src/inc/sndseq.plh

@@ -1,4 +1,4 @@
 import sndseq
     predef spkrTone(pitch, duration)#0, spkrPWM(sample, speed, len)#0
-    predef musicPlay(track, rept)#0, musicStop#0, getKey(backgroundProc)#1
+    predef musicPlay(track, rept)#0, musicStop#0, musicGetKey(backgroundProc)#1
 end

src/libsrc/sndseq.pla

@@ -63,7 +63,8 @@ predef musicStop#0
 //
 // Static sequencer values
 //
-word seqTrack, seqEvent, seqTime, eventTime, updateTime, musicSequence
+export word musicSequence
+word seqTrack, seqEvent, seqTime, eventTime, updateTime
 byte numNotes, seqRepeat
 byte indexA[2], indexB[2], indexC[2]
 byte noteA[2], noteB[2], noteC[2]
@@ -580,7 +581,7 @@ def mbSequence(yield, func)#0
     mbVIA1->ACR = $00 // Stop T1 countdown
     mbVIA1->IER = $7F // Mask all interrupts
     mbVIA1->IFR = $40 // Clear interrupt
-    setStatusReg(status))
+    setStatusReg(status)
 end
 //
 // Sequence notes through Apple II speaker
@@ -764,7 +765,7 @@ end
 //
 // Get a keystroke and convert it to upper case
 //
-export def getKey(backgroundProc)#1
+export def musicGetKey(backgroundProc)#1
     byte key
 
     while ^$C000 < 128

src/mkrel

@@ -2,6 +2,7 @@ cp CMD#FF2000 prodos/CMD.BIN
 cp PLASMA.SYSTEM#FF2000 prodos/PLASMA.SYSTEM.SYS
 cp PLASMA16.SYSTEM#FF2000 prodos/PLASMA16.SYSTEM.SYS
 
+rm -rf prodos/sys
 mkdir prodos/sys
 cp ARGS#FE1000 prodos/sys/ARGS.REL
 cp CONIO#FE1000 prodos/sys/CONIO.REL
@@ -26,6 +27,7 @@ cp UTHERNET2#FE1000 prodos/sys/UTHERNET2.REL
 cp ../sysfiles/FP6502.CODE#060000 prodos/sys/FP6502.CODE.BIN
 cp ../sysfiles/ELEMS.CODE#060000 prodos/sys/ELEMS.CODE.BIN
 
+rm -rf prodos/demos
 mkdir prodos/demos
 cp DGRTEST#FE1000 prodos/demos/DGRTEST.REL
 cp RPNCALC#FE1000 prodos/demos/RPNCALC.REL
@@ -55,6 +57,7 @@ cp PLAYSEQ#FE1000 prodos/demos/music/PLAYSEQ.REL
 cp mockingboard/ultima3.seq prodos/demos/music/ULTIMA3.SEQ.BIN
 cp mockingboard/startrek.seq prodos/demos/music/STARTREK.SEQ.BIN
 
+rm -rf prodos/bld
 mkdir prodos/bld
 cp PLASM#FE1000 prodos/bld/PLASM.REL
 cp CODEOPT#FE1000 prodos/bld/CODEOPT.REL

src/samplesrc/hgr1test.pla

@@ -45,7 +45,7 @@ word           = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
 word           = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
 word           = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
 word hcolor[]  = $0000,$552A,$2A55,$7F7F,$8080,$D5AA,$AAD5,$FFFF
-memset($2000, 0, $2000) // Clear HGR page 1
+memset(hgr1, 0, $2000) // Clear HGR page 1
 ^showpage1
 ^showfull
 ^showhires

src/samplesrc/playseq.pla

@@ -3,19 +3,13 @@ include "inc/args.plh"
 include "inc/fileio.plh"
 include "inc/sndseq.plh"
 
-///////////////////////////////////////////////////////////////////////////////
 //
 // These are utility sequences/routines needed to test the music sequencer code.
 //
 word arg
 word ref
-///////////////////////////////////////////////////////////////////////////////
-
-///////////////////////////////////////////////////////////////////////////////
 //
-// More utility routines to test the getKey routine
-//
-// Sample background process
+// Sample background process to show it's working
 //
 def backgroundProc#0
     ^$0400++
@@ -28,7 +22,7 @@ if ^arg
         fileio:read(ref, heapmark(), heapavail())
         fileio:close(ref)
         musicPlay(heapmark(), TRUE)
-        getKey(@backgroundProc)
+        musicGetKey(@backgroundProc)
         musicStop
     else
         puts("File not found.\n")
@@ -36,4 +30,3 @@ if ^arg
 fin
 
 done
-////////////////////////////////////////////////////////////////////////////////