Initial commit.

Author: hperaza

Changelog.txt

@@ -0,0 +1,41 @@
+Changelog
+---------
+
+27/07/18
+
+- COUTdone removed (not necessary to wait for character to be output
+  before switching I/O page).
+
+- Code optimizations, e.g.
+    ex de,hl  instead of  ld l,e + ld h,d
+    or a      instead of  cp 0
+    jr xxx    instead of  jp xxx (where applicable)
+    djnz ...  where applicable
+
+- Better HEXOUT routine.
+
+- HEX file checksum check done by 'add b' instead of 'neg a + cp b'
+
+- CIN calls COUT to echo the character, instead of sending it directly to
+  the UART TX port (TX might be busy, although unlikely).
+
+
+03/04/20
+
+- Boot RSX280 option.
+
+- G command calls (instead of jumping to) the user program.
+
+
+04/04/20
+
+- Prevent endless loop of D command when end adress is FFFF.
+
+- Allow ending E command with a dot as well as with an 'X'.
+
+
+12/04/20
+
+- Boot UZI280 option (requires installing a suitable bootloader on block 0
+  of the UZI partition).
+

Install.txt

@@ -0,0 +1,49 @@
+ZZmon installation
+------------------
+
+- Remove the boot jumper on the Z280RC board.
+
+- Connect the Z280RC to the PC via the USB adapter and power it with 5V
+  supply as usual.
+
+- Start your favorite terminal program and connect to the Z280RC serial
+  adapter (under Linux it will be /dev/ttyUSB0 or so).
+
+- Press the reset button on the Z280RC board to ensure the Z280 CPU is
+  ready to accept the serial boot program. Nothing will appear on the
+  screen.
+
+- From your favorite terminal program, send the loadngo.run file using
+  binary mode:
+
+    TinyLoad 1.1
+    G xxxx when done
+    ........................................................................
+    ........................................................................
+    ........................................................X
+
+    TinyZZ Monitor v2.0 12-Apr-2020
+
+
+    >
+
+- Use the C command to copy the boot loader and ZZmon to the Compact Flash.
+
+- Restore the boot jumper and reset the board.
+
+
+Notes:
+
+- Sometimes the CF hangs when removing/replacing the boot jumper and either
+  ZZmon cannot be saved with the C command or the board will not boot again
+  even after pressing the reset button. In that case recycling power restores
+  operation.
+
+- Sometimes sending the loadngo.run file is too fast for the z280rc to handle;
+  in that case you can try adding a small delay after each byte sent (if your
+  terminal program supports such option), or you can do the transfer in two
+  steps:
+
+   1) send the loadngo.bin file.
+   2) at the 'TinyLoad' prompt, send the zzmon.hex file.
+

Makefile

@@ -0,0 +1,36 @@
+all: zzmon.hex loadngo.run
+
+test: zzmon0.hex
+
+# build release version
+zzmon.rel: zzmon.mac
+	zxcc zsm4 -"=zzmon/dtest=0/l"
+
+zzmon.hex: zzmon.rel mkhex
+	zxcc drlink -"zzmon.bin=zzmon[nr,lB200]"
+	mkhex -l 0xb200 -e 0xb400 zzmon.bin zzmon.hex
+
+# build test version (loads at 0000h)
+zzmon0.rel: zzmon.mac
+	zxcc zsm4 -"=zzmon/dtest=1/l"
+
+zzmon0.hex: zzmon0.rel mkhex
+	zxcc drlink -"zzmon0.bin=zzmon[nr,l0]"
+	mkhex zzmon0.bin zzmon0.hex
+
+# build serial bootstrap loader
+loadngo.rel: loadngo.mac
+	zxcc zsm4 -"=loadngo/l"
+
+loadngo.bin: loadngo.rel
+	zxcc drlink -"loadngo.bin=loadngo[nr,l0]"
+
+loadngo.run: loadngo.bin zzmon.hex
+	cat loadngo.bin zzmon.hex > loadngo.run
+
+# build the bin to hex converter
+mkhex: mkhex.c
+	cc -o $@ $<
+
+clean:
+	rm -f mkhex *.rel *.prn *.bin *.hex *.run *~

loadngo.mac

@@ -0,0 +1,138 @@
+; Loader program for the serial bootstrap mode of the Z280 CPU.
+
+; The program is load at address 0, and then waits for an Intel HEX
+; file to be loaded.
+
+	.z280
+
+CR	equ	0Dh
+LF	equ	0Ah
+
+	cseg
+
+LOADER:	ld	sp,0		; set stack to top of memory
+	ld	c,8		; I/O page reg
+	ld	l,0FEh		; UART I/O page
+	ldctl	(c),hl
+	ld	a,11100010b
+	out	(10h),a		; UART config reg
+	ld	a,10000000b
+	out	(12h),a		; UART TX status/ctrl reg
+	out	(14h),a		; UART RX status/ctrl reg
+  IF 1
+	ld	hl,LOGMSG
+	call	PUTSTR
+  ENDIF
+LOOP:	call	GETC		; get char
+	cp	':'
+	jr	z,HEXREC	; branch if start of Intel HEX record
+	call	UCASE
+	cp	'G'
+	jr	nz,LOOP		; ignore if not a 'G'o command
+	call	PUTC
+	ld	a,' '
+	call	PUTC
+	call	GETHEX		; get start address
+	ld	h,a
+	call	GETHEX
+	ld	l,a
+	jp	(hl)		; exec program
+
+HEXREC:	call	GETHEX		; get record length
+	ld	b,a		;  into reg B
+	ld	c,a		; checksum in reg C
+	call	GETHEX		; get hi addr
+	ld	h,a		;  into reg H
+	add	a,c
+	ld	c,a
+	call	GETHEX		; get lo addr
+	ld	l,a		;  into reg L
+	add	a,c
+	ld	c,a
+	call	GETHEX		; get record type
+	or	a
+	jr	z,DATA		; branch if data
+	dec	a
+	ld	a,'U'
+	jr	nz,next		; error if not EOF (unknown)
+	call	GETHEX		; get checksum
+	ld	a,'X'
+	call	PUTC		; indicate we're done
+	ld	a,CR
+	call	PUTC
+	ld	a,LF
+	call	PUTC
+	jp	(hl)		; exec program
+
+DATA:	add	a,c		; update checksum
+	ld	c,a
+	inc	b
+	dec	b
+	jr	z,endrec	; branch if record length is zero
+load:	call	GETHEX		; get data byte
+	ld	(hl),a		; store it
+	add	a,c
+	ld	c,a		; update checksum
+	inc	hl
+	djnz	load
+endrec:	call	GETHEX
+	add	a,c		; checksum must be zero
+	ld	a,'?'
+	jr	nz,next		; else display error
+	ld	a,'.'		; display progress
+next:	call	PUTC
+	jp	LOOP
+
+GETHEX:	call	GETC
+	call	ASCHEX
+	rlca
+	rlca
+	rlca
+	rlca
+	ld	e,a
+	call	GETC
+	call	ASCHEX
+	or	e
+	ret
+
+ASCHEX:	call	UCASE
+	sub	'0'
+	cp	10
+	ret	c
+	sub	7
+	and	0Fh
+	ret
+
+UCASE:	cp	'a'
+	ret	c
+	cp	'z'+1
+	ret	nc
+	and	5Fh
+	ret
+
+PUTSTR:	ld	a,(hl)
+	or	a
+	ret	z
+	call	PUTC
+	inc	hl
+	jr	PUTSTR
+
+GETC:	in	a,(14h)		; UART RX status/ctrl reg
+	and	10h
+	jr	z,GETC
+	in	a,(16h)		; UART RX data reg
+	ret
+
+PUTC:	ld	e,a
+twait:	in	a,(12h)		; UART TX status/ctrl reg
+	and	01h
+	jr	z,twait
+	ld	a,e
+	out	(18h),a		; UART TX data reg
+	ret
+
+LOGMSG:	db	CR,LF,'TinyLoad 1.1'
+	db	CR,LF,'G xxxx when done'
+	db	CR,LF,0
+
+	end	LOADER

mkhex.c

@@ -0,0 +1,77 @@
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <errno.h>
+
+int usage(char *progname) {
+  fprintf(stderr, "Usage: %s [-l addr] [-e addr] input_file output file\n", progname);
+  return -1;
+}
+
+int main(int argc, char *argv[]) {
+  char *srcfn = NULL, *dstfn = NULL;
+  FILE *src, *dst;
+  int  i, nb, addr = 0, ept = 0;
+  unsigned cks, b;
+  unsigned char bfr[16];
+
+  if (argc < 3) {
+    return usage(argv[0]);
+  }
+  
+  for (i = 1; i < argc; ++i) {
+    if (strcmp(argv[i], "-l") == 0) {
+      if (++i == argc) return usage(argv[0]);
+      addr = strtol(argv[i], NULL, 0);
+    } else if (strcmp(argv[i], "-e") == 0) {
+      if (++i == argc) return usage(argv[0]);
+      ept = strtol(argv[i], NULL, 0);
+    } else {
+      if (!srcfn) {
+        srcfn = argv[i];
+      } else if (!dstfn) {
+        dstfn = argv[i];
+      } else {
+        return usage(argv[0]);
+      }
+    }
+  }
+
+  src = fopen(srcfn, "rb");
+  if (src == NULL) {
+    fprintf(stderr, "Could not open source file \"%s\": %s\n\n",
+            srcfn, strerror(errno));
+    return -1;
+  }
+
+  dst = fopen(dstfn, "w");
+  if (dst == NULL) {
+    fprintf(stderr, "Could not create destination file \"%s\": %s\n\n",
+            dstfn, strerror(errno));
+    fclose(src);
+    return -1;
+  }
+
+  while (!feof(src)) {
+    nb = fread(&bfr, 1, 16, src);
+    if (nb == 0) break;
+    fprintf(dst, ":%02X%04X00", nb, addr);
+    cks = nb + ((addr >> 8) & 0xFF) + (addr & 0xFF);
+    for (i = 0; i < nb; ++i) {
+      cks += bfr[i];
+      fprintf(dst, "%02X", (unsigned char) bfr[i]);
+    }
+    fprintf(dst, "%02X\n", (unsigned char) ((256-cks) & 0xFF));
+    addr += nb;
+  }
+
+#if 0
+  fprintf(dst, ":0000000000\n");
+#else
+  cks = 0x01 + ((ept >> 8) & 0xFF) + (ept & 0xFF);
+  fprintf(dst, ":00%04X01%02X\n", ept, (unsigned char) ((256-cks) & 0xFF));
+#endif
+
+  fclose(src);
+  fclose(dst);
+}