From 67484975940c9b04ea0f44b11a4ebf4999f8ed06 Mon Sep 17 00:00:00 2001
From: Udo Munk <udo.munk@freenet.de>
Date: Wed, 18 Sep 2024 15:42:39 +0200
Subject: [PATCH 1/2] add program that reports the CPU to cpmtools and add it
 to the CP/M OS disk images

---
 cpmtools/Makefile        |   5 ++++-
 cpmtools/cpu.asm         |  16 ++++++++++++++++
 picosim/disks/cpm22.dsk  | Bin 256256 -> 256256 bytes
 picosim/disks/cpm3-2.dsk | Bin 256256 -> 256256 bytes
 4 files changed, 20 insertions(+), 1 deletion(-)
 create mode 100644 cpmtools/cpu.asm

diff --git a/cpmtools/Makefile b/cpmtools/Makefile
index 7a774d9a..8cd6d4f0 100644
--- a/cpmtools/Makefile
+++ b/cpmtools/Makefile
@@ -1,5 +1,5 @@
 # CP/M tools
-TOOLS = r.com w.com bye.com reset.com sw8080.com swz80.com memmap.com \
+TOOLS = r.com w.com bye.com reset.com sw8080.com swz80.com cpu.com memmap.com \
 	survey.com
 
 # CPU tests by various authors, modified for using the CPU switch feature
@@ -29,6 +29,9 @@ sw8080.com: sw8080.asm $(Z80ASM)
 swz80.com: swz80.asm $(Z80ASM)
 	$(Z80ASM) $(Z80ASMFLAGS) -8 -fb -o$@ $<
 
+cpu.com: cpu.asm $(Z80ASM)
+	$(Z80ASM) $(Z80ASMFLAGS) -8 -fb -o$@ $<
+
 survey.com: survey.mac $(Z80ASM)
 	$(Z80ASM) $(Z80ASMFLAGS) -fb -e20 -o$@ $<
 
diff --git a/cpmtools/cpu.asm b/cpmtools/cpu.asm
new file mode 100644
index 00000000..66c76b26
--- /dev/null
+++ b/cpmtools/cpu.asm
@@ -0,0 +1,16 @@
+	ORG	0100H
+
+	MVI	A,88
+	SUB	A
+	JPE	IS8080
+	LXI	D,Z80TXT
+	JMP	PRINT
+IS8080:	LXI	D,I80TXT
+PRINT:	MVI	C,9
+	CALL	5
+	RET
+
+Z80TXT:	DB	'This is a Zilog Z80 CPU$'
+I80TXT:	DB	'This is a Intel 8080 CPU$'
+
+	END
diff --git a/picosim/disks/cpm22.dsk b/picosim/disks/cpm22.dsk
index f0e762dba8a581af5e7aaf84a7c3d7ad95f7de1c..b54325776019f03eaf3553a527440bf88d23daac 100644
GIT binary patch
delta 195
zcmZp;#NTj<e}jUw0E2Ttr~(K$`};DuF)%h8NVgkEGj2DKX1Z|A)h=TCD;`EcQO3jk
zjDot1e4J-l8BT^|WELv`QKCXrW=?*(LX?Gp0?-r{gt%v3NotOQg#kojx?(o7+~ft^
zvfCRzF*PtwX6mw?JVDxddczl{hRKc64ci;Of`oyr=?&juLO<X_zhFYYnHrcN>i;n{
GyaE8mEkq^&

delta 1124
zcmZp;#NTj<e}jUwz*7|!6$KCo4s~Jxf@TBhb^~d~?FQ0J7p~PaC0a44SQX_aCMzW6
zWhZ6k7aQv(7UwFcs02hQ1V{05B|;>Nlas*W$Pzi3dD(DX(N3|pFcWlus-yjaVtKi&
z(^K=33vv|_OH1+<QZkDRauO>+X7X}LfdQk`_J&VP4UF|nNkDgCI0Ebj1{J7r3@XVA
zG;_!FhA&JF^&;3D%%FnoYj9Z6%o*DozJh||s-@C(OQoBZO1CYQ?pi9{w^Vv)sr1-V
z>8YjCb4#U{mP)TJmG)XH?YC4qXsLAAvexLWrQ$nFGe%`ICS@~btzQ;OM=gz}TN=%<
zG@5B?w9HcR|9_=5micN7O6x4o)-Z#($1N2Z7?h4!DZQ~$60ugYu~zzLsibSA6l0~-
z&1f~f;X5!mloPE8MlwxfWqZR9P;h8<GHNR^SZQ?wDSa!gULX}`rPU9ldaV>08I;(p
zluWIZQmm9FTY)^qVWnhlrIco+G}Y>))nki)42O=hXl=6uv2B52psC6D#DbHNiGedt
zIqdaG#X{=>?Lx&OYcmGBdLXs$mJzE~k+m8F<0flO&ex0u){JMTH~azyhZsg?fF@92
iu7Ra_8VAR3rUs^ZDX2SO`3;g|>6lrzH~eF2cm)7AG+l!L

diff --git a/picosim/disks/cpm3-2.dsk b/picosim/disks/cpm3-2.dsk
index 9859f596a8bb06c2c8418cf5fe7ebc2125f6031f..1cf7645ee0380951d3e78c099332c0a8c2202702 100644
GIT binary patch
delta 186
zcmZp;#NTj<e}jUuAcJ#2r~(K$`};DuF))Tt4pf$C_Eg^Psmy5ZwRu8e0n_9OS>e;&
z3m7doHx|}2P5)oS*tmE?A)~8Z#PnA@jDn(!hxr)=bs70M&$2R{49UnWRsf<zg{aJ&
z{B(sV3j+n96)FgE&%Bb<90dylh{SY7W@b5{H7<<P)yo(o!Bzk*Y~S8i$ymiSxiPD;
Ry|IQ7h?%xG)-c!S001c-Jf{Ev

delta 744
zcmb7C&ubGw6wYkxVFIC-f}Y|?&|U&2Egnpub<>S?o1`h5#Ha^hyE|z%KW38INrF(w
z1P`7?aIT{NfZ!qjg6EzD&;At!@$GJlS3L~#hBxnf-}k+zF1OU>)>o3t{;HhRDps?#
z*E)4lsnme>&ilb&I2toPnTogjx%GYyRgUl2Pl+FdL*moW6Tw7skxAnhj;Yme<lX8z
z#S;FunjRVYXo4Q&x@BU^a;hzzf3T4?x{iL2jP3jIADbALiJ&1JQBRUHmkmh)pqiaF
zZZtZrYF+<8M)u2UYJ3clG6JSQBjdGJn+Ex?8mJ}XOi+){sc_Fmlu#jJDo(YH6J$9P
zj4T4#zsZ#|=`x;B(c@xF79x<8aCo{h;0#ikbl0)l)ly8lVxH6@m=FNGK9QV+?wtBD
z&zL1@gUlVIcjoA&{<LY_)jyGO@5!l+3+C>#sI>12f8h#x-D)DZ1f_s+0076Yuw}Pu
zP7~t8xM(jfilp7XHULtIe}@e#0@UgXJ=!i7;*Vn&h7f?jNQeG@g$P)MmLc!Se`?xz
zZeufFjBpvx!}(t~6Z$2b0PRLVet^QYdIQs14vF)yd1E|=p~ME4aY!Zc_>4)ydl0aY
zdNUc!DS-fXDU3!0^MS>1eFAqZFRpEL>TSDOigqp89iIbh*$>z`81=UURC^SWcj^Mc
LG1ls0Lyi6bEu-G?


From e5de7e503c82947baee48cb7ddb6e332b1ab0b94 Mon Sep 17 00:00:00 2001
From: Udo Munk <udo.munk@freenet.de>
Date: Wed, 18 Sep 2024 15:44:49 +0200
Subject: [PATCH 2/2] update readme

---
 cpmtools/README | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cpmtools/README b/cpmtools/README
index eeb7bada..632060e4 100644
--- a/cpmtools/README
+++ b/cpmtools/README
@@ -6,6 +6,7 @@ bye.asm       Shutdown z80pack systems via hardware control port
 reset.asm     Reset z80pack systems via hardware control port
 sw8080.asm    Switch to 8080 mode
 swz80.asm     Switch to Z80 mode
+cpu.asm       Reports the CPU
 
 survey.mac    shows system survey with memory map, ports used and so on
 memmap.asm    shows memory map