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

diff --git a/chrm.s b/chrm.s
new file mode 100644
index 0000000000..5f5cab3d8d
--- /dev/null
+++ b/chrm.s
@@ -0,0 +1,41 @@
+" chrm
+
+   lac 017777
+   tad d5
+   dac 1f
+   dac 2f
+   lac 017777 i
+   sad d4
+   sys exit
+   tad dm4
+   dac 017777 i
+   sys chdir; dd
+   sys chdir; 1;0
+1:
+   lac 017777 i
+   sad d4
+   sys exit
+   tad dm4
+   dac 017777 i
+   lac 2f
+   tad d4
+   dac 2f
+   sys unlink; 2:0
+   sma
+   jmp 1b
+   lac 2b
+   dac 2f
+   lac d1
+   sys write; 2:0; 4
+   lac d1
+   sys write; 1f; 2
+   jmp 1b
+1:
+   040077;012000
+
+dd:
+   <dd>;040040;040040;040040
+d1: 1
+d4: 4
+d5: 5
+dm4: -4
\ No newline at end of file