p19i.asm

freemenu bne chkchild

         lda ptr+1
         sta rootpg
         beq menuend

         ldy #1           ;Free 1 Page
         jsr pgfree

chkchild ldy #childptr+1
         lda (ptr),y    ;Get hi childptr
         beq nextsib

         #saveptr ptr
         #moveptr childptr
         jsr freemenu     ;Recurse!!
         #fetchptr ptr

nextsib  #moveptr nextptr ;Next sibling
         jmp freemenu

menuend  rts
         .bend