* test na obecnosc CPU65816
* dla CPU6502 kod programu jest calkowicie "przezroczysty"
* autor: Ullrich von Bassewitz

 org $2000

 opt c+

 lda #0
 
 inc @
 
 cmp #1
 bcc cpu6502

; ostateczny test na obecnosc 65816

 xba		    	; put $01 in B accu
 dec @     		; A=$00 if 65C02
 xba    	       	; get $01 back if 65816
 inc @      	       	; make $01/$02
 
 cmp #2
 bne cpu6502

cpu65816
 ldx <text65816
 ldy >text65816
 jsr $c642
 rts
 
cpu6502
 ldx #<text6502
 ldy #>text6502
 jsr $c642
 rts

text6502  dta c'6502',$9b
text65816 dta c'65816',$9b