Add trysys.s to src/sys.

2016-03-24 06:20:38 +10:00
parent aa234d7de4
commit ce0a5401a9
1 changed files with 40 additions and 0 deletions
@@ -0,0 +1,40 @@
+"** 01-s1.pdf page 65
+" 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: