Update versions

src/dhgr.tk/gg/sean.pla

@@ -18,7 +18,7 @@ sysflags resxtxt1|reshgr1|resxhgr1|nojitc
 //
 // Version
 //
-char ggVersion = "0.9y"
+char ggVersion = "1.0"
 //
 // Predefines
 //
@@ -140,7 +140,7 @@ var nerdTile = @nerdActiveTile0, @nerdActiveTile1, @nerdActiveTile2, @nerdActive
 const SENSE_MASK = $03
 const SENSE_MOD  = $80
 byte joyX, joyY, btn0, btn1, buzz
-byte joySense, altJoyDir
+byte altJoyDir, joySense = 1
 byte joyLeft, joyRight, joyUp, joyDown
 //
 // Levels
@@ -568,7 +568,7 @@ def drawMenu#0
     dcgrStr(15, 62, "GARAGE")
     dcgrStr(15, 71, "GIVEAWAY")
     dcgrStr(15, 80, ">")
-    dcgrStr(92, 180, "8 bit shack")
+    dcgrStr(92, 180, "8-Bit Shack")
     dcgrStr(96, 190, "2026 v")
     dcgrStr(120, 190, @ggVersion)
     dcgrColor(CLR_WHITE)
@@ -1499,7 +1499,6 @@ def updateStartup#0
     if refnum
         strcpy(@cmdstr, "+SEAN -S -J")
         strcat(@cmdstr, itoa(joyval, joySense & SENSE_MASK))
-        puts(@cmdstr)
         fileio:write(refnum, @cmdstr+1, cmdstr)
         fileio:close(refnum)
     fin
@@ -1766,9 +1765,9 @@ dhgrMode(DHGR_TEXT_MODE)
 params.0 = 1
 params.1 = 0
 syscall($41, @params)
-puts("Memory free: "); puti(heapAvail); puts(" bytes\n")
-puts("Joystick: ");puti(joyLeft);putc(',');puti(joyRight);putc(',');puti(joyUp);putc(',');puti(joyDown);putc(',')
-joyLeft, joyUp, drop, drop = joyPos(0); puti(joyLeft);putc(',');puti(joyUp);putln
+//puts("Memory free: "); puti(heapAvail); puts(" bytes\n")
+//puts("Joystick: ");puti(joyLeft);putc(',');puti(joyRight);putc(',');puti(joyUp);putc(',');puti(joyDown);putc(',')
+//joyLeft, joyUp, drop, drop = joyPos(0); puti(joyLeft);putc(',');puti(joyUp);putln
 if joySense & SENSE_MOD
     puts("Update joystick settings (Y/N)?")
     if toupper(getc) == 'Y'

src/samplesrc/maze.pla

@@ -51,10 +51,11 @@ res[4] tics
 // This fixes the Virtual ][ bug with outstanding Mockingboard interrupts
 //
 byte[4] params
-asm serviceCYA#0
-        CLC
-        RTS
-end
+byte serviceCYA = $18, $60
+//asm serviceCYA#0
+//        CLC ; $18
+//        RTS ; $60
+//end
 def ouch#0
     //tonePlay(64, 16)#0
     pcmPlay(pcm, pcmpage)#0