mirror of https://github.com/a2-4am/4cade.git
27 lines
621 B
Plaintext
27 lines
621 B
Plaintext
;license:MIT
|
|
;(c) 2018-9 by 4am
|
|
;
|
|
; IIgs support functions
|
|
;
|
|
|
|
;------------------------------------------------------------------------------
|
|
; IsGS
|
|
; detect IIgs by running CPU-specific magic
|
|
;
|
|
; in: none
|
|
; out: C set if running on a IIgs
|
|
; C clear otherwise
|
|
; A clobbered
|
|
; X/Y preserved
|
|
;------------------------------------------------------------------------------
|
|
IsGS
|
|
lda #0 ; set Z flag
|
|
!cpu 65816
|
|
rep #2 ; clear Z flag on 65816 only
|
|
!cpu 6502
|
|
beq @no
|
|
@yes sec
|
|
+HIDE_NEXT_BYTE
|
|
@no clc
|
|
rts
|