source: buchla-68k/orig/CLIBRARY/BLKFILL.S@ 6099cac

Last change on this file since 6099cac was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.
  • Property mode set to 100755
File size: 710 bytes
Line 
1* ------------------------------------------------------------------------------
2* blkfill.s -- block fill function
3* Version 1 -- 1987-08-28 -- D.N. Lynx Crowe
4*
5* void
6* blkfill(where, what, count)
7* char *where;
8* char what;
9* short count;
10*
11* Fills 'count' bytes at 'where' with 'what'.
12* ------------------------------------------------------------------------------
13 .text
14*
15 .xdef _blkfill
16*
17_blkfill: link a6,#0
18 movem.l d5-d7/a5-a5,-(a7)
19 movea.l 8(a6),a5
20 move.b 13(a6),d7
21 move.w 14(a6),d6
22 bra blkf2
23*
24blkf1: move.b d7,(a5)+
25*
26blkf2: move.w d6,d0
27 subq.w #1,d6
28 tst.w d0
29 bgt blkf1
30*
31 tst (a7)+
32 movem.l (a7)+,d6-d7/a5-a5
33 unlk a6
34 rts
35*
36 .end
Note: See TracBrowser for help on using the repository browser.