; ------------------------------------------------------
                  ; Hardwareprogrammierung Teil 5 - Blitter
                  ; written 1989 by Sven Stillich
                  ; ------------------------------------------------------
                  ;
bltapth           =       $050
bltaptl           =       $052
bltdpth           =       $054
bltdptl           =       $056
bltamod           =       $064
bltdmod           =       $066
bltsize           =       $058
bltcon0           =       $040
bltcon1           =       $042
dmaconw           =       $096
                  ;
start:            lea     $DFF000,a5             ; Basisadresse Custom
                  move.w  #$0004,bltapth(a5)     ; Startadresse Quelle
                  clr.w   bltaptl(a5)            ; = $40000
                  move.w  #$0006,bltdpth(a5)     ; Startadresse Ziel
                  move.w  #$0014,bltdptl(a5)     ; = $60014
                  move.w  #$0000,bltamod(a5)     ; Modulo-Wert Quelle
                  move.w  #$0008,bltdmod(a5)     ; Modulo-Wert Ziel
                  ;         5432109876543210
                  move.w  #%0000100111110000,bltcon0(a5)
                  move.w  #%0000000000000000,bltcon1(a5)
                  move.w  #$0105,bltsize(a5)             ; Blitter START
                  ;
                  moveq   #00,d0
wait:             move.w  dmaconw(a5),d0                 ; dmacon lesen
                  and.w   #%0100000000000000,d0          ; bbusy maskieren
                  tst.w   d0
                  bne.s   wait
                  rts
                  ;
end: