Article View: comp.arch
Article #12953Quick way to determine 680{00,10} from 68020
From: news
Date: Fri, 06 Feb 1987 19:22
Date: Fri, 06 Feb 1987 19:22
24 lines
1383 bytes
1383 bytes
Here is a little code that returns a 1 on a 68020 and a 0 on the
680{00,10}. We needed this for some machine dependant code on the
Sun-2 and Sun-3. After I wrote this, someone told me Sun has a function
called "is68020" which I assume does about the same as this. This
works because the "scale factor" is ignored on the 680{00,10} processors.
.text
_values:
.long 0
.long 1
.globl _tell
_tell:
moveq #2,d1 | index into 3rd byte of values
movl #_values,a0
| movl a0@(0:b,d1:w:2),d0 | assembled below
.long 0x20301200 | by-pass Sun-2 assembler
| ^ that's the :2 bit
rts
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
- UUCP: {allegra,seismo}!rochester!srs!matt Matt Goheen _
- "All hands on deck, S.R. Systems _
- this bird is sink-king." Rochester, NY _
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
Technical Details
Message-ID:
<121@srs.UUCP>Path:
arc1-ca.pugleaf.net!utzoo!watmath!clyde!rutgers!husc6!seismo!rochester!ur-tut!ur-cvsvax!srs!newsShow Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!watmath!clyde!rutgers!husc6!seismo!rochester!ur-tut!ur-cvsvax!srs!news
From: news@srs.UUCP
Newsgroups: comp.arch,net.sources
Subject: Quick way to determine 680{00,10} from 68020
Message-ID: <121@srs.UUCP>
Date: Fri, 6-Feb-87 14:22:20 EST
Article-I.D.: srs.121
Posted: Fri Feb 6 14:22:20 1987
Date-Received: Wed, 11-Feb-87 19:35:46 EST
Organization: S.R. Systems, Rochester NY
Lines: 24