cleanup

2022-07-24 04:14:48 +02:00
parent 6dae5324dd
commit 7890f4102e
3 changed files with 0 additions and 233 deletions
--- a/libsrc/cbm610/cpeekchar.s
+++ b/libsrc/cbm610/cpeekchar.s
@@ -1,46 +0,0 @@
-
-		.export _cpeekchar
-		.export _cpeekcharxy
-
-		.import _gotoxy
-
-		.include	"cbm610.inc"
-		.include	"extzp.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