diff --git a/src/samplesrc/a2pwm/._demo.po b/src/samplesrc/a2pwm/._demo.po deleted file mode 100755 index c29b0e3..0000000 Binary files a/src/samplesrc/a2pwm/._demo.po and /dev/null differ diff --git a/src/samplesrc/a2pwm/._lfo.po b/src/samplesrc/a2pwm/._lfo.po deleted file mode 100755 index d5a959f..0000000 Binary files a/src/samplesrc/a2pwm/._lfo.po and /dev/null differ 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 c7c852d..c99952b 100755 Binary files a/src/samplesrc/a2pwm/lfo.po and b/src/samplesrc/a2pwm/lfo.po differ 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 {