Last change
on this file since 458 was
444,
checked in by satin@…, 7 years ago
|
add newlib,libalmos-mkh, restructure shared_syscalls.h and mini-libc
|
File size:
1.4 KB
|
Rev | Line | |
---|
[444] | 1 | /* |
---|
| 2 | * sim-write.S -- write interface for FT32 simulator |
---|
| 3 | * |
---|
| 4 | * Copyright (C) 2015 FTDI (support@ftdichip.com) |
---|
| 5 | * |
---|
| 6 | * The authors hereby grant permission to use, copy, modify, distribute, |
---|
| 7 | * and license this software and its documentation for any purpose, provided |
---|
| 8 | * that existing copyright notices are retained in all copies and that this |
---|
| 9 | * notice is included verbatim in any distributions. No written agreement, |
---|
| 10 | * license, or royalty fee is required for any of the authorized uses. |
---|
| 11 | * Modifications to this software may be copyrighted by their authors |
---|
| 12 | * and need not follow the licensing terms described here, provided that |
---|
| 13 | * the new terms are clearly indicated on the first page of each file where |
---|
| 14 | * they apply. |
---|
| 15 | */ |
---|
| 16 | |
---|
| 17 | #include "syscall.h" |
---|
| 18 | |
---|
| 19 | /* |
---|
| 20 | * Input: |
---|
| 21 | * $r0 -- File descriptor. |
---|
| 22 | * $r1 -- String to be printed. |
---|
| 23 | * $r2 -- Length of the string. |
---|
| 24 | * |
---|
| 25 | * Output: |
---|
| 26 | * $r0 -- Length written or -1. |
---|
| 27 | * errno -- Set if an error |
---|
| 28 | */ |
---|
| 29 | |
---|
| 30 | .globl _write |
---|
| 31 | .type _write,@function |
---|
| 32 | .weak write |
---|
| 33 | .text |
---|
| 34 | _write: |
---|
| 35 | write: |
---|
| 36 | |
---|
| 37 | # LDI.l $r1,$r0,0 |
---|
| 38 | # STA.l MAGIC,$r1 |
---|
| 39 | # jmp .f |
---|
| 40 | # |
---|
| 41 | # .loop: |
---|
| 42 | # sta.l 0x10000,$r2 |
---|
| 43 | # add.l $r0,$r0,1 |
---|
| 44 | # .f: |
---|
| 45 | # ldi.b $r2,$r0,0 |
---|
| 46 | # cmp.b $r2,0 |
---|
| 47 | # jmpc nz,.loop |
---|
| 48 | |
---|
| 49 | ldk.l $r3,0x10000 |
---|
| 50 | streamout.b $r3,$r1,$r2 |
---|
| 51 | move.l $r0,$r2 |
---|
| 52 | |
---|
| 53 | return |
---|
| 54 | |
---|
| 55 | .Lend: |
---|
| 56 | .size _write,.Lend-_write |
---|
Note: See
TracBrowser
for help on using the repository browser.