Research V2 development

Work on file lib/gtty.s

Synthesized-from: v2

diff --git a/lib/gtty.s b/lib/gtty.s
new file mode 100644 (file)
index 0000000..6a9d4c5
--- /dev/null
+++ b/lib/gtty.s
@@ -0,0 +1,24 @@
+/ C library -- gtty
+
+/ error = gtty(filep, ttyvec);
+
+/ filep is descriptor of open tty
+/ ttyvec[0, 1, 2] correspond to args of gtty
+
+.globl _gtty
+
+.data
+_gtty:
+       1f
+.text
+1:
+       mov     2(sp),r0
+       mov     4(sp),0f
+       sys     gtty; 0:..
+       bes     1f
+       clr     r0
+       rts     pc
+1:
+       mov     $1,r0
+       rts     r0
+