String support and more run-time routines

This is a work in progress.
This commit is contained in:
rswier
2016-03-29 01:49:21 -04:00
parent a36ea820b6
commit 6a40af2f97
4 changed files with 153 additions and 3 deletions
+5 -3
View File
@@ -1,8 +1,9 @@
/* test.b - test program for B run-time library brt.s
/* test.b - test program for B run-time library brt.s brtb.b
b test.b test.s
b brtb.b brtb.s
echo abcABC > abc
perl as7 --out test.out brt.s test.s bi.s
perl as7 --out test.out brt.s brtb.s test.s bi.s
perl a7out test.out
*/
@@ -10,7 +11,8 @@ main {
extrn fname, fin;
auto ch;
fin = open(fname, 0);
/* fin = open(fname, 0); */
fin = open("abc ", 0);
goto loop;
while (ch != 04) {