Bitmap 0,320,256,3
mycls{Peek.l (Addr BitMap(db)+8)}
mycls{Peek.l (Addr BitMap(db)+12)}
mycls{Peek.l (Addr BitMap(db)+16)}Statement mycls{ a.l }
MOVE.l d0, a0
ADD.l #40*256, 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
loop1:
MOVEM.l d0-d6/a1-a3, -(a0)
DBRA d7, loop1
AsmExit
End Statement @pisklak, post #2
@mateusz_s, post #3
struct BitMap
{
UWORD BytesPerRow;
UWORD Rows;
UBYTE Flags;
UBYTE Depth;
UWORD pad;
PLANEPTR Planes[8];
};mycls{Peek.l (Addr BitMap(db)+8)}
mycls{Peek.l (Addr BitMap(db)+12)}
mycls{Peek.l (Addr BitMap(db)+16)}