From 1b4d711ad07a75cd615b020a23affc8f30d9ea80 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Fri, 14 Aug 2026 14:54:55 -0700 Subject: [PATCH] Update versions --- images/apple/PLEIADES-2.21.po | Bin 33553920 -> 33553920 bytes src/dhgr.tk/gg/sean.pla | 13 ++++++------- src/samplesrc/maze.pla | 9 +++++---- 3 files changed, 11 insertions(+), 11 deletions(-) diff --git a/images/apple/PLEIADES-2.21.po b/images/apple/PLEIADES-2.21.po index 120233555cdb1411bb998d96ca426be9f6a8b8ee..e86256d6aa10e09274f2bafa70260050334c0b45 100644 GIT binary patch delta 2018 zcmYk(d6W)x6vlCrDNDAOr4vvnFT*rBi zPL9rw^BosBE_7VvxY*Ifaf#zn$7PPLj&6?bjvkJlj$V$-9alJdJNh{KI<9nF<+$2$ zjpJI!b&h_H{*D2TfsQH* zrdU(0Y1VXWhBecgW!-1pZ#`f=Xgy>-Y^AIM>k(_V^{6$+ddw=c=34Wt$F2F+6V?Lj zNvp_OXgy^;Z9QWxvKCv0rtkrLw|>uu{D>s{+TD{Z}RePDfPePn%XZM8nJKD9ox zKDWNGzO=rwzP7%xzO}xywprg>KUhCn+pV9hpRHf4U#;J)->pBa9oA0kPivR8+xpA; z+uCF8wf?d8S^KSjtrF{i71qHi%9x=H9D%aP#F01(L3Px? zv8agzj>GY&h1#ft6Hpf?q8^es3H8wc4RJCW;S`*T)6f{FqY2KynaDy@G{adq8_m%I zEzt_CaSpPPgEnZ3bI}g%(E%Nii}TP4opC-cz=gO77o!Ux z^hO`_#g(`USK}I7i|f!2{V@Ook%!WMxgIxQ5C-E$+=L+*ikoo@ZpAPR#|Yepk+>bB zFdAcU2kyjJj6*)g<1XBd37CjUFec+3+>0rgifNdR8JLM#xDWT^0X&F@@Gw#+z$2KA zM==MFp%8O1507I$p1=Y;i6Sh-Q+OKBU=bGMSuDX)EW>iFz)C!aRalK;tikhm0c)`i z>#+eZ;w8L{SMVxc!$xev>)4Dfcmr?ZExe6)@Gjm%8t>x+e29#_9!wgUW#m?T=OAv$+-5luS%}%XOk5Y zuGKIqG;Auf>(!Uj={@Ij&U2pgp7)=3M9Sl=Bd~f-SXjnYrLwI{2%9zZX&N0BJ1#0V zfYhO=*fcFxWZPRU)svOzpF6uBvwoMvVyXIS{m@RVSo#BITvp~#eAav(ltOr$(0e@>oT z{=7VoJg+>TJiq(}c>#HZyr8_0ys*58yr{gG{6%?jc?o$*c`12m`AhOLa;}w?my?&5 zSCChfzbvmLuPm=3uPTp{SCdzlzaoECUPE3}UQ1qE9xZ=O{<^%5ysrEWc|Cc3c>{Sv zc_Vpac@z1Y@}}};^5*gu@|N;e^49V;^0xAJ^0(w~%iGI4$lsB7ly{PMmUofI$h*qB z$-B!<-b3C~{;vEzc`tcy`TO!d^1kwZ^8WGx@`3U}^1<>CmFXBpW9iFZ)bbBPc~ncAX^|?C|e|3EL$R5DqAK?lr5KiCi`6Wg=~fF zOW8_Ul5CZ1wQP-St!$lay=;SQqbwxbB-AGnWq-&n%dW_-%C5<-%WlYS%5KSS%l?%8CHq@;M|M|sPj+AS zK=x4fk1R#@NanJ~6D$yC0i;G6gdr`SK{}*I24qAgWJWl$AS<#VJ8~c=a^YD7@f>pF zdE`M}K@>t^6hToG!;2`65-5pMD2awv}qsEC(Q36)U=RS|`1 zsE$|gDr%r6YN0lw@fu!79n{4esE7J!fQD#<#%O{!(G<#^Ym5z(jn4Nr=N_Ou?s^ifNdR8HmSB%))HU!CcJ4d?a827Ge<= zV+odG84|G^pW$B~L#Xa1|13bh(NWmj`AjuvF;{OFnd}g8m diff --git a/src/dhgr.tk/gg/sean.pla b/src/dhgr.tk/gg/sean.pla index 9769bf00..1670ab1e 100644 --- a/src/dhgr.tk/gg/sean.pla +++ b/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' diff --git a/src/samplesrc/maze.pla b/src/samplesrc/maze.pla index 98a5b3be..d9659a02 100644 --- a/src/samplesrc/maze.pla +++ b/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