p19h.asm

rootpg   .byte 0
defpage  .byte 0
defpgcnt .byte 0

;.x .y pointer to filename string.

mnuload  ;Frees old memory. Allocs mem.
         ;Loads menu file and parses it.
         .block
         lda rootpg
         beq load ;Nothing to free

         tya ;Backup filename ptr
         pha
         txa
         pha

         ;Free definitions memory
         lda defpage
         ldy defpgcnt
         jsr pgfree

         ;Free structured memory
         lda rootpg
         sta ptr+1    ;Set hi ptr byte
         lda #0
         sta ptr      ;Set lo ptr byte

         jsr freemenu ;Call recursively

         pla ;Restore filename ptr
         tax
         pla
         tay

         jmp load