Added (untested) serial test. Fixed menu error. Bumped version to 0.8

Author: varmfskii

Makefile

@@ -2,11 +2,11 @@ SYS=asm_inc/ecb.inc asm_inc/coco.inc asm_inc/coco3.inc constants.inc
 INC=cassette.asm crctab.bin hardware.asm joystick.asm keyboard.asm	\
 	memory.asm menu.asm printer.asm rom.asm rs232.asm sound.asm	\
 	util.asm video.asm
-OBJS=diag.ccc
+OBJS=ziadiag.ccc
 
 all: ${OBJS}
 
-diag.ccc: diag.asm ${SYS} ${INC}
+ziadiag.ccc: diag.asm ${SYS} ${INC}
 	lwasm -Iasm_inc -o$@ -fraw -ldiag.txt $<
 
 crctab.bin:
@@ -18,5 +18,5 @@ clean:
 	rm -f *~ *# *.txt crctab.bin
 
 distclean: clean
-	rm ${OBJS}
+	rm -f ${OBJS}
 

README.md

@@ -1,4 +1,4 @@
-# Capabilities as of v0.7
+# Capabilities as of v0.8
 
 - Hardware detection
 
@@ -28,12 +28,12 @@
 
 - Cassette test
 
+- Serial test - requires loopback connector, untested
+
 # TODO
 
 - Hardware
 
   - Detect other external hardware where possible
 
 - audio tests
-
-- serial test

diag.asm

@@ -107,7 +107,7 @@ anykey:
 title:	fcz "COLOR COMPUTER"
 	fcz "DIAGNOSTICS CART"
 version:
-	fcz "VERSION  0.7"
+	fcz "VERSION  0.8"
 	fcz "(C) 2025 ZIA COMPUTING"
 page0:	fcz "PAGE 0 ERROR"
 page1:	fcz "PAGE 1 ERROR"

menu.asm

@@ -40,7 +40,7 @@ menu@:
 poll@:
 	jsr [POLCAT]
 	beq poll@
-	cmpa #'G'
+	cmpa #'I'
 	bgt poll@
 	suba #'A'
 	blt poll@
@@ -53,8 +53,8 @@ poll@:
 
 entries:
 	fdb showhw,memtest,romtest,video
-	fdb keyboard,joystick,cassette ;,sound,cassette,rs232
-	fdb print
+	fdb keyboard,joystick,cassette ;,sound,cassette
+	fdb rs232,print
 	fdb 0
 
 test:

rs232.asm

@@ -3,5 +3,63 @@ rs232:
 	fdb start@
 	fcz "RS232 TEST"
 start@:
-	rts
+	lbsr cls
+	ldx #testing_rs232
+	ldy #screen+32*7+9
+	lbsr print_string
+	lbsr go_slow
+	ldx #$0000
+loop@:
+	;; value 1 - 2237 cycles - 4000.28 bps
+	lda $ff20		; 5
+	ora #%00000010		; 2
+	sta $ff20		; 5
+	bsr rs232_wait		; 7
+	ldb $ff22		; 5
+	bitb #%00000001		; 2
+	beq error@		; 3
+	nop			; 2
+	nop			; 2
+	nop			; 2
+	nop			; 2
+	;; value 0 - 2237 cycles
+	lda $ff20		; 3
+	anda #%11111101		; 2
+	sta $ff20		; 3
+	bsr rs232_wait		; 7
+	ldb $ff22		; 3
+	bitb #%00000001		; 2
+	bne error@		; 3
+	leax 1,x		; 5
+	bne loop@		; 3
+	lbsr cls
+	ldx #rs232_good
+	ldy #screen+32*7+11
+	bra exit@
+error@:
+	lbsr cls
+	ldx #rs232_bad
+	ldy #screen+32*7+10
+exit@:
+	lbsr print_string
+	lbsr anykey
+	lbra go_fast
 
+count@:	equ 273
+rs232_wait:			; 14+273*22 - 2200 cycles
+	ldy #count@		; 4
+delay@:
+	leay -1,y		; 5
+	bne delay@		; 3
+	nop			; 2
+	nop			; 2
+	brn next@		; 3
+next@:
+	rts			; 5
+
+testing_rs232:
+	fcz "TESTING RS232"
+rs232_bad:
+	fcz "RS232 ERROR"
+rs232_good:
+	fcz "RS232 PASS"