;==============================================================
; Region detector
; Returns a=0 for Japanese, non-zero for export
;==============================================================
IsJapanese:
    in a,($00)             ; port $00 contains Start button and Region
    and %01000000          ; $40 or 64 decimal
    ret                    ; result in a