Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
@@ -4,7 +4,7 @@
|
||||
; unsigned char getcpu (void);
|
||||
;
|
||||
|
||||
.export _getcpu
|
||||
.export _getcpu
|
||||
|
||||
; ---------------------------------------------------------------------------
|
||||
; Subroutine to detect an 816. Returns
|
||||
@@ -18,20 +18,20 @@
|
||||
; 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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user