copied ln.s and un.s from scans

2019-10-24 21:02:37 -04:00
parent 3ba97b8b0a
commit dbb1c55a80
2 changed files with 155 additions and 0 deletions
@@ -0,0 +1,49 @@
+"** 14-148-165.pdf page 18
+" un
+
+   sys open; n.out; 0
+   spa
+   jmp error
+   sys read; buf; 3072
+   cll; idiv; 6
+   lacq; cma; tad d1
+   dac c1
+1:
+   lac t1
+   tad d4
+   dac t2
+   lac i t2
+   sad d3
+   skp
+   jmp 2f
+   lac d1
+   sys write; t1: buf; 4
+   lac d1
+   sys write; mes+1; 1
+2:
+   lac t1
+   tad d6
+   dac t1
+   isz c1
+   jmp 1b
+
+   sys exit
+
+error:
+   lac d1
+   sys write; mes; 2
+   sys exit
+
+mes:
+   077; 012
+n.out:
+   <n.>;<ou>;<t 040; 0400040
+
+d1: 1
+d6: 6
+d3: 3
+c1: 0
+t2: 0
+d4: 4
+
+buf: