Research V5 development

Work on file usr/mdec/list.s

Co-Authored-By: Dennis Ritchie <dmr@research.uucp>
Synthesized-from: v5

diff --git a/usr/mdec/list.s b/usr/mdec/list.s
new file mode 100644 (file)
index 0000000..0c3c4bc
--- /dev/null
+++ b/usr/mdec/list.s
@@ -0,0 +1,21 @@
+/ list on kl-11 followon ascii file
+
+       mov     $ascii,r1
+1:
+       movb    (r1)+,r0
+       beq     1f
+       jsr     pc,(r5)
+       br      1b
+1:
+       rts     pc
+
+ascii:
+       <dldr\n>
+       <dtf\n>
+       <list\n>
+       <mboot\n>
+       <mcopy\n>
+       <rkf\n>
+       <tboot\n>
+       <uboot\n>
+       <\0>