source: buchla-68k/alcyon/strfill.s@ 050d522

Last change on this file since 050d522 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 501 bytes
Line 
1.globl _strfill
2.text
3_strfill:
4~~strfill:
5~s=R13
6~c=R7
7~n=R6
8link R14,#-4
9movem.l R4-R7/R13-R13,-(sp)
10~i=R5
11~p=-4
12*line 24
13move.l 8(R14),R13
14*line 24
15move.b 13(R14),R7
16*line 24
17move 14(R14),R6
18*line 24
19move.l R13,-4(R14)
20*line 26
21move R6,R5
22bra L4
23L5:
24*line 27
25move.b R7,(R13)+
26L3:L4:
27*line 26
28clr R0
29move R5,R0
30sub #1,R5
31tst R0
32bne L5
33L2:
34*line 29
35clr.b (R13)
36*line 30
37move.l -4(R14),R0
38bra L1
39L1:tst.l (sp)+
40movem.l (sp)+,R5-R7/R13-R13
41unlk R14
42rts
43.data
Note: See TracBrowser for help on using the repository browser.