move.l  #sound1-musik,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,musikadr
               move.l  d0,a0
               lea     musik,a1
               move.l  #(sound1-musik)/2,d0
makemusik:     move.w  (a1)+,(a0)+
               dbra    d0,makemusik
               move.l  #sound2-sound1,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,sound1adr
               move.l  d0,a0
               lea     sound1,a1
               move.l  #(sound2-sound1)/2,d0
makesound1:    move.w  (a1)+,(a0)+
               dbra    d0,makesound1
               move.l  #sound3-sound2,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,sound2adr
               move.l  d0,a0
               lea     sound2,a1
               move.l  #(sound3-sound2)/2,d0
makesound2:    move.w  (a1)+,(a0)+
               dbra    d0,makesound2
               move.l  #sound4-sound3,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,sound3adr
               move.l  d0,a0
               lea     sound3,a1
               move.l  #(sound4-sound3)/2,d0
makesound3:    move.w  (a1)+,(a0)+
               dbra    d0,makesound3
               move.l  #sound5-sound4,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,sound4adr
               move.l  d0,a0
               lea     sound4,a1
               move.l  #(sound5-sound4)/2,d0
makesound4:    move.w  (a1)+,(a0)+
               dbra    d0,makesound4
               move.l  #sound6-sound5,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,sound5adr
               move.l  d0,a0
               lea     sound5,a1
               move.l  #(sound6-sound5)/2,d0
makesound5:    move.w  (a1)+,(a0)+
               dbra    d0,makesound5
               move.l  #sound7-sound6,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,sound6adr
               move.l  d0,a0
               lea     sound6,a1
               move.l  #(sound7-sound6)/2,d0
makesound6:    move.w  (a1)+,(a0)+
               dbra    d0,makesound6
               move.l  #sounde-sound7,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,sound7adr
               move.l  d0,a0
               lea     sound7,a1
               move.l  #(sounde-sound7)/2,d0
makesound7:    move.w  (a1)+,(a0)+
               dbra    d0,makesound7
               move.l  #8*72,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,spriteadr
               move.l  #planesize*4,d0
               move.l  #$10002,d1
               jsr     allocmem(a6)
               move.l  d0,planeadr
               moveq   #clsize,d0
               moveq   #2,d1
               jsr     allocmem(a6)
               move.l  d0,cladr
               moveq   #3,d4
               move.l  d0,a0
               move.l  planeadr,d1
               move.w  #bpl1pth,d3
makecl1:       move.w  d3,(a0)+
               addq.w  #2,d3
               swap    d1
               move.w  d1,(a0)+
               move.w  d3,(a0)+
               addq.w  #2,d3
               swap    d1
               move.w  d1,(a0)+
               add.l   #planesize,d1
               dbf     d4,makecl1
               moveq   #7,d4
               move.l  spriteadr,d1
               move.w  #spr0pth,d3
makecl2:       move.w  d3,(a0)+
               addq.w  #2,d3
               swap    d1
               move.w  d1,(a0)+
               move.w  d3,(a0)+
               addq.w  #2,d3
               swap    d1
               move.w  d1,(a0)+
               add.l   #72,d1                          ;für 16*16
               dbf     d4,makecl2
               move.l  #$fffffffe,(a0)
               move.w  #$03e0,dmacon(a5)
               move.l  cladr,cop1lc(a5)
               clr.w   copjmp1(a5)
               move.w  #$3081,diwstrt(a5)
               move.w  #$30c1,diwstop(a5)
               move.w  #$0038,ddfstrt(a5)
               move.w  #$00d0,ddfstop(a5)
               move.w  #%0100001000000000,bplcon0(a5)
               clr.w   bplcon1(a5)
               move.w  #%100100,bplcon2(a5)
               clr.w   bpl1mod(a5)
               clr.w   bpl2mod(a5)
               move.w  #$8380,dmacon(a5)
               move.l  #$dff180,a0
               lea     farbtab,a1
               moveq   #leer-farbtab-1,d0
farben:        move.w  (a1)+,(a0)+
               dbra    d0,farben
               move.l  musikadr,aud0lch(a5)
               move.w  #(sound1-musik)/2,aud0len(a5)
               move.w  #64,aud0vol(a5)
               move.w  #363,aud0per(a5)
               move.w  #64,aud1vol(a5)
               move.w  #363,aud1per(a5)
               move.w  #64,aud2vol(a5)
               move.w  #363,aud2per(a5)
               move.w  #64,aud3vol(a5)
               move.w  #363,aud3per(a5)
               move.w  #%1000001000100001,dmacon(a5)
titelbild:     move.w  #(streifen-titel)/4-1,d2
               lea     titel,a2
               lea     stein,a3
               bsr     loopshow
               moveq   #16,d0
               moveq   #15,d1
               lea     by,a0
               bsr     show
               moveq   #17,d0
               moveq   #15,d1
               lea     er,a0
               bsr     show
               moveq   #18,d0
               moveq   #15,d1
               lea     of,a0
               bsr     show
               move.w  #112+16*3,spritex
               move.w  #32+16*11,spritex+2
               move.w  #112+16*17,spritex+8
               move.w  #32+16*11,spritex+10
               move.w  #$0fff,d7
               move.w  d7,color15(a5)
feuer:         bsr     vertikal
               move.l  spriteadr,a0
               add.l   #4,a0
               lea     paczu,a1
               move.w  #15,d0
feuer1:        move.l  (a1)+,(a0)+
               dbra    d0,feuer1
               add.l   #80,a0
               lea     geist1,a1
               move.w  #15,d0
feuer11:       move.l  (a1)+,(a0)+
               dbra    d0,feuer11
               moveq   #6,d6
               bsr     verzoegerung
               subq    #1,d7
               move.w  d7,color15(a5)
               bsr     vertikal
               move.l  spriteadr,a0
               add.l   #4,a0
               lea     pacr,a1
               move.w  #15,d0
feuer3:        move.l  (a1)+,(a0)+
               dbra    d0,feuer3
               add.l   #80,a0
               lea     geist2,a1
               move.w  #15,d0
feuer33:       move.l  (a1)+,(a0)+
               dbra    d0,feuer33
               moveq   #6,d6
               bsr     verzoegerung
               subq    #1,d7
               move.w  d7,color15(a5)
               btst    #7,$bfe001
               bne     feuer
               bsr     cls
               move.l  #0,spritex
               move.l  #0,spritex+8
               bsr     vertikal
               move.w  #32,aud0vol(a5)
               move.w  #$0d5d,color15(a5)
               end