Version 1.1 with docs and LFO from 0 to 32

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

src/samplesrc/a2pwm/pwmvm.s

@@ -57,43 +57,15 @@ HIMEM   =       $73
 ;* INTERPRETER HEADER+INITIALIZATION
 ;*
         *=      $2000
-        STY     IFPL            ; INIT FRAME POINTER
+        LDX     #$FE
-        LDA     #$BF
-        STA     IFPH
-        LDA     #<SEGEND        ; SAVE HEAP START
-        STA     SRCL
-        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
         TXS
         JSR     VMINIT
         JSR     $BF00
         !BYTE   $65
         !WORD   EXITTBL
 EXITTBL:
-        !BYTE	  4
+        !BYTE     4
-        !BYTE	  0
+        !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        ; SAVE HEAP START
+        STA     SRCL
+        LDA     #>SEGEND
+        STA     SRCH
+        LDA     #$4C
         JMP     START
 PAGE0   =       *
         !PSEUDOPC       $00EF {