X-Git-Url: http://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/31764ff8b30309dc3f8016015d8086812152f43d..69f28986ad97c1e3d55279d696d1884c963f530e:/trysys.s

diff --git a/trysys.s b/trysys.s
new file mode 100644
index 0000000000..2988b2f425
--- /dev/null
+++ b/trysys.s
@@ -0,0 +1,39 @@
+" trysys
+
+   sys open; a.out; 0
+   spa
+   jmp error
+   sys read; buf; 3072
+   sad .-1
+   jmp error
+   iof
+   caf
+   cdf
+   clof
+   law buf
+   dac t1
+   dzm t2
+   -3072
+   dac c1
+1:
+   lac t1 i
+   dac t2 i
+   isz t1
+   isz t2
+   isz c1
+   jmp 1b
+   jmp 0100
+
+error:
+   lac d1
+   sys write; 1f; 1
+   sys exit
+1: 077012
+
+a.out:
+   <a.>;<ou>;<t 040; 040040
+t1: 0
+t2: 0
+c1: 0
+d1: 1
+buf: