; unsigned char getcpu (void);
;
- .export _getcpu
+ .export _getcpu
; ---------------------------------------------------------------------------
; Subroutine to detect an 816. Returns
; of the 6502, but all of them interpret unknown opcodes as NOP so this is
; just what we want.
-.p816 ; Enable 65816 instructions
+.p816 ; Enable 65816 instructions
_getcpu:
- lda #0
- inc a ; .byte $1A
- cmp #1
- bcc @L9
+ lda #0
+ inc a ; .byte $1A
+ cmp #1
+ bcc @L9
; This is at least a 65C02, check for a 65816
- 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
-@L9: ldx #0 ; Load high byte of word
- rts
+ 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
+@L9: ldx #0 ; Load high byte of word
+ rts