
;cartoon.asm

     proc

cartoonnum db 0

cartoon
   inc cartoonnum
   lda cartoonnum
   and #1
   bne :nocartoon
   lda cartoonnum
   and #%110
   tax
   lda cartoontab,x
   sta :vc
   lda cartoontab+1,x
   sta :vc+1
:vc equ *+1
   jmp $FFFF

cartoontab
   dw cartoon1
   dw cartoon2,cartoon3,cartoon4

:nocartoon
   rts

