6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-22 12:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #598 from blackystardust/master

Browse Source 
Added proper 65sc02, 65ce02 and 4510 detection.
This commit is contained in:
Oliver Schmidt 2018-03-01 16:47:52 +00:00 committed by GitHub
commit 8bf1a78d5d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 35 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
include/6502.h
View File

@ -51,6 +51,8 @@ typedef unsigned size_t;
#define CPU_65C02 1
#define CPU_65816 2
#define CPU_4510 3
#define CPU_65SC02 4
#define CPU_65CE02 5
unsigned char getcpu (void);
/* Detect the CPU the program is running on */

44
libsrc/common/getcpu.s
View File

@ -10,9 +10,11 @@
; Subroutine to detect an 816. Returns
;
; - carry clear and 0 in A for a NMOS 6502 CPU
; - carry set and 1 in A for some CMOS 6502 CPU
; - carry set and 1 in A for a 65c02
; - carry set and 2 in A for a 65816
; - carry set and 3 in A for a 4510
; - carry set and 4 in A for a 65sc02
; - carry set and 5 in A for a 65ce02
;
; This function uses a $1A opcode which is a INA on the 816 and ignored
; (interpreted as a NOP) on a NMOS 6502. There are several CMOS versions
@ -27,20 +29,40 @@ _getcpu:
cmp #1
bcc @L9
; This is at least a 65C02, check for a 4510
; This is at least a 65C02, check for a 65ce02/4510
.byte $42,$ea ; neg on 4510, nop #$ea on 65c02, wdm $ea on 65816
.byte $42,$ea ; neg on 65ce02/4510, nop #$ea on 65c02, wdm $ea on 65816
cmp #1
bne @L8
beq @L6
; check for 65816; after 4510, because $eb there is row (rotate word)
; This is at least a 65ce02, check for 4510
lda #5 ; CPU_65CE02 constant
.byte $5c ; map on 4510, aug on 65ce02 (acts like 4 byte nop)
lda #3 ; CPU_4510 constant
nop
bne @L9
; Check for 65816/65802
@L6: xba ; .byte $eb, put $01 in B accu (nop on 65c02/65sc02)
dec a ; .byte $3a, A=$00
xba ; .byte $eb, A=$01 if 65816/65802 and A=$00 if 65c02/65sc02
inc a ; .byte $1a, A=$02 if 65816/65802 and A=$01 if 65c02/65sc02
cmp #2
beq @L9
; check for 65sc02
ldy $f7
ldx #0
stx $f7
.byte $f7,$f7 ; nop nop on 65sc02, smb7 $f7 on 65c02
ldx $f7
sty $f7
cpx #$00
bne @L9
lda #4 ; CPU_65SC02 constant
xba ; .byte $eb, put $01 in B accu
dec a ; .byte $3a, A=$00 if 65C02
xba ; .byte $eb, get $01 back if 65816
inc a ; .byte $1a, make $01/$02
.byte $2c ; bit instruction to skip next command
@L8: lda #3 ; CPU_4510 constant
@L9: ldx #0 ; Load high byte of word
rts