hauptschleife: addq    #1,d7
               move.w  d7,d6
               and.b   #7,d6
               bne     haupt1
               move.l  spriteadr,a0
               add.l   #4,a0
               lea     paczu,a1
               moveq   #15,d0
hauptspr1:     move.l  (a1)+,(a0)+
               dbra    d0,hauptspr1
               add.l   #80,a0
               lea     geist1,a1
               moveq   #15,d0
               btst    #3,d7
               bne     hauptspr2
               lea     geist2,a1
hauptspr2:     move.l  (a1),(a0)
               move.l  (a1),72(a0)
               move.l  (a1),144(a0)
               move.l  (a1),216(a0)
               move.l  (a1),288(a0)
               move.l  (a1),360(a0)
               add.l   #4,a1
               add.l   #4,a0
               dbra    d0,hauptspr2
               bra     haupt3
haupt1:        cmpi.b  #4,d6
               bne     haupt3
               move.w  joy,d0
               bne     rechtsspr
               lea     paczu,a1
               bra     haupt2
rechtsspr:     btst    #0,d0
               beq     linksspr
               lea     pacr,a1
               bra     haupt2
linksspr:      btst    #1,d0
               beq     untenspr
               lea     pacl,a1
               bra     haupt2
untenspr:      btst    #2,d0
               beq     obenspr
               lea     pacu,a1
               bra     haupt2
obenspr:       lea     paco,a1
haupt2:        move.l  spriteadr,a0
               add.l   #4,a0
               moveq   #15,d0
hauptspr3:     move.l  (a1)+,(a0)+
               dbra    d0,hauptspr3
haupt3:        move.w  d7,d6
               and.w   #7,d6
               bne     haupt4
               move.w  joy1dat(a5),d0
               move.w  d0,d1
               and.w   #%1100000011,d1
               beq     haupt31
               move.w  d0,joymemo
haupt31:       move.w  joymemo,d0
               btst    #1,d0
               beq     hauptjoy1
               move.w  pacx,d0
               cmpi.w  #112+20*16,d0
               bne     hauptjoy0
               move.w  #1,joy
               move.w  #112,pacx
               bra     haupt4
hauptjoy0:     move.w  pacx+2,d1
               add.w   #16,d0
               bsr     test
               cmpi.b  #2,d2
               beq     hauptjoy4
               move.w  #1,joy
               bra     haupt4
hauptjoy1:     btst    #9,d0
               beq     hauptjoy2
               move.w  pacx,d0
               cmpi.w  #112+16,d0
               bne     hauptjoy11
               move.w  #2,joy
               move.w  #112+21*16,pacx
               bra     haupt4
hauptjoy11:    move.w  pacx+2,d1
               sub.w   #16,d0
               bsr     test
               cmpi.b  #2,d2
               beq     hauptjoy4
               move.w  #2,joy
               bra     haupt4
hauptjoy2:     move.w  d0,d1
               lsr.w   #1,d1
               eor.w   d0,d1
               btst    #0,d1
               beq     hauptjoy3
               move.w  pacx,d0
               move.w  pacx+2,d1
               add.w   #16,d1
               bsr     test
               cmpi.b  #2,d2
               beq     hauptjoy4
               move.w  #4,joy
               bra     haupt4
hauptjoy3:     btst    #8,d1
               beq     hauptjoy4
               move.w  pacx,d0
               move.w  pacx+2,d1
               sub.w   #16,d1
               bsr     test
               cmpi.b  #2,d2
               beq     hauptjoy4
               move.w  #8,joy
               bra     haupt4
hauptjoy4:     move.w  #0,joy
haupt4:        move.w  joy,d0
               btst    #0,d0
               beq     links
               move.w  pacx,d0
               addq    #2,d0
               move.w  d0,pacx
               bra     haupt5
links:         btst    #1,d0
               beq     unten
               move.w  pacx,d0
               subq    #2,d0
               move.w  d0,pacx
               bra     haupt5
unten:         btst    #2,d0
               beq     oben
               move.w  pacx+2,d0
               addq    #2,d0
               move.w  d0,pacx+2
               bra     haupt5
oben:          btst    #3,d0
               beq     haupt5
               move.w  pacx+2,d0
               subq    #2,d0
               move.w  d0,pacx+2
               end