;:sys36864
	;.opt oo
	*= 49152
start	=43
ende	=45
resetmark	=$fd10
strout	=$ab1e
tmp	=247
axout	=$bdcd
crs1	=204
crs2	=205
crs3	=207
key	=65508
return	=$aad7
write	=$ffd2
	lda start
	ldy start+1
	sta tmp
	sty tmp+1
loop	lda tmp+1
	cmp ende+1
	bcc gehtnoch
	beq gleich
stop	rts
gleich	lda tmp
	cmp ende
	bcs stop
gehtnoch	ldy #4
schau	lda (tmp),y
	cmp resetmark,y
	bne wrong
	dey
	bpl schau
	lda #<found
	ldy #>found
	jsr strout
	ldx tmp
	lda tmp+1
	jsr axout
	lda #<kill
	ldy #>kill
	jsr strout
try	lda #0
	sta crs1
getkey	jsr key
	beq getkey
	ldx #2
	stx crs2
get3	ldx crs3
	bne get3
	ldx #1
	stx crs1
	tax
	cmp #"n"
	beq no
	cmp #"y"
	beq ja
	cmp #"j"
	bne try
ja	ldy #2
setnss	lda nss,y
	sta (tmp),y
	dey
	bpl setnss
no	txa
	jsr write
	jsr return
wrong	inc tmp
	bne goon
	inc tmp+1
goon	jmp loop
found	.byte "found reset protect at "
	.byt 0
nss	.byte "NSS"
kill	.byte ". kill ? "
	.byt 0