Subversion Repositories forwardcom

/*********************************  puts_light.as *****************************

* Author:        Agner Fog

* date created:  2021-05-16

* Last modified: 2021-05-16

* Version:       1.11

* Project:       ForwardCom library libc_light.li

* Description:   puts: print a string to stdout, append linefeed

* This version is for CPUs with limited capabilities

* C declaration: int puts (const char * str);

*

* Copyright 2021 GNU General Public License http://www.gnu.org/licenses

******************************************************************************/

code section execute align = 4                   // code section

// Print a string to stdout, append \n

_puts function public reguse=3,0

if (int64 r0 != 0) {  // check for null pointer

    while (true) {    // loop through string

        int8 r1 = [r0]             // read character

        if (int8 r1 == 0) {break}  // end of string

        int8 output(r1, r1, 10);   // output character

        int64 r0++                 // next character

    }

    int8 r1 = '\n'                 // write newline

    int8 output(r1, r1, 10);

    int r0 = 0                     // indicate success

    return

}

int r0 = -1                        // indicate error

return

_puts end

code end