pd.s

2019-10-18 22:18:30 -04:00
parent 70b111d937
commit 5bfd4da984
2 changed files with 60 additions and 0 deletions
@@ -0,0 +1,59 @@
+" ** 11-45-91.pdf page 1
+" pd
+	
+   sys open; dotdot; 0
+   spa; jms error
+   dac df
+   law dir-1
+   dac 8
+1:
+   lac df
+   sys read; tbuf; 8
+   spa; jms error
+   sna
+   jmp 1f
+   lac tbuf
+   sna
+   jmp 1b
+   -8
+   dac c1
+   law tbuf-1
+   dac 9
+2:
+   lac 9 i
+   dac 8 i
+   isz c1
+   jmp 2b
+   jmp 1b
+
+1:
+   lac df
+   sys close
+   law 017
+   sys creat; dotdot
+   spa; jms error
+   dac df
+   law dir-2
+   cma
+   tad 8
+   dac .+4
+   lac df
+   sys write; dir; ..
+   spa; jms error
+   lac df
+   sys close
+   sys exit
+
+error: 0
+   -1
+   tad error
+   hlt
+   sys save
+
+dotdot:
+   056056; 040040; 040040; 040040
+
+c1: .=.+1
+df: .=.+1
+tbuf: .=.+8
+dir: