Mercurial > hg > Members > kono > nitros9-code
annotate lib/alib/putcr.a @ 2515:0fe5a04e9d0c
Updated
author | boisy |
---|---|
date | Tue, 06 Apr 2010 13:33:37 +0000 |
parents | 7d70b7e1cb21 |
children | aaba193af04f |
rev | line source |
---|---|
2474 | 1 **************************************** |
2 | |
3 * Subroutine to print a carriage return to std. out. | |
4 | |
5 * OTHER MODULES REQUIRED: FPUTCR | |
6 | |
7 * ENTRY: none | |
8 | |
9 * EXIT: CC carry set if error (from I$WritLn) | |
10 * B error code if any. | |
11 | |
12 | |
13 nam Output Carriage Return to Std. Out | |
14 ttl Assembler Library Module | |
15 | |
16 | |
17 psect PUTCR,0,0,0,0,0 | |
18 | |
19 PUTCR: | |
20 pshs a | |
21 lda #1 std out | |
22 lbsr FPUTCR | |
23 puls a,pc | |
24 | |
25 endsect |