#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