initial commit from old source

libsrc/cbm610/cpeekchar.s

@@ -0,0 +1,45 @@
+
+		.export _cpeekchar
+		.export _cpeekcharxy
+
+		.import _gotoxy
+
+		.include	"cbm610/cbm610.inc"
+
+	.segment "CODE"
+
+_cpeekcharxy:
+
+	jsr	_gotoxy		; Set cursor
+
+_cpeekchar:
+                                
+	ldx	IndReg
+	ldy	#$0F
+	sty	IndReg
+       	
+	ldy    	CURS_X
+	lda	(CharPtr),y 	; get char
+	; convert to asc
+	and #$7f
+
+	;   0 - $1f +$40
+    ; $20 - $3f
+	; $40 - $7e +$80
+
+	cmp #$1f
+	bcs @sk1
+;;	clc
+	adc #$40
+	jmp @end
+
+@sk1:
+    cmp #$40
+	bcc @end
+	clc
+	adc #$80
+
+@end:
+	stx	IndReg
+	ldx #0
+	rts