basic: add puth command

It's no longer required to use `gmake` under OpenBSD and shell scripts
no longer require bash.

apps/basic/README.md

@@ -149,6 +149,11 @@ that value in `A`.
 
 `putc <char>`: Puts the specified character to the console.
 
+`puth <char>`: Puts the specified character to the console, encoded in two
+hexadecimal digits. For example, `puth 0x42` yields `42`. This is useful for
+spitting binary contents to a console that has special handling of certain
+control characters.
+
 `sleep <units>`: Sleep a number of "units" specified by the supplied
 expression. A "unit" depends on the CPU clock speed. At 4MHz, it is roughly 8
 microseconds.

apps/basic/main.asm

@@ -359,6 +359,15 @@ basPUTC:
 	xor	a	; set Z
 	ret
 
+basPUTH:
+	call	rdExpr
+	ret	nz
+	push	ix \ pop hl
+	ld	a, l
+	call	printHex
+	xor	a	; set Z
+	ret
+
 basSLEEP:
 	call	rdExpr
 	ret	nz
@@ -474,6 +483,8 @@ basCmds2:
 	.dw	basGETC
 	.db	"putc", 0
 	.dw	basPUTC
+	.db	"puth", 0
+	.dw	basPUTH
 	.db	"sleep", 0
 	.dw	basSLEEP
 	.db	"addr", 0

apps/lib/fmt.asm

@@ -1,3 +1,6 @@
+; *** Requirements ***
+; stdioPutC
+;
 
 ; Same as fmtDecimal, but DE is considered a signed number
 fmtDecimalS:
@@ -65,3 +68,47 @@ fmtDecimal:
 	call	divide
 	pop	de
 	ret
+
+; Format the lower nibble of A into a hex char and stores the result in A.
+fmtHex:
+	; The idea here is that there's 7 characters between '9' and 'A'
+	; in the ASCII table, and so we add 7 if the digit is >9.
+	; daa is designed for using Binary Coded Decimal format, where each
+	; nibble represents a single base 10 digit. If a nibble has a value >9,
+	; it adds 6 to that nibble, carrying to the next nibble and bringing the
+	; value back between 0-9. This gives us 6 of that 7 we needed to add, so
+	; then we just condtionally set the carry and add that carry, along with
+	; a number that maps 0 to '0'. We also need the upper nibble to be a
+	; set value, and have the N, C and H flags clear.
+	or 	0xf0
+	daa	; now a =0x50 + the original value + 0x06 if >= 0xfa
+	add 	a, 0xa0	; cause a carry for the values that were >=0x0a
+	adc 	a, 0x40
+	ret
+
+; Print the hex char in A as a pair of hex digits.
+printHex:
+	push	af
+
+	; let's start with the leftmost char
+	rra \ rra \ rra \ rra
+	call	fmtHex
+	call	stdioPutC
+
+	; and now with the rightmost
+	pop	af \ push af
+	call	fmtHex
+	call	stdioPutC
+
+	pop	af
+	ret
+
+; Print the hex pair in HL
+printHexPair:
+	push	af
+	ld	a, h
+	call	printHex
+	ld	a, l
+	call	printHex
+	pop	af
+	ret

apps/lib/stdio.asm

@@ -1,70 +0,0 @@
-; *** Requirements ***
-; printnstr
-;
-; *** Variables ***
-; Used to store formatted hex values just before printing it.
-.equ	STDIO_HEX_FMT	STDIO_RAMSTART
-.equ	STDIO_RAMEND	@+2
-
-; *** Code ***
-; Format the lower nibble of A into a hex char and stores the result in A.
-fmtHex:
-	; The idea here is that there's 7 characters between '9' and 'A'
-	; in the ASCII table, and so we add 7 if the digit is >9.
-	; daa is designed for using Binary Coded Decimal format, where each
-	; nibble represents a single base 10 digit. If a nibble has a value >9,
-	; it adds 6 to that nibble, carrying to the next nibble and bringing the
-	; value back between 0-9. This gives us 6 of that 7 we needed to add, so
-	; then we just condtionally set the carry and add that carry, along with
-	; a number that maps 0 to '0'. We also need the upper nibble to be a
-	; set value, and have the N, C and H flags clear.
-	or 	0xf0
-	daa	; now a =0x50 + the original value + 0x06 if >= 0xfa
-	add 	a, 0xa0	; cause a carry for the values that were >=0x0a
-	adc 	a, 0x40
-	ret
-
-; Formats value in A into a string hex pair. Stores it in the memory location
-; that HL points to. Does *not* add a null char at the end.
-fmtHexPair:
-	push	af
-
-	; let's start with the rightmost char
-	inc	hl
-	call	fmtHex
-	ld	(hl), a
-
-	; and now with the leftmost
-	dec	hl
-	pop	af
-	push	af
-	rra \ rra \ rra \ rra
-	call	fmtHex
-	ld	(hl), a
-
-	pop	af
-	ret
-
-; Print the hex char in A
-printHex:
-	push	bc
-	push	hl
-	ld	hl, STDIO_HEX_FMT
-	call	fmtHexPair
-	ld	b, 2
-	call	printnstr
-	pop	hl
-	pop	bc
-	ret
-
-; Print the hex pair in HL
-printHexPair:
-	push	af
-	ld	a, h
-	call	printHex
-	ld	a, l
-	call	printHex
-	pop	af
-	ret
-
-

apps/shell/glue.asm

@@ -17,12 +17,12 @@ jp	init
 .dw	blkBselCmd, blkSeekCmd, blkLoadCmd, blkSaveCmd
 .dw	fsOnCmd, flsCmd, fnewCmd, fdelCmd, fopnCmd
 
-.equ	STDIO_RAMSTART		SHELL_RAMEND
-.inc "lib/stdio.asm"
+.inc "lib/ari.asm"
+.inc "lib/fmt.asm"
 .inc "shell/blkdev.asm"
 .inc "shell/fs.asm"
 
-.equ	PGM_RAMSTART		STDIO_RAMEND
+.equ	PGM_RAMSTART		SHELL_RAMEND
 .equ	PGM_CODEADDR		USER_CODE
 .inc "shell/pgm.asm"
 

apps/shell/gluem.asm

@@ -9,7 +9,7 @@ jp	init
 .inc "lib/util.asm"
 .inc "lib/parse.asm"
 .inc "lib/args.asm"
-.inc "lib/stdio.asm"
+.inc "lib/fmt.asm"
 .equ	SHELL_RAMSTART	USER_RAMSTART
 .equ	SHELL_EXTRA_CMD_COUNT	0
 .inc "shell/main.asm"

runtests.sh

@@ -1,6 +1,4 @@
-#/usr/bin/env bash
-
-set -e
+#/bin/sh -e
 
 git submodule init
 git submodule update

tools/cfspack/Makefile

@@ -4,6 +4,11 @@ TARGETS = cfspack cfsunpack
 all: $(TARGETS)
 
 cfspack: cfspack.c
+	$(CC) $(CFLAGS) -o $@ cfspack.c
+
 cfsunpack: cfsunpack.c
-$(TARGETS):
-	$(CC) -o $@ $^
+	$(CC) $(CFLAGS) -o $@ cfsunpack.c
+
+.PHONY: clean
+clean:
+	rm -f $(TARGETS)

tools/emul/Makefile

@@ -4,37 +4,44 @@ KERNEL = ../../kernel
 APPS = ../../apps
 ZASMBIN = zasm/zasm
 ZASMSH = ../zasm.sh
-SHELLAPPS = $(addprefix cfsin/, zasm ed)
-CFSIN_CONTENTS = $(SHELLAPPS) cfsin/user.h
+SHELLAPPS = zasm ed
+SHELLTGTS = ${SHELLAPPS:S/^/cfsin\//}
+CFSIN_CONTENTS = $(SHELLTGTS) cfsin/user.h
+OBJS = emul.o libz80/libz80.o
 
 .PHONY: all
 all: $(TARGETS) $(CFSIN_CONTENTS)
 
 # -o in sync with SHELL_CODE in shell/glue.asm
 shell/shell.bin: $(APPS)/shell/glue.asm $(ZASMBIN)
-	$(ZASMSH) -o 07 $(KERNEL) shell/user.h $(APPS) < $< | tee $@ > /dev/null
+	$(ZASMSH) -o 07 $(KERNEL) shell/user.h $(APPS) < $(APPS)/shell/glue.asm | tee $@ > /dev/null
 
 shell/kernel-bin.h: shell/glue.asm shell/shell.bin $(ZASMBIN)
-	$(ZASMSH) $(KERNEL) shell/shell.bin < $< | ./bin2c.sh KERNEL | tee $@ > /dev/null
+	$(ZASMSH) $(KERNEL) shell/shell.bin < shell/glue.asm | ./bin2c.sh KERNEL | tee $@ > /dev/null
 
 bshell/shell.bin: bshell/glue.asm $(ZASMBIN)
-	$(ZASMSH) $(KERNEL) bshell/user.h $(APPS) < $< | tee $@ > /dev/null
+	$(ZASMSH) $(KERNEL) bshell/user.h $(APPS) < bshell/glue.asm | tee $@ > /dev/null
 
 bshell/shell-bin.h: bshell/shell.bin
-	./bin2c.sh KERNEL < $< | tee $@ > /dev/null
+	./bin2c.sh KERNEL < bshell/shell.bin | tee $@ > /dev/null
 
 zasm/kernel-bin.h: zasm/kernel.bin
-	./bin2c.sh KERNEL < $< | tee $@ > /dev/null
+	./bin2c.sh KERNEL < zasm/kernel.bin | tee $@ > /dev/null
 
 zasm/zasm-bin.h: zasm/zasm.bin
-	./bin2c.sh USERSPACE < $< | tee $@ > /dev/null
+	./bin2c.sh USERSPACE < zasm/zasm.bin | tee $@ > /dev/null
 
-shell/shell: shell/shell.c libz80/libz80.o shell/kernel-bin.h 
-bshell/shell: bshell/shell.c libz80/libz80.o bshell/shell-bin.h 
-$(ZASMBIN): zasm/zasm.c emul.o libz80/libz80.o zasm/kernel-bin.h zasm/zasm-bin.h $(CFSPACK)
-runbin/runbin: runbin/runbin.c libz80/libz80.o
-$(TARGETS):
-	$(CC) $< emul.o libz80/libz80.o -o $@
+shell/shell: shell/shell.c $(OBJS) shell/kernel-bin.h 
+	$(CC) shell/shell.c $(OBJS) -o $@
+
+bshell/shell: bshell/shell.c $(OBJS) bshell/shell-bin.h 
+	$(CC) bshell/shell.c $(OBJS) -o $@
+
+$(ZASMBIN): zasm/zasm.c $(OBJS) zasm/kernel-bin.h zasm/zasm-bin.h $(CFSPACK)
+	$(CC) zasm/zasm.c $(OBJS) -o $@
+
+runbin/runbin: runbin/runbin.c $(OBJS)
+	$(CC) runbin/runbin.c $(OBJS) -o $@
 
 libz80/libz80.o: libz80/z80.c
 	$(MAKE) -C libz80/codegen opcodes
@@ -47,11 +54,11 @@ $(CFSPACK):
 	$(MAKE) -C ../cfspack
 
 # -o in sync with USER_CODE in shell/user.h
-$(SHELLAPPS): $(ZASMBIN)
-	$(ZASMSH) -o 42 $(KERNEL) $(APPS) shell/user.h < $(APPS)/$(notdir $@)/glue.asm > $@
+$(SHELLTGTS): $(ZASMBIN)
+	$(ZASMSH) -o 42 $(KERNEL) $(APPS) shell/user.h < $(APPS)/${@:T}/glue.asm > $@
 
 cfsin/user.h: shell/user.h
-	cp $< $@
+	cp shell/user.h $@
 
 .PHONY: updatebootstrap
 updatebootstrap: $(ZASMBIN) $(INCCFS)
@@ -60,4 +67,4 @@ updatebootstrap: $(ZASMBIN) $(INCCFS)
 
 .PHONY: clean
 clean:
-	rm -f $(TARGETS) $(SHELLAPPS) emul.o zasm/*-bin.h shell/*-bin.h
+	rm -f $(TARGETS) $(SHELLTGTS) emul.o zasm/*-bin.h shell/*-bin.h

tools/tests/Makefile

@@ -2,6 +2,6 @@ EMULDIR = ../emul
 
 .PHONY: run
 run:
-	make -C $(EMULDIR) zasm runbin
+	$(MAKE) -C $(EMULDIR) zasm/zasm runbin/runbin
 	cd unit && ./runtests.sh
 	cd zasm && ./runtests.sh

tools/tests/unit/runtests.sh

@@ -1,6 +1,4 @@
-#!/usr/bin/env bash
-
-set -e
+#!/bin/sh -e
 
 BASE=../../..
 TOOLS=../..
@@ -17,7 +15,7 @@ chk() {
     fi
 }
 
-if [[ ! -z $1 ]]; then
+if [ ! -z $1 ]; then
     chk $1
     exit 0
 fi

tools/tests/unit/test_lib_fmt.asm

@@ -5,7 +5,8 @@ jp	test
 .inc "lib/ari.asm"
 .inc "lib/fmt.asm"
 
-testNum:	.db 1
+stdioPutC:
+	ret
 
 test:
 	ld	sp, 0xffff
@@ -80,6 +81,8 @@ testFmtDecimalS:
 	.dw 0-1234
 	.db "-1234", 0
 
+testNum:	.db 1
+
 nexttest:
 	ld	a, (testNum)
 	inc	a

tools/tests/zasm/errtests.sh

@@ -1,4 +1,4 @@
-#!/usr/bin/env bash
+#!/bin/sh
 
 # no "set -e" because we test errors
 
@@ -6,9 +6,11 @@ ZASM=../../zasm.sh
 
 chkerr() {
     echo "Check that '$1' results in error $2"
-    ${ZASM} <<< $1 > /dev/null
+    ${ZASM} > /dev/null <<XXX
+$1
+XXX
     local res=$?
-    if [[ $res == $2 ]]; then
+    if [ $res = $2 ]; then
         echo "Good!"
     else
         echo "$res != $2"
@@ -18,15 +20,17 @@ chkerr() {
 
 chkoom() {
     echo "Trying OOM error..."
-    local s=""
+    local tmp=$(mktemp)
     # 300 x 27-29 bytes > 8192 bytes. Large enough to smash the pool.
-    for i in {1..300}; do
-        s+=".equ abcdefghijklmnopqrstuvwxyz$i 42"
-        s+=$'\n'
+    local i=0
+    while [ "$i" -lt "300" ]; do
+        echo ".equ abcdefghijklmnopqrstuvwxyz$i 42" >> ${tmp}
+        i=$(($i+1))
     done
-    ${ZASM} <<< "$s" > /dev/null
+    ${ZASM} < ${tmp} > /dev/null
     local res=$?
-    if [[ $res == 23 ]]; then
+    rm ${tmp}
+    if [ $res = 23 ]; then
         echo "Good!"
     else
         echo "$res != 23"
@@ -57,5 +61,5 @@ chkerr ".db 0x100" 20
 # TODO: find out why this tests fails on Travis but not on my machine...
 # chkerr $'nop \ nop \ nop\n.fill 2-$' 20
 chkerr ".inc \"doesnotexist\"" 21
-chkerr "foo:\\foo:" 22
+chkerr 'foo:\\foo:' 22
 chkoom

tools/tests/zasm/runtests.sh

@@ -1,6 +1,4 @@
-#!/usr/bin/env bash
-
-set -e
+#!/bin/sh -e
 
 KERNEL=../../../kernel
 APPS=../../../apps
@@ -11,7 +9,7 @@ cmpas() {
     FN=$1
     EXPECTED=$(xxd ${FN}.expected)
     ACTUAL=$(cat ${FN} | $ZASM "${KERNEL}" "${APPS}" | xxd)
-    if [ "$ACTUAL" == "$EXPECTED" ]; then
+    if [ "$ACTUAL" = "$EXPECTED" ]; then
         echo ok
     else
         echo actual
@@ -22,7 +20,7 @@ cmpas() {
     fi
 }
 
-if [[ ! -z $1 ]]; then
+if [ ! -z $1 ]; then
     cmpas $1
     exit 0
 fi