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

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

Converted assembly language files.

  • Property mode set to 100644
File size: 666 bytes
RevLine 
[4f508e6]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| ------------------------------------------------------------------------------
[f40a309]13 .text
[4f508e6]14
[f40a309]15 .xdef _blkfill
[4f508e6]16
[f40a309]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
[4f508e6]23
[f40a309]24blkf1: move.b d7,(a5)+
[4f508e6]25
[f40a309]26blkf2: move.w d6,d0
27 subq.w #1,d6
28 tst.w d0
29 bgt blkf1
[4f508e6]30
[f40a309]31 tst (a7)+
32 movem.l (a7)+,d6-d7/a5-a5
33 unlk a6
34 rts
[4f508e6]35
[f40a309]36 .end
Note: See TracBrowser for help on using the repository browser.