Last change
on this file since b8080f6 was 4f508e6, checked in by Thomas Lopatic <thomas@…>, 7 years ago |
Converted assembly language files.
|
-
Property mode
set to
100644
|
File size:
666 bytes
|
Rev | Line | |
---|
[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] | 24 | blkf1: move.b d7,(a5)+
|
---|
[4f508e6] | 25 |
|
---|
[f40a309] | 26 | blkf2: 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.