allocsub,$023f
    gr_portread,0
    jump0,_BB_start
    deallocsub,$023f
    allocsub,$027e
    jumpp,_BB_start2
    jump,_BB_start