#linia = 40 * 256
Statement mycls{a.l}
MOVE.l d0, a0
ADD.l #linia, a0
MOVEQ #0, d0
MOVEQ #0, d1
MOVEQ #0, d2
MOVEQ #0, d3
MOVEQ #0, d4
MOVEQ #0, d5
MOVEQ #0, d6
MOVE.l d0, a1
MOVE.l d0, a2
MOVE.l d0, a3
MOVE #255,d7
loop:
MOVEM.l d0-d6/a1-a3, -(a0)
DBRA d7, loop
AsmExit
End Statement
; samo czyszczenie trzeba powtorzyc 6 razy z przesunietym adresem:
mycls{Peek.l (Addr BitMap(0)+8)}
mycls{Peek.l (Addr BitMap(0)+12)}
mycls{Peek.l (Addr BitMap(0)+16)}
mycls{Peek.l (Addr BitMap(0)+20)}
mycls{Peek.l (Addr BitMap(0)+24)}
mycls{Peek.l (Addr BitMap(db)+28)}@mateusz_s, post #1
@Don_Adan, post #2
@mateusz_s, post #3
@mateusz_s, post #3
@mateusz_s, post #4
@mateusz_s, post #7
@mateusz_s, post #3
@Don_Adan, post #8
@BigBang, post #9