New CPU Detect Program !!!

Article View: alt.comp.dragon

Article #6

From: Stephen J Woolham
Date: Wed, 24 May 2000 00:00

19 lines
1736 bytes

Due to a bug in the machine code the program as listed on the new CoCo pages
under "Software Techniques and Reference" by Robert Gault will always return
the same result (6309) no matter which CPU is present.
The program listed here will correctly identify which CPU is present and can
be run on all Coco's and Coco Clones such as the Dragon 32/64.


10 ' 6309/6809 CPU ID PROGRAM
20 ' FOR THE COCO/COCO III
30 ' AND DRAGON 32/64
40 ' BY STEPHEN J WOOLHAM
50 '
60 START=&HD00
70 FOR I=START TO START+15:READ A$:POKE I,VAL("&H"+A$):C=C+PEEK(I):NEXT:IF
C<>1363 THEN PRINT"ERROR IN DATA LINE":END
80 EXEC START
90 IF PEEK(157)=3 THEN CPU$="6309"ELSE IF PEEK(157)=9 THEN CPU$="6809"
100 PRINT"A "+CPU$+" CPU IS PRESENT...":END
110 DATA C6,FF,10,4F,5D,27,04,86,9,20,2,86,3,97,9D,39

Technical Details

Message-ID: <392b51e6.0@news2.cluster1.telinco.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: ff4f2,6b0ff45c099b555a,start
X-Google-Attributes: gidff4f2,public
X-Google-Thread: 10fd69,6b0ff45c099b555a,start
X-Google-Attributes: gid10fd69,public
X-Google-Thread: 110568,6b0ff45c099b555a,start
X-Google-Attributes: gid110568,public
From: "Stephen J Woolham" <SJWoolham@Hotmail.com>
Subject: New CPU Detect Program !!!
Date: 2000/05/24
Message-ID: <392b51e6.0@news2.cluster1.telinco.net>
X-Deja-AN: 626544889
X-NNTP-Posting-Host: ppp-1-30.cvx4.telinco.net
X-Trace: news3.cableinet.net 959136515 212.1.128.154 (Wed, 24 May 2000 03:48:35 BST)
Organization: Cable Internet (post doesn't reflect views of Cable Internet)
X-MSMail-Priority: Normal
X-Priority: 3
NNTP-Posting-Date: Wed, 24 May 2000 03:48:35 BST
Newsgroups: alt.comp.dragon,bit.listserv.coco,comp.sys.tandy
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
X-Complaints-To: abuse@telinco.net