X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/32c440bf6f1f2199c3e925f32bd3b621039605e6..8bed3ccdaf4669b8563578a8832d333cd66aed24:/stdlib/stdio.pvvs diff --git a/stdlib/stdio.pvvs b/stdlib/stdio.pvvs index d9184ad..03c60c7 100644 --- a/stdlib/stdio.pvvs +++ b/stdlib/stdio.pvvs @@ -1,15 +1,18 @@ -################################################################################ -# Description: -# This function prints a null-terminated string from the stack. -# Call Stack: -# null-terminator (ASCII '\0') -# char n -# ... -# char 2 -# char 1 <-- TOS -# Return Stack: -# -################################################################################ +#ifndef VVS_STDLIB_STDIO +#define VVS_STDLIB_STDIO + +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@ Description: +@ This function prints a null-terminated string from the stack. +@ Call Stack: +@ null-terminator (ASCII '\0') +@ char n +@ ... +@ char 2 +@ char 1 <-- TOS +@ Return Stack: +@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NSSVTSSSN | Mark: 1000 (print string from stack) SNS | DUP NTSSSSSTSSSSSSSSSSTN | BRZ > 00001000 00000001 @@ -19,14 +22,14 @@ NSSVSSSSTSSSSSSSSSSTN | Mark: 00001000 00000001 SNN | DROP NTN | RTS -################################################################################ -# Description: -# This function prints a null-terminated string from the heap. -# Call Stack: -# pointer to first character <-- TOS -# Return Stack: -# -################################################################################ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ +@ Description: +@ This function prints a null-terminated string from the heap. +@ Call Stack: +@ pointer to first character <-- TOS +@ Return Stack: +@ +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NSSVTSSTN | Mark: 1001 (print string from heap) SNS | DUP TTT | LOAD @@ -40,3 +43,5 @@ NSSVSSSSTSSTSSSSSSSTN | Mark: 00001001 00000001 SNN | DROP SNN | DROP NTN | RTS + +#endif