source: buchla-68k/lib700/blkfill.s@ e877e55

Last change on this file since e877e55 was 4f508e6, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Converted assembly language files.
  • Property mode set to 100644
File size: 666 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.