home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG13.1 < prev    next >
Encoding:
Text File  |  1999-10-02  |  861 b   |  35 lines
  1. LINES:        EQU    4            ; Antal rader
  2. WORDS:        EQU    3            ; Antal ord
  3.  
  4. BLTWAIT:    MACRO
  5. BLTBUSY?0:    BTST    #6,$02(A6)        ; Blitter färdig?
  6.         BNE.S    BLTBUSY?0
  7.         ENDM
  8.  
  9. BEGIN:        MOVEM.L    D0-D7/A0-A6,-(SP)
  10.  
  11.         LEA.L    $DFF000,A6
  12.         MOVE.W    #$8240,$96(A6)        ; Slå på blitter DMA
  13.  
  14.         MOVE.L    #$05300000,$40(A6)    ; D = NOT(B) AND A
  15.         MOVE.L    #$0FFFFFF0,$44(A6)    ; Mask
  16.         MOVE.L    #READ,$4C(A6)        ; Från B
  17.         MOVE.L    #WRITE,$54(A6)        ; Till D
  18.         MOVE.L    #$00020002,$64(A6)    ; Modulo för A & D
  19.         MOVE.W    #$FFFF,$74(A6)        ; Data för A
  20.         MOVE.W    #64*LINES+WORDS,$58(A6)    ; Starta blittern
  21.         BltWait                ; Vänta på blittern
  22.  
  23.         MOVEM.L    (SP)+,D0-D7/A0-A6
  24.         RTS
  25.  
  26. READ:        DC.W    $AAAA,$AAAA,$AAAA,$AAAA
  27.         DC.W    $AAAA,$AAAA,$AAAA,$AAAA
  28.         DC.W    $AAAA,$AAAA,$AAAA,$AAAA
  29.         DC.W    $AAAA,$AAAA,$AAAA,$AAAA
  30.  
  31. WRITE:        DC.W    $1111,$1111,$1111,$1111
  32.         DC.W    $1111,$1111,$1111,$1111
  33.         DC.W    $1111,$1111,$1111,$1111
  34.         DC.W    $1111,$1111,$1111,$1111
  35.