From 68053fb5fc9bfc5cde4909a529cdbead943c5739 Mon Sep 17 00:00:00 2001 From: dschmenk Date: Wed, 26 Apr 2017 14:36:16 -0700 Subject: [PATCH] Version 1.1 with docs and LFO from 0 to 32 --- src/samplesrc/a2pwm/._demo.po | Bin 4096 -> 0 bytes src/samplesrc/a2pwm/._lfo.po | Bin 4096 -> 0 bytes src/samplesrc/a2pwm/hilopwm.pla | 17 ++++++------- src/samplesrc/a2pwm/lfo.po | Bin 143360 -> 143360 bytes src/samplesrc/a2pwm/pwmvm.s | 42 +++++++++----------------------- 5 files changed, 18 insertions(+), 41 deletions(-) delete mode 100755 src/samplesrc/a2pwm/._demo.po delete mode 100755 src/samplesrc/a2pwm/._lfo.po diff --git a/src/samplesrc/a2pwm/._demo.po b/src/samplesrc/a2pwm/._demo.po deleted file mode 100755 index c29b0e3e8045b52c1f28b7dd7da78f57370be2ce..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4096 zcmZQz6=P>$Vqox1Ojhs@R)|o50+1L3ClDJkFz{^v(m+1nBL)UWIgo;|%-Cq47!KeV z5)#CmaDEX)2g3}YGG;WTj6gnATqHR^SFbFysH8M8Co@y8EI%hNA84(q37VEs?q~>% zhQMeDjE2By2#kinXb6mkz-S1JhQMeDjE2By2;dI^P-hc_!9Xq~BePhcD784hv?w`M zAuYcsTOl*ABsH%jGe0jeC#O;&CpE1^At@&@FB{m?h3Xp86srH>UXfvt`~M#R-1aD8 diff --git a/src/samplesrc/a2pwm/._lfo.po b/src/samplesrc/a2pwm/._lfo.po deleted file mode 100755 index d5a959f9b4ffeab05290e7a33c76704157a98fbf..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4096 zcmZQz6=P>$Vqox1Ojhs@R)|o50+1L3ClDJkFz{^v(m+1nBL)UWIgo;|%-Cq47!KeV z5)#CmaDF932g3}YGG;WTj6gnATqHR^SFbFysH8M8Co@y8EI%hNA84(q37VEs?q~>% zhQMeDjE2By2#kinXb6mkz-S1JhQMeDjE2By2;dI^P-hc_!9Xq~BePhcD784hv?w`M zAuYcsTOl*ABsH%jGe0jeC#O;&CpE1^At@&@FB{m?h3Xp86srH>UXfvt`~M#RN{A?E diff --git a/src/samplesrc/a2pwm/hilopwm.pla b/src/samplesrc/a2pwm/hilopwm.pla index 2fd6a22..015f750 100755 --- a/src/samplesrc/a2pwm/hilopwm.pla +++ b/src/samplesrc/a2pwm/hilopwm.pla @@ -109,18 +109,15 @@ end // Display LFO bar // def showLFO - byte LFObar - - LFObar = (current.LFO+7)/8 grcolor(WHITE) rect(33, 39, 6, 39, FALSE) - if LFObar < 32 + if current.LFO < 32 grcolor(ORANGE) - rect(34, 38, 7, 38-LFObar, TRUE) + rect(34, 38, 7, 38-current.LFO, TRUE) fin - if LFObar + if current.LFO grcolor(DRKBLU) - rect(34, 38, 39-LFObar, 38, TRUE) + rect(34, 38, 39-current.LFO, 38, TRUE) fin // //Show actual value @@ -202,7 +199,7 @@ def showMainPanel showDuration showWaveform showLFO - putsxy(5, 0, "OSCILLATION OVERTHRUSTER 1.0") + putsxy(5, 0, "OSCILLATION OVERTHRUSTER 1.1") normal putsxy(1, 0, "1-8") gotoxy(34, 0); putc('<') @@ -358,7 +355,7 @@ def playback(idx) break is '>' is '.' - if current.LFO < 255 + if current.LFO < 32 current.LFO++ fin break @@ -507,7 +504,7 @@ def main break is '>' is '.' - if current.LFO < 255 + if current.LFO < 32 current.LFO++ fin showLFO diff --git a/src/samplesrc/a2pwm/lfo.po b/src/samplesrc/a2pwm/lfo.po index c7c852db7b6231c120799d58ca8323fa547772c0..c99952b73db8a2fc5b45fd822fcc3b204c6970bf 100755 GIT binary patch delta 3563 zcmb7GT})iZ6+Sb&ToxAA7z4%_;|1bnJ>0!J{5Zy#Y#_#NNN=4RdXa#*_S(K)uQ9E# zgWMI7vZyL*9zyzaork0kNgH8>2e(d$AKI$TMwZex$^)$;RjpLXPU6N&8Uj|D;vYiK z%)PtbxWrZWVfOsbnK|D%b0;tRCNKLg9QT$r*TV}9TLJ*@Lr@TN-}O#^gRIOI^gro) znNZ@JDL&_)FZ?;PpB`@R3eS`-mQQV-g^sJ`Q`NI@b;H!AU|V=5u;>@kscMH^mo=)8 zMwL=(e>&W8|ic`cl(dTjmv&XLM+`A9#H8hPy1#Aa0*}{D*dC zNO|o*C9P`ya)cS*)E2a{UmdEnyAM|0OFemSb>^PxpB$>JQtz?#q4G^ajR(m)UVd_u zu0>XjmUsdA7MVlkwQFo4?q;b;f3$m!&<0|c9Zo9R#doLAYW7oyYnruZFKExaswJmi z)6QL<{pCyAbD6XA;W*&$V&?Vv>ECP5{6V{RF*E&^Hh1Z;kB}z&og;l=jZqpO4hDjQ zl&FU@@dQvd`LGbMQu9jmfFKHyupc;DL!$QJ(MiJXzaH({p$Qvx@V3~%d_oh3gNi2s z32H8Lp75G6E-iN5axJ*IvBiGGV&Bp%s5`=fahf2kK5ouy+<0%5W0YmbBbxJ2yK^Ku z%PlZVYdPVDlzDrp3d;!!D8xMMKUo{wWNw%ZizMin8W#2muh2>de}TvnGyHQ4mz08( zz4=%}Z3{O(S>;9*S|^kQm>;2mpeR!I(6PD(Ep=M6ikxi;BjYpy;~w@-n3{7!l{~H4 zZyeiP^mbTr1om%_HF$-_e*ajc(KV6o1+M!U4|_A;y)CgP9hDXYLc28;YRvND+giAJEo#n3$EiixP`B8htuxP~T|H}J z3TpzBw({f+l?C_dn}HQcT>}fTLKZ@?S6y9oErgny=hNsb^i4v`Lav@Qg60VZgJMUd z1;|iu9^w)fUV#W0xvq|UrjC5Bn(b{IP@TMq7DygBL!G1mv&!ZKqrkRy3_wYOT0rB> zQ#(!ovrBW4nnk=8Fd|CN8Ief~87gv8kCbk6q!^W&k`_XNKg><#X-mrs-&cMiY;h#3R}+bcttxm>^GDqLk}L%A#fyez)8c|I?%ii@6`?5-99-IB`x+(N4Dbnn-LY)Ya^@C%&}RxKe)2vv9FXgTTwgrdh>}Zk{qW>=q}Pv%b@!;SjE{zJ{efJ6F&akt zFQawX3D{gBF#!#qFSVdT3Q;9-l3Ef3;>?Q>^QIP6b#)zbzKQE9OnfG}CFDL=L3Ric zkV3?h&TpXi8?eW;fXHetX+-%~ELGD(KdC0`o(+UJao# zDMM`5ViSXCVPoT6Qn$5@0x&MFa!X;Qz4{n|QH3cTwNMgLb7B2pDds?@9sf@Cj@C|Y z+)r3#tP%wBJ^S<`L6oGHRilnDpDQQ5jyxdbioJNMD_sg!0c-K5ZmP!bfOW-i-$Gz& ztU}BgY*37ILk*;EsK$%HVy;>f@tn~o^(8`|2G;EA{jpYO6v#X}wGzB5b7|Ka(-Ayuk_A3W6~73(f9?&iiHdRk8-7*p_&Cqc?CkkL5)YuF!N?q z@AJ4X0agK#(9wrgsM9R`zOYEQ-XZTPTU`{cQQbSzyz0J=)uqf%jFqKx!LXzhOUgy{ zuSmVptDmJKel4gU1hKs$279P2=h2H3lKE;ZS~cOaY@>w#^c>P`wL+nx z6@2^;647BI0g-smnrS>K0KPQ~@UkqxO&qd#3UQVp0rfheK;%jTfpj#mKRmTRt%^x+ z{4*cr)pw&D9|CUtF(2uh{tM~SW+or)U0Jk81o0JUFTL}IS5u~U^#td}W!SP+y zFWiRVwD_o@M<#BmxeqWp5fCF0+|M!mh&5AfvZA8;Yqqf4gz6_NY}%c@g8p$Hos&Zb z#R>3Mzuo}T~r_pi*pG4IDYkeXU?4=zy1%uIr7^8 delta 74 zcmZp8z|ru4V?#QNfUyF@EF}Rh28PEB3LwVja+Y3SM)u9DLDd|a8yW)mcv-ZV^_UbC cLR1Y5v{)wJ?YqUuws}Xt2TxPkvNFb9032o(T>t<8 diff --git a/src/samplesrc/a2pwm/pwmvm.s b/src/samplesrc/a2pwm/pwmvm.s index c3c11a0..b23e653 100755 --- a/src/samplesrc/a2pwm/pwmvm.s +++ b/src/samplesrc/a2pwm/pwmvm.s @@ -57,43 +57,15 @@ HIMEM = $73 ;* INTERPRETER HEADER+INITIALIZATION ;* *= $2000 - STY IFPL ; INIT FRAME POINTER - LDA #$BF - STA IFPH - LDA #SEGEND - STA SRCH - LDA #$4C - CMP $BE00 ; CHECK FOR BASIC.SYSTEM - BNE + - CMP $BE03 - BNE + - LDA HIMEM - STA IFPL - LDA HIMEM+1 - STA IFPH - LDX #$00 ; SAVE PAGE ZERO -- LDA $00,X - STA ZPSAVE,X - INX - BNE - - JSR VMINIT - LDX #$00 ; RESTORE ZP -- LDA ZPSAVE,X - STA $00,X - INX - BNE - - RTS -+ LDX #$FE + LDX #$FE TXS JSR VMINIT JSR $BF00 !BYTE $65 !WORD EXITTBL EXITTBL: - !BYTE 4 - !BYTE 0 + !BYTE 4 + !BYTE 0 ;* ;* SYSTEM INTERPRETER ENTRYPOINT ;* @@ -990,6 +962,14 @@ VMINIT LDY #$10 ; INSTALL PAGE 0 FETCHOP ROUTINE STA DROP-1,Y DEY BNE - + STY IFPL ; INIT FRAME POINTER + LDA #$BF + STA IFPH + LDA #SEGEND + STA SRCH + LDA #$4C JMP START PAGE0 = * !PSEUDOPC $00EF {