Merge pull request #234 from sebras/fix/adm

Change ald to assemble successfully and include it in build.

build/Makefile

@@ -112,6 +112,7 @@ dirs:
 # PLEASE KEEP IN ALPHABETICAL ORDER!
 cmd:	dirs \
 	$(BINDIR)/adm \
+	$(BINDIR)/ald \
 	$(BINDIR)/apr \
 	$(BINDIR)/as \
 	$(BINDIR)/cas \
@@ -152,6 +153,9 @@ altcmd: dirs cmd \
 $(BINDIR)/adm: $(CMDSRC)/adm.s
 	$(AS) $(ASARGS) -o $(BINDIR)/adm $(CMDSRC)/adm.s
 
+$(BINDIR)/ald: $(CMDSRC)/ald.s
+	$(AS) $(ASARGS) -o $(BINDIR)/ald $(CMDSRC)/ald.s
+
 $(BINDIR)/apr: $(CMDSRC)/apr.s
 	$(AS) $(ASARGS) -o $(BINDIR)/apr $(CMDSRC)/apr.s
 

build/proto

@@ -23,6 +23,7 @@ dd           drwr- -1 4
         pptout   irwr- -1 13
         password frw-- -1 fs/password
         adm      frwr- -1 bin/adm
+        ald      frwr- -1 bin/ald
         apr      frwr- -1 bin/apr
         as       frwr- -1 bin/as
         b        frwr- -1 bin/b

src/cmd/ald.s

@@ -79,7 +79,7 @@ cloop:
    jmp 1f
    dac 0f
    lac fo
-   sys write; obuf; 0;..
+   sys write; obuf; 0:..
 1:
    lac fo
    sys close
@@ -229,6 +229,16 @@ putword: 0
    jmp putword i
    jmp putword i
 
+ferror:
+   lac buf
+   dac 1f
+   lac d1
+   sys write; 1:..; 4
+   lac d1
+   sys write; 1f; 1
+   jmp loop
+1: 077012
+
 d1: 1
 d2048: 2048
 d14: 14